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Foreword 


Ada  is  the  result  of  a  collective  effort  to  design  a  common  language  for  programming  large  scale  and  real¬ 
time  systems. 

The  common  high  order  language  program  began  in  1974.  The  requirements  of  the  United  States  Depart¬ 
ment  of  Defense  were  formalized  in  a  series  of  documents  which  were  extensively  reviewed  by  the  Ser¬ 
vices,  industriai  organizations,  universities,  and  foreign  military  departments.  The  Ada  language  was 
designed  in  accordance  with  the  final  (1978)  form  of  these  requirements,  embodied  in  the  Steelmen 
specification. 

The  Ada  design  team  was  led  by  Jean  D.  Ichblah  and  has  Included  Bernd  Krieg-Brueckner,  Brian  A. 
Wichmann,  Henry  F.  Ledgard,  Jean-Claude  Halierd,  Jean-Loup  Gaiily,  Jean-Raymond  Abrlal,  John  G.P. 
Barnes,  Mike  Woodger,  Olivier  Boublne,  Paul  N.  Hilfinger,  and  Robert  Firth. 

At  various  stcgas  of  the  project,  several  people  closely  associated  with  the  design  team  made  major  con¬ 
tributions.  They  Include  J.B.  Goodenough,  R.F.  Brender.  M.W.  Davis,  G.  Ferran,  K.  Laster,  L,  MacLaren,  E. 
Morel,  I.R.  NassI,  I.C.  Pyle,  SA.  Schuman,  and  S.C.  Vestal. 

Two  parallel  efforts  that  were  started  in  the  second  phase  of  this  design  had  a  deep  Influence  on  the 
language.  One  was  the  development  of  a  formal  definition  using  denotatlonal  semantics,  with  the  participa¬ 
tion  of  V,  Donzeau-Gouge,  G.  Kahn,  and  B.  Lang.  The  other  was  the  design  of  a  test  translator  with  the  par¬ 
ticipation  of  K.  Ripken,  P.  Boulller,  P,  Cadlou,  J.  Holden.  J.F.  Hueras,  R.G.  Lange,  and  D.T.  Cornhill,  The 
entire  effort  benafitted  from  the  dedicated  assistance  of  Lyn  Churchill  and  Marion  Myers,  and  the  effective 
technical  support  of  B,  Gravem,  VJ.L.  Heimerdinger.  and  P,  Clave.  H.G.  Schmitz  served  as  program 
manager. 

Over  the  five  years  spent  on  this  project,  several  Intense  week-long  design  reviews  were  conducted,  with 
the  participation  of  P.  Belmont,  B.  Brosgol,  P.  Cohen,  R,  Dewar,  A.  Evens,  G.  Fisher,  H.  Harte,  A.L.  Hisgen, 
P,  Knueven.  M.  Kronentai,  N.  Lomuto,  E.  Ploedereder,  G.  Seegmueller,  V.  Stenning,  D,  Teffs,  and  also  F. 
Belz,  R.  Converse,  K.  Correll,  A.N.  Habermenn,  J,  Semmot,  S.  Squires,  J.  Teller,  P,  Wegner,  and  P.R. 
Wetherall. 

Several  persons  had  a  constructive  Influence  with  their  comments,  criticisms  and  suggestions.  They  include 
P.  Brinch  Hansen,  G.  Goos,  CA.R.  Hoare,  Mark  Rein,  WA.  Wulf,  and  also  E.  Boebert,  P,  Bonnard,  H. 
Clausen,  M.  Cox,  G.  DIsmukes,  R.  Eechus,  T.  Froggett,  H.  Ganzinger,  C.  Hewitt,  S.  Kamln,  R.  Kotler,  0, 
Lecarme,  JA.N.  Lae,  J.L.  Mansion,  F.  Mine!,  T.  Phinney,  J.  Roehrich,  V.  Schneider,  A.  Singer,  D.  Slosberg, 
I.C.  Wand,  the  reviewers  of  Ada-Europe,  AdaTEC,  Afcet,  those  of  the  LMSC  review  team,  and  those  of  the 
Ada  Tokyo  Study  Group. 

These  reviews  and  comments,  the  numerous  evaluation  reports  received  at  the  end  of  the  first  and  second 
phase,  the  nine  hundred  language  Issue  reports  and  test  and  evaluation  reports  received  from  fifteen  dif¬ 
ferent  countries  during  the  third  phase  of  the  project,  the  thousands  of  comments  received  during  the  ANSI 
Canvass,  and  the  on-going  work  of  the  IFIP  Working  Group  2.4  on  system  implementation  languages  and 
that  of  the  Purdue  Europe  LTPL-E  committee,  all  had  a  substantial  influence  on  the  final  definition  of  Ada. 

The  Miiitary  Departments  and  Agencies  have  provided  a  broad  base  of  support  including  funding,  extensive 
reviews,  and  countless  Individual  contributions  by  the  members  of  the  High  Order  Language  Working  Group 
and  other  Interested  personnel,  in  particular,  William  A.  Whitaker  provided  leadership  for  the  program  dur¬ 
ing  the  formative  stages.  David  A.  Fisher  was  responsible  for  the  successful  development  and  refinement  of 
the  language  requirement  documents  that  led  to  the  Steelman  specification. 

This  language  definition  was  developed  by  Cii  Honeywell  Bull  end  later  Alsys,  and  by  Honeywell  Systems 
and  Research  Center,  under  contract  to  the  United  States  Department  of  Defense.  William  E.  Carlson,  and 
later  Larry  E.  Druffei  and  Robert  F,  Methls,  served  as  the  technical  representatives  of  the  United  States 
Government  and  affectively  coordinated  the  efforts  of  all  participants  in  the  Ada  program. 
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1.  Introduction 


Ada  is  a  programming  ianguage  designed  In  accordance  with  requirements  defined  by  the  United 
States  Department  of  Defense:  the  so-called  Steelman  requirements.  Overall,  these  requirements 
call  for  a  language  with  considerable  expressive  power  covering  a  wide  application  domain.  As  a 
result,  the  language  includes  facilities  offered  by  classical  languages  such  as  Pascal  as  well  as 
facilities  often  found  only  In  specialized  languages.  Thus  the  language  Is  a  modern  algorithmic 
language  with  the  usual  control  structures,  and  with  the  ability  to  define  types  and  subprograms.  It 
also  serves  the  need  for  modularity,  whereby  data,  types,  and  subprograms  can  be  packaged.  It 
treats  modularity  in  the  physical  sense  as  well,  with  a  facility  to  support  separate  compilation. 

In  addition  to  these  aspects,  the  language  covers  real-time  programming,  with  facilities  to  modal 
parallel  tasks  and  to  handle  exceptions.  It  also  covers  systems  programming;  this  requires 
precise  control  over  the  representation  of  data  and  access  to  system-dependent  properties.  Finally, 
both  application-level  and  machine-level 


1.1  Scope  of  the  Standard 


Input-output  are  defined 


This  standard  specifies  the  form  and  meaning  of  program  units  written  In  Ada.  Its  purpose  Is  to 
promote  the  portability  of  Ada  programs  to  a  variety  of  data  processing  systems. 


1.1.1  Extant  of  the  Standard 

This  standard  specifies: 

(a)  The  form  of  a  program  unit  written  in  Ada. 

(b)  The  effect  translating  and  executing  such  a  program  unit. 

(c)  The  manner  In  which  program  units  may  be  combined  to  form  Ado  programs, 

(d)  The  predefined  program  units  that  a  conforming  Implementation  must  supply. 

(e)  The  permissible  variations  within  the  standard,  and  the  manner  In  which  they  must  be 
specified. 

(f)  Those  violations  of  the  standard  that  a  conforming  Implementation  Is  required  to  detect,  and 
the  effect  of  attempting  to  translate  or  execute  a  program  unit  containing  such  violations, 

(g)  Those  violations  of  the  standard  that  a  conforming  Implementation  Is  not  required  to  detect. 
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This  standard  does  not  specl'y: 

(h)  The  means  whereby  a  program  i  nlt  written  in  Ada  is  transformed  into  object  code  executable 
by  a  processor, 

(i)  The  moans  whereby  translation  or  execution  of  program  units  is  invoked  and  the  executing 
units  are  controlled. 

(j)  The  size  or  speed  of  the  object  code,  or  the  relative  execution  speed  of  different  language  con¬ 
structs. 

(k)  The  form  or  contents  of  any  listings  produced  by  Implementations;  in  particular,  the  form  or 
contents  of  error  or  warning  messages. 

(l)  The  effect  of  executing  a  program  unit  that  contains  any  violation  that  a  conforming 
implementation  Is  not  required  to  detect. 

(m)  The  size  of  a  program  or  program  unit  that  will  exceed  the  capacity  of  a  particular  conforming 
Implementation. 

Where  this  standard  speciflae  that  a  program  unit  written  in  Ada  has  an  exact  effect,  this  effect  Is 
the  operational  meaning  of  the  program  unit  and  must  be  produced  by  all  conforming  Implementa¬ 
tions,  Where  this  standard  specifies  permlaalble  variations  In  the  effects  of  constituents  of  a 
program  unit  written  In  Ada,  the  operational  meaning  of  the  program  unit  as  a  whole  Is  understood 
to  be  the  range  of  possible  affects  that  result  from  all  thesa  variations,  and  a  conforming 
Implementation  Is  allowed  to  produce  any  of  these  possible  effects.  Examples  of  permissible  varia¬ 
tions  arc; 

e  The  reprasented  values  of  tixsd  or  floating  numeric  quantities,  and  the  results  of  operations 
upon  them. 

•  The  order  of  execution  of  atatemonta  In  different  parallel  tasks,  In  the  absence  of  explicit  syn¬ 
chronization, 


1.1.2  Conformity  of  an  Implementation  with  tha  Standard 

A  conforming  Implementation  lo  one  that: 

(a)  Correctly  translates  and  executes  legal  program  units  written  In  Ada,  provided  that  they  are 
not  so  large  aa  to  exceed  the  capacity  of  the  Implemontatlon. 

(b)  Rejects  all  program  unite  that  are  so  largo  as  to  exceed  the  capacity  of  the  Implementation, 

(c)  Rejects  all  program  units  that  contain  errors  whose  detection  Is  required  by  the  standard. 

(d)  Supplies  all  predefined  program  units  required  by  the  standnrd, 

(e)  Contains  no  variations  except  whore  the  standard  permits, 

(f)  Specifies  all  such  permitted  variations  In  the  manner  prescribed  by  the  standard, 


1.1.2  Conformity  of  an  Implamentatlon  with  the  Standard 
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This  reference  manual  contains  fourteen  chapters,  three  annexes,  three  appendices,  and  an  index.  i 

Each  chapter  is  divided  into  sections  that  have  a  common  structure,  Each  section  introduces  its  2 

subject,  gives  any  necessary  syntax  rules,  and  de.schbes  the  semantics  of  the  corresponding 
language  constructs.  Examples  and  notes,  and  then  references,  may  appear  at  the  end  of  a  sec¬ 
tion. 

Examples  are  meant  to  illustrate  the  possible  forms  of  the  constructs  described.  Notes  are  meant  :i 
to  emphasize  consequences  of  the  rules  described  in  the  section  or  elsewhere.  References  are 
meant  to  attract  the  attention  of  readers  to  a  term  or  phrase  having  a  technical  meaning  defined  in 
another  section. 


The  standard  definition  of  the  Ada  programming  language  consists  of  the  fourteen  chapters  and  ^ 
the  three  annexes,  subject  to  the  following  restriction:  the  material  in  each  of  the  items  listed 
below  is  informative,  and  not  part  of  the  standard  definition  of  the  Ada  programming  language: 

•  Section  1.3  Design  goals  and  sources  » 

•  Section  1.4  Language  summary  e 

•  The  examples,  notes,  and  references  given  at  the  end  of  each  section  ^ 

•  Each  section  whose  title  starts  with  the  word  “Example"  or  "Examples"  a 


1.3  Design  Goals  and  Sources 


Ada  was  designed  with  three  overriding  concerns:  program  reliability  and  maintenance,  program-  1 
ming  as  a  human  activity,  and  efficiency. 

The  neW  for  languages  that  prorriote  reliability  and  simplify  maintenance  is  well  established,  2 
Hence  emphasis  was  placed  on  program  readability  over  ease  of  writing.  For  example,  the  rules  of 
the  language  require  that  program  variables  be  explicitly  declared  and  that  their  type  be  specified. 

Since  the  type  of  a  variable  Is  invariant,  compilers  can  ensure  that  operations  on  variables  are  com¬ 
patible  with  the  properties  Intended  for  objects  of  the  type,  Furthermore,  error-prone  notations 
have  been  avoided,  and  the  syntax  of  the  language  avoids  the  use  of  encoded  forms  In  favor  of 
more  English-like  constructs.  Finally,  the  language  offers  support  for  separate  compilation  of 
program  units  in  a  way  that  facilitates  program  development  and  maintenance,  and  which 
provides  the  same  degree  of  checking  between  units  as  within  a  unit. 

Concern  for  the  human  programmer  was  also  stressed  during  the  design,  Above  all,  an  attempt  3 
was  made  to  keep  the  language  as  small  as  possible,  given  the  ambitious  nature  of  the  application 
domain,  We  have  attempted  to  cover  this  domain  with  a  small  number  of  underlying  concepts 
integrated  in  a  consistent  and  systematic  way.  Nevertheless  we  have  tried  to  avoid  the  pitfalls  of 
excessive  involution,  and  In  the  constant  search  for  simpler  designs  we  have  iried  to  provide 
language  constructs  that  correspond  Intuitively  to  what  the  users  will  normally  expect. 

Like  many  other  human  activities,  the  development  of  programs  is  becoming  ever  more  t 
decentralized  and  distributed.  Consequently,  the  ability  to  assemble  0  program  from  indepundent- 
ly  produced  software  components  has  been  a  central  idea  in  this  design.  The  concepts  of 
packages,  of  private  types,  and  of  generic  unlt,s  are  directly  related  to  this  idea,  which  has  ramifica¬ 
tions  in  many  other  aspects  of  the  language. 
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5  No  language  can  avoid  the  problem  of  efficiency.  Languages  that  require  over-elaborate  com¬ 
pilers,  or  that  lead  to  the  inefficient  use  of  storage  or  execution  time,  force  these  inefficiencies  on 
all  machines  and  on  all  programs.  Every  construct  of  the  language  was  examined  in  the  light  of 
present  implementation  techniques.  Any  proposed  construct  whose  implementation  was  unclear 
or  that  required  excessive  machine  resources  was  rejected. 

e  None  of  the  above  design  goals  was  considered  as  achievable  after  the  fact,  The  design  goais 
drove  the  entire  design  process  from  the  beginning. 

7  A  perpetual  difficulty  in  language  design  is  that  one  must  both  identify  the  capabilities  required  by 
the  application  domain  and  design  language  features  that  provide  these  capabilities.  The  difficulty 
existed  in  this  design,  although  to  a  lesser  degree  than  usual  because  of  the  Steelman  require¬ 
ments.  These  requirements  often  simplified  the  design  process  by  allowing  it  to  concentrate  on 
the  design  of  a  given  system  providing  a  well  defined  set  of  capabilities,  rather  than  on  the  defini¬ 
tion  of  the  capabilities  themselves. 

e  Another  significant  simplification  of  the  design  work  resulted  from  earlier  experience  acquired  by 
several  successful  Pascal  derivatives  developed  with  similar  goals.  These  are  the  languages 
Euclid,  Lis,  Mesa,  Modula,  and  Sue.  Many  of  the  key  ideas  and  syntactic  forms  developed  in  these 
languages  have  counterparts  in  Ada.  Several  existing  languages  such  as  Algol  68  and  Simula,  and 
also  recent  research  languages  such  as  Alphard  and  Clu,  Influenced  this  language  in  .several 
respects,  although  to  a  lesser  degree  than  did  the  Pascal  family. 

9  Finally,  the  evaluation  reports  received  on  an  earlier  formulation  (the  Green  language),  and  on 
alternative  proposals  (the  Red,  Blue,  and  Yellow  languages),  the  language  reviews  that  took  place 
at  different  stages  of  this  project,  and  the  thousands  of  comments  received  from  fifteen  different 
countries  during  the  preliminary  stages  of  the  Ada  design  and  during  the  ANSI  canvass,  all  had  a 
significant  impact  on  the  standard  definition  of  the  language. 


1.4  Language  Summary 


1  An  Ada  program  is  composed  of  one  or  more  program  units.  These  program  units  can  be  compiled 
separately.  Program  units  may  be  subprograms  (which  define  executable  algorithms),  package 
units  (which  define  coliectlons  of  entities),  task  units  (which  define  parallel  computations),  or 
generic  units  (which  define  parameterized  forms  of  packages  and  subprograms).  Each  unit  nor¬ 
mally  consists  of  two  parts:  a  specification,  containing  the  Information  that  must  be  visible  to 
other  units,  and  a  body,  containing  the  Implementation  details,  which  need  not  bo  visible  to  other 
units. 

2  This  distinction  of  the  specification  and  body,  and  the  ability  to  compile  units  separately,  allows  a 
program  to  be  designed,  written,  and  tested  as  a  set  of  largely  independent  software  components. 

3  An  Ada  program  will  normally  make  use  of  a  library  of  program  units  of  general  utility.  The 
language  provides  means  whereby  Individual  organizations  can  construct  their  own  libraries.  The 
text  of  a  separately  compiled  program  unit  must  name  the  library  units  it  requires. 


4  Program  Units 

5  A  subprogram  is  the  basic  unit  for  expressing  an  algorithm.  There  are  two  kinds  of  subprograms; 
procedures  and  functions.  A  procedure  Is  the  means  of  invoking  a  series  of  actions.  For  example,  it 
may  read  data,  update  variables,  or  produce  some  output,  It  may  have  parameters,  to  provide  a 
controlled  means  of  passing  Information  between  the  procedure  and  the  point  of  call. 
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A  function  is  the  means  of  invoking  the  computation  of  a  vaiue.  It  is  simiiar  to  a  procedure,  but  in 
addition  wiii  return  a  resuit. 

A  package  is  the  basic  unit  for  defining  a  coiiection  of  logicaily  related  entities.  For  example,  a 
package  can  be  used  to  define  a  common  pool  of  data  and  types,  a  collection  of  related  sub¬ 
programs,  or  a  set  of  type  declarations  and  associated  operations.  Portions  of  a  package  can  be 
hidden  from  the  user,  thus  allowing  access  only  to  the  logical  properties  expressed  by  the  package 
specification, 

A  task  unit  is  the  basic  unit  for  defining  a  task  whose  sequence  of  actions  may  be  executed  In 
parallel  with  those  of  other  tasks.  Such  tasks  may  be  implemented  on  multicomputers,  mul¬ 
tiprocessors,  or  with  interleaved  execution  on  a  single  processor.  A  task  unit  may  define  either  a 
single  executing  task  or  a  task  type  permitting  the  creation  of  any  number  of  similar  tasks. 

Declarations  and  Statements 

The  body  of  a  program  unit  generally  contains  two  parts;  a  declarative  part,  which  defines  the 
logical  entities  to  be  used  in  the  program  unit,  and  a  sequence  of  statements,  which  defines  the 
execution  of  the  program  unit. 

The  declarative  part  associates  names  with  declared  entities.  For  example,  a  name  may  denote  a 
type,  a  constant,  a  variable,  or  an  exception.  A  declarative  part  also  Introduces  the  names  and 
parameters  of  other  nested  subprograms,  packages,  task  units,  and  generic  units  to  be  used  In  the 
program  unit. 

The  sequence  of  statements  describes  a  sequence  of  actions  that  are  to  be  performed.  The  state¬ 
ments  are  executed  In  succession  (unless  an  exit,  return,  or  goto  statement,  or  the  raising  of  an 
exception,  causes  execution  to  continue  from  another  place) 

An  assignment  statement  changes  the  value  of  a  variable.  A  procedura  call  Invokes  execution  of  a 
procedure  after  associating  any  actual  parameters  provided  at  the  call  with  the  corresponding  for¬ 
mal  parametera. 

Case  statements  and  if  statements  allow  the  selection  of  an  enclosed  sequence  of  statements 
based  on  the  value  of  an  expression  or  on  the  value  of  a  condition. 

The  loop  statement  provides  the  basic  Iterative  mechanism  In  the  language.  A  loop  statement 
specifies  that  a  sequence  of  statements  Is  to  be  executed  repeatedly  as  directed  by  an  Iteration 
scheme,  or  until  an  exit  statement  Is  encountered. 

A  block  statement  comprises  a  sequence  of  statements  preceded  by  the  declaration  of  local 
entities  used  by  the  statements. 

Certain  statements  are  only  applicable  to  tasks.  A  delay  statement  delays  the  execution  of  a  task 
for  a  specified  duration.  An  entry  cell  statement  is  written  as  a  procedure  call  statement;  it 
specifies  that  the  task  Issuing  the  call  Is  ready  for  a  rendezvous  with  another  task  that  has  this 
entry.  The  called  task  is  ready  to  accept  the  entry  call  when  Its  execution  reaches  a  corresponding 
accept  statement,  which  specifies  the  actions  then  to  be  performed.  After  completion  of  the 
rendezvous,  both  the  calling  task  and  the  task  having  the  entry  may  continue  their  execution  In 
parallel.  One  form  of  the  select  statement  allows  a  selective  wait  for  one  of  several  alternative 
rendezvous.  Other  forms  of  the  select  statement  allow  conditional  or  timed  entry  calls. 
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18  Execution  of  a  program  unit  may  encounter  error  situations  in  which  normal  program  execution 
cannot  continue.  For  example,  an  arithmetic  computation  may  exceed  the  maximum  allowed 
value  of  a  number,  or  an  attempt  may  be  made  to  access  an  array  component  by  using  an  incorrect 
Index  value.  To  deal  with  such  error  situations,  the  statements  of  a  program  unit  can  be  textually 
followed  by  exception  handlers  that  specify  the  actions  to  be  taken  when  the  error  situation  arises. 
Exceptions  can  be  raised  explicitly  by  a  raise  statement. 

t#  Data  Typas 

20  Every  object  in  the  language  has  a  type,  which  characterizes  a  set  of  values  and  a  set  of  applicable 
operations.  The  main  classes  of  types  are  scalar  typas  (comprising  enumeration  and  numeric 
types),  composite  types,  access  types,  and  private  typas. 

21  An  enumeration  type  defines  an  ordered  set  of  distinct  enumeration  literals,  for  example  a  list  of 
states  or  an  alphabet  of  characters.  The  enumeration  types  BOOLEAN  and  CHARACTER  are 
predefined. 

22  Numeric  types  provide  a  means  of  performing  exact  or  approximate  numerical  computations. 
Exact  computations  use  Integer  types,  which  denote  sets  of  consecutive  integers.  Approximate 
computations  use  either  fixed  point  types,  with  absolute  bounds  on  the  error,  or  floating  point 
types,  with  relative  bounds  on  the  error.  The  numeric  types  INTEGER ,  FLOAT,  and  DURATION  are 
predefined. 

23  Composite  types  allow  definitions  of  structured  objects  with  related  components.  The  composite 
types  in  the  language  provide  for  arrays  and  records.  An  array  Is  an  object  with  indexed  compo" 
nents  of  the  same  typo.  A  record  Is  an  object  with  named  components  of  possibly  different  types. 
The  array  type  STRING  is  predefined. 

24  A  record  may  have  special  components  called  discriminants.  Alternative  record  structures  that 
depend  on  the  values  of  discriminants  can  be  defined  within  a  record  type. 

28  Access  types  allow  the  construction  of  linked  data  structures  created  by  the  evaluation  of 
allocators.  They  allow  several  variables  of  an  access  type  to  designate  the  same  object,  and  com- 

'  ponents  of  one  object  to  designate  the  same  or  other  objects.  Both  the  elements  In  such  a  linked 
data  structure  and  their  relation  to  other  elements  can  be  altered  during  program  execution. 

28  Private  types  can  be  defined  in  a  package  that  conceals  structural  details  that  are  externally  Irrele¬ 
vant.  Only  the  logically  necessary  properties  (Including  any  disct  iminants)  are  made  visible  to  the 
users  uf  such  types. 

27  The  concept  of  a  type  Is  refined  by  the  concept  of  a  subtype,  whereby  a  user  can  constrain  the  set 
of  allowed  values  of  a  type.  Subtypes  can  be  used  to  define  subranges  of  scalar  types,  arrays  with 
a  limited  set  of  Index  values,  and  records  and  private  types  with  particular  discriminant  values. 

26  Other  Facilities 

»  Representation  clauses  can  be  used  to  specify  the  mapping  between  types  and  features  of  an 
underlying  machine.  For  example,  the  user  can  specify  that  objects  of  a  given  type  must  be 
represented  with  a  given  number  of  bits,  or  that  the  components  of  a  record  are  to  bo  represented 
using  a  given  storage  layout.  Other  features  allow  the  controlled  use  of  low  level,  nonportable,  or 
implementation-dependent  aspects.  Including  the  direct  insertion  of  machine  code. 

30  Input-output  is  defined  In  the  language  by  means  of  predefined  library  packages.  Facilities  are 
provided  for  input-output  of  values  of  user-defined  as  well  as  of  predefined  types.  Standard  means 
of  representing  values  in  display  form  are  also  provided. 
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Finally,  the  language  provides  a  powerful  means  of  parameterization  of  program  units,  called 
generic  program  units,  The  generic  parameters  can  be  types  and  subprograms  (as  well  as  objects) 
artd  so  allow  general  algorithms  to  be  applied  to  all  types  of  a  given  class. 


1.5  Method  of  Description  and  Syntax  Notation 


The  form  of  Ada  program  units  is  described  by  means  of  a  context-free  syntax  together  with 
context-dependent  raquirements  expressed  by  narrative  rules. 

The  meaning  of  Ada  program  units  is  described  by  means  of  narrative  rules  defining  both  the 
effects  of  each  construct  and  the  composition  rules  for  constructs.  This  narrative  employs 
technical  terms  whose  precise  definition  Is  given  in  the  text  (references  to  the  section  containing 
the  definition  of  a  technical  term  appear  at  the  end  of  each  section  that  uses  the  term). 

All  other  terms  are  In  the  English  language  and  bear  their  natural  meaning,  as  defined  in  Webster's 
Third  New  International  Dictionary  of  the  English  Language. 


The  context-free  syntax  of  the  language  Is  described  using  a  simple  variant  of  Backus-Naur-Porm. 
In  particular, 

(a)  Lower  case  words,  some  containing  embedded  underlines,  are  used  to  denote  syntactic 
categories,  for  example: 

addlng_operator 


Whenever  the  name  of  a  syntactic  category  is  used  apart  from  the  syntax  rules  themselves, 
spaces  take  the  place  of  the  underlines  (thus:  adding  operator). 

(b)  Boldface  words  are  used  to  denote  reserved  words,  for  example: 

array 


(c)  Square  brackets  enclose  optional  Items.  Thus  the  two  following  rules  are  equivalent. 

r(iturn_statement  ;;=■  return  [axpraislonj; 
return.jBtatement  ::=>  return;  |  return  expression; 


(d)  Braces  enclose  a  repeated  Item.  The  item  may  appear  zero  or  more  times;  the  repetitions 
occur  from  left  to  right  as  with  an  equivalent  left-recursive  rule.  Thus  the  two  following  rules 
are  equivalent. 

term  factor  |multlplylng_operator  factor) 

term  factor  |  term  multlplylno_operator  factor 
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(e)  A  vertical  bar  separates  alternative  Items  unless  it  occurs  immediately  after  an  opening  brace, 
in  which  case  it  stands  for  Itself: 

letter_or_dlgit  letter  |  digit 

component_088oclatlon  (choice  ||  cholcel  =>]  expression 

(f)  If  the  name  of  any  syntactic  category  starts  with  an  italicized  part,  it  Is  equivalent  to  the 
category  name  without  the  italicized  part.  The  Italicized  part  is  intended  to  convey  some 
semantic  Information.  For  example  fypo_name  and  task^name  are  both  equivalent  to  name 
alone. 

Note: 

The  syntax  rules  describing  structured  constructs  are  presented  in  a  form  that  corresponds  to  the 
recommended  paragraphing.  For  example,  an  If  statement  is  defined  as 

lf_statement 

if  condition  then 
sequence_of_8tataments 
I  elsif  condition  than 
snquence..of_statument8| 

I  else 

sequence_of_statam«nt8] 
end  if; 

Different  lines  are  used  for  parts  of  a  syntax  rule  If  the  corresponding  parts  of  the  construct 
described  by  the  rule  are  Intended  to  be  on  different  lines.  Indentation  In  the  rule  is  a  recommenda¬ 
tion  for  Indentation  of  the  corresponding  part  of  the  construct.  It  is  recommended  that  all  Indenta¬ 
tions  be  by  multiples  of  a  basic  step  of  Indentation  (the  number  of  spaces  for  the  basic  step  is  not 
defined).  The  preferred  places  for  other  line  breaks  are  after  semicolons.  On  the  other  hand,  If  a 
complete  construct  can  fit  on  one  line,  this  Is  also  allowed  in  the  recommended  paragraphing. 


1.6  Classification  of  Errors 


The  language  definition  classifies  errors  Into  several  different  categories: 

(a)  Errors  that  must  be  detected  at  compilation  time  by  every  Ada  compiler. 

These  errors  correspond  to  any  violation  of  a  rule  given  in  this  reference  manual,  other  than 
the  violations  that  correspond  to  (b)  or  (c)  below.  In  particular,  violation  of  any  rule  that  uses 
the  terms  must,  atlowod,  legal,  or  ///a^a/ belongs  to  this  category.  Any  program  that  contains 
suGii  an  error  Is  not  a  legal  Ada  program:  on  the  other  hand,  the  fact  that  a  program  Is  legal 
does  not  mean,  per  se,  that  the  program  Is  free  from  other  forms  of  error. 

(b)  Errors  that  must  be  detected  at  run  time  by  the  execution  of  an  Ada  program. 

The  corresponding  error  situations  are  associated  with  the  names  oi  the  predefined  excep¬ 
tions.  Every  Ada  compiler  is  required  to  generate  code  that  raises  the  corresponding  exception 
If  such  an  error  situation  arises  during  program  execution.  If  an  exception  Is  certain  to  be 
raised  In  every  execution  of  a  program,  then  compilers  are  allowed  (although  not  required)  to 
report  this  fact  at  compilation  time. 
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(c)  Erroneous  execution. 

The  language  rules  specify  certain  rules  to  be  obeyed  by  Ada  programs,  although  there  is  no 
requirement  on  Ada  compilers  to  provide  either  a  compilation-time  or  a  run-time  detection  of 
the  violation  of  such  rules.  The  errors  of  this  category  are  indicated  by  the  use  of  the  word 
erroneous  to  qualify  the  execution  of  the  corresponding  constructs.  The  effect  of  erroneous 
execution  Is  unpredictable. 

(d)  Incorrect  order  dependences. 

Whenever  the  reference  manual  specifies  that  different  parts  of  a  given  construct  are  to  be 
executed  In  some  order  that  Is  not  defined  by  the  language,  this  means  that  the  implementa¬ 
tion  is  allowed  to  execute  these  parts  in  any  given  order,  follov</ing  the  rules  that  result  from 
that  given  order,  but  not  in  parallel.  Furthermore,  the  construct  Is  Incorrect  If  execution  of 
these  parts  in  a  different  order  would  have  a  different  effect.  Compilers  are  not  required  to 
provide  either  oompllatlon-time  or  run-time  detection  of  Incorrect  order  dependences.  The 
foregoing  is  expressed  In  terms  of  the  process  that  is  called  execution;  it  applies  equally  to  the 
processes  that  are  called  evaluation  and  elaboration. 

If  a  compiler  is  able  to  recognize  at  cornpllation  time  that  a  construct  Is  erroneous  or  contains  an 
Incorrect  order  dependence,  than  the  compiler  is  allowed  to  generate,  In  place  of  the  code 
otherwise  generated  for  the  construct,  code  that  raises  the  predefined  exception 
PROGRAM.ERROR.  Similarly,  compilers  are  allowed  to  generate  code  that  checks  at  run  time  for 
erroneous  constructs,  for  Incorrect  order  dependences,  or  for  both.  The  predefined  exception 
PROGRAM.ERROR  is  raised  if  such  a  check  falls. 
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2.  Lexical  Eiatnante 


The  text  of  a  program  consists  of  the  texts  of  one  or  more  compilations.  The  text  of  a  compilation 
is  H  sequence  of  lexical  elements,  each  composed  of  characters;  the  rules  of  composition  are  given 
in  this  chapter.  Pragmas,  which  provide  certain  Information  for  the  compiler,  are  also  described  in 
this  chapter. 

Refennc»s:  charautsr  2.1,  compilation  10,1,  laxical  olamant  2.2,  pragma  2.8 


2.1  Character  Set 


The  only  characters  allowed  In  the  text  of  ft  program  are  the  graphic  characters  and  format  effec¬ 
tors.  Each  graphic  character  corresponds  to  a  unique  code  of  the  ISO  seven-bit  coded  character 
set  (ISO  standard  646),  and  is  represented  (visually)  by  a  graphical  symbol.  Some  graphic 
characters  are  represented  by  different  graphical  symbols  in  alternative  national  representations  of 
the  ISO  character  set.  The  description  of  the  language  definition  in  this  standard  reference  manual 
uses  the  ASCII  graphical  symbols,  the  ANSI  graphical  representation  of  the  ISO  character  sot, 

graphlc_Gharaotor  baBlo_graphlc_character 
I  lowar.casoJotter  |  other_sp«claLcharaeter 

baslc_graphio_charaoter  ;:«• 
upper..caseJetter  |  digit 
I  spocIsLoharaoter  |  space..character 

baslc_choraoter 

basic-grsphic-charsoter  |  format_effector 

The  basic  character  set  Is  sufficient  for  writing  any  program.  The  characters  Included  in  each  of  the 
categories  of  basic  graphic  characters  are  defined  as  follows: 

(a)  upper  case  letters 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 

(b)  digits 

0123456789 

(c)  special  characters 

"#8i'()*4-,-./:  ;<  =  >_! 

(d)  the  space  character 

Format  effectors  ore  the  ISO  (and  ASCII)  characters  called  horizontal  tabulation,  vertical  tabula¬ 
tion,  carriage  return,  line  feed,  and  form  feed. 
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»  The  characters  included  in  each  of  the  remaining  categories  of  graphic  characters  are  defined  as 
follows; 

10  (e)  lower  case  letters 

abcdflfghijkimnopqrstuvwxyz 

11  (f)  other  special  characters 

I  $  %  ?  ®  [  \  1  '  ‘  I  )  - 

II  Allowable  replacements  for  the  special  characters  vertical  bar  (|),  sharp  (#),  end  quotation  (")  are 
defined  In  section  2.10. 

Notes: 

13  The  ISO  character  that  i.o^ra '  oonds  to  the  sharp  graphical  symbol  In  the  ASCII  representation 
appears  as  a  pound  statlln;;;;  fyinbol  In  the  French,  German,  and  United  Kingdom  standard  national 
representations.  In  any  case,  the  font  design  of  graphical  symbols  (for  example,  whether  they  are  In 
italic  or  bold  typeface)  is  not  part  of  the  ISO  standard. 

14  The  meanings  of  the  acronyms  used  in  this  section  are  as  follows;  ANSI  stands  for  American 
National  Standards  Institute,  ASCII  stands  for  American  Standard  Code  for  Information 
Interchange,  and  ISO  stands  for  International  Organization  for  Standardization. 

15  The  following  names  are  used  when  referring  to  special  characters  and  o^her  special  characters; 


symbol 

name 

symbol 

name 

> 

quotation 

> 

greater  than 

yr- 

sharp 

underline 

& 

ampersand 

1 

vertical  bar 

‘ 

apostrophe 

1 

exclamation  mark 

( 

left  parenthesis 

$ 

dollar 

) 

right  parenthesis 

% 

percent 

'It 

star,  multiply 

? 

question  mark 

plus 

® 

commercial  at 

comma 

( 

left  square  bracket 

- 

hyphen,  minus 

\ 

back-slash 

, 

dot,  point,  period 

) 

right  square  bracket 

/ 

slash,  divide 

• 

circumflex 

: 

colon 

s 

grave  accent 

semicolon 

1 

loft  brace 

< 

less  then 

1 

Hght  brace 

equal 

tilde 

2.2  Lexical  Elements,  Separators,  end  Delimiters 

i 

1  The  text  of  a  program  consists  of  the  texts  of  one  or  more  compilations.  The  text  of  each  compila¬ 
tion  Is  a  sequence  of  separate  lexical  elements.  Each  lexical  element  Is  either  a  delimiter,  an  iden¬ 
tifier  (which  may  be  a  reserved  word),  a  numeric  literal,  a  character  literal,  a  string  litoral,  or  a  com¬ 
ment.  The  effect  of  a  program  depends  only  on  the  particular  sequences  of  lexical  elements  that 
j  form  its  compilations,  excluding  the  comments.  If  any. 
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2.2  Lexical  Elements,  Separators,  and  Delimiters 


Lexical  ciemenis 


In  some  cases  an  explicit  separator  is  required  to  separate  adjacent  lexical  elements  (namely, 
when  without  separation,  Interpretation  as  a  single  lexical  element  Is  possible).  A  separator  is  any 
of  a  space  character,  a  format  effector,  or  the  end  of  a  line.  A  space  character  is  a  separator  except 
within  a  comment,  a  string  literal,  or  a  space  character  literal.  Format  effectors  other  than  horizon¬ 
tal  tabulation  are  always  separators.  Horizontal  tabulation  Is  a  separator  except  within  a  comment. 

The  end  of  a  line  is  always  a  separator.  The  language  does  not  define  what  causes  the  end  of  a  line. 
However  If,  for  a  given  implementation,  the  end  of  a  line  is  signified  by  one  or  more  charscters, 
then  these  characters  must  be  format  effectors  other  than  horizontal  tabulation.  In  any  case,  a 
sequence  of  one  or  more  format  effectors  other  than  horizontal  tabulation  must  cause  at  least  one 
end  of  line. 

One  or  more  separators  are  allowed  between  any  two  adjacent  lexical  elements,  before  the  first  of 
each  compilation,  or  after  the  last.  At  least  one  separator  Is  required  between  an  Identifier  or  a 
numeric  literal  and  an  adjacent  Identifier  or  numeric  literal. 

A  delimiter  Is  either  one  of  the  follovi/lng  special  characters  (In  the  basic  character  set) 

&  '  (  )  r  +  ,  -  .  /  :  ;  <  =1  >  I 

or  one  of  the  following  compound  delimiters  each  ct'..%>posad  of  two  adjacent  special  characters 
==>  ..  ♦+  /=  >=  <<  »  <> 

Each  of  the  apecial  characters  listed  for  single  character  delimiters  !a  a  single  delimiter  except  If 
this  character  Is  used  as  a  character  of  a  compound  delimiter,  or  ns  a  character  of  a  comment,  str¬ 
ing  literal,  character  literal,  or  numeric  literal. 

The  remaining  forms  of  lexical  element  are  described  in  other  sections  of  this  chapter. 

Notes: 

Each  lexical  element  must  fit  on  one  line,  since  the  end  of  a  line  l.s  a  separator.  The  quotation, 
sharp,  and  underline  characters,  IIKewise  two  adjacent  hyphens,  are  not  delimiters,  but  may  form 
part  of  other  lexical  elements. 

The  following  names  are  used  when  referring  to  compound  delimiters: 

delimiter  name 

-=>  arrow 

double  dot 

>  double  star,  exponentlota 

assignment  (pronounced;  "bscomes") 

/<=  Inequality  (pronounced;  "not  equal") 

greater  than  or  equal 
<~  less  than  or  equal 

<<  left  label  bracKst 

>>  right  label  bracket 

<  >  box 

References;  character  literal  2.5,  comment  /,.7,  compilation  10.1,  format  effector  2.1,  Identifier  2.3,  numeric  literal 
2.4,  .euvrrved  word  2.9,  sipaoe  character  2.1,  special  character  2.1,  string  literal  2.6 
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2.3  Identifiers 

Identifiers  are  used  as  names  and  also  as  roserved  words, 
identifier  - 

letter  underline)  letter_or_digit| 
lettor_or_dlgit  letter  |  digit 
letter  ^  upper._case_letter  |  lower_ca8e...letter 

All  characters  of  an  identifier  are  significant,  including  any  underline  character  inserted  between  a 
letter  or  digit  and  an  adjacent  letter  or  digit.  Identifiers  differing  only  In  the  use  of  corresponding 
upper  and  lower  case  letters  are  considered  as  the  same. 

Examples: 

COUNT  X  get-symbol  Ethelyn  Marlon 

SNOBOL_4  XI  PageCount  STORE_.NEXT_ITEM 
Note: 

No  space  is  allowed  within  an  Identifier  since  a  space  Is  a  separator. 

References;  digit  2.1,  lower  case  letter  2.1,  name  4.1,  reserved  word  2.9,  separator  2,2,  space  character  2.1,  upper 
case  letter  2.1 

2.4  Numeric  Literala 

There  are  two  classes  of  numeric  literals:  real  literals  and  Integer  literals.  A  real  literal  Is  a  numeric 
litoral  that  includes  a  point;  an  integer  literal  Is  a  numeric  literal  without  a  point.  Real  literals  are 
the  litorals  of  the  type  unfversalweal.  Integer  literals  are  the  literals  of  the  type  unNersaUntegor. 

nurnericjltoral  -  docimaljiteral  |  basadJIteral 
References:  liioral  4,2,  unlvarsaL.Intagar  type  3,B.4,  unlvsrsaLreal  typo  3,6.6 

2.4.1  Decimal  Literals 

A  decimal  literal  is  a  numeric  literal  expressed  In  the  conventional  decimal  notation  (that  is,  the 
bare  is  Implicitly  ten), 

doclmaljltoral  integer  [.Integer!  (exponent) 
integer  ::  •  digit  ((underline)  digit! 
exponent  -  E  (f)  Integer  |  E  -  Integer 


2.4. 1  Decimal  Literals 
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Lexical  Elements 


An  underline  character  Inserted  between  adjacent  digits  of  a  decimal  literal  does  not  affect  the  3 
value  of  this  numeric  literal.  The  letter  E  of  the  exponent,  if  any,  can  be  written  either  in  lower  case 
or  in  upper  case,  with  the  same  meaning, 

An  exponent  Indicates  the  power  of  ten  by  which  the  vaiue  of  the  decimal  literal  without  the  expo-  ■! 
nent  Is  to  be  multiplied  to  obtain  the  value  of  the  decimal  literal  with  the  exponent.  An  exponent  for 
an  Integer  literal  must  not  have  a  minus  sign. 

Examples:  5 

12  0  1E6  123_45e  -  Integer  literals 

12.0  0.0  0.456  3.14159.26  --  real  literals 

1.34E-12  1.06+6  --  real  lltarala  with  exponent 


Notes: 

Leading  zeros  are  allowed.  No  space  is  allowed  In  a  numeric  literal,  not  even  between  constituents  t 
of  the  exponent,  since  a  space  Is  a  separator.  A  zero  exponent  is  allowed  for  an  integer  literal. 

References:  d  git  2.1 ,  lower  case  letter  2.1,  numeric  literal  2.4,  separator  2.2,  space  character  2.1 ,  upper  case  letter  r 
2.1 


2.4.2  Based  Literals 


A  baaed  literal  i.t  a  numeric  literal  expressed  in  a  form  that  specifies  the  base  explicitly,  The  base  1 
must  bo  at  least  two  and  at  most  sixteen. 

based-llteral  J 

base  -M  ba8ed.lntegsr  [.based.lntager]  rX  (exponent) 

base  :;===  Integer 

basodJnteger 

extendad.dlglt  ((underline)  extended_dlglt| 
extended.digit  digit  |  letter 

An  underline  character  'nserted  between  adjacent  digits  of  a  based  literal  does  not  affect  the  value  1 
of  this  numeric  literal.  The  base  ard  the  exponent,  If  any,  are  in  di.clmal  notation.  The  only  letters 
allowed  as  extended  digits  are  the  letters  A  through  F  for  the  digits  ten  through  fifteen,  A  letter  In  a 
based  literal  (either  an  extended  digit  or  the  letter  F  of  an  exponent)  can  be  written  either  In  lower 
case  or  in  upper  case,  with  the  same  meaning. 

The  conventional  moaning  of  based  notation  is  assumed;  In  particular  the  value  of  each  extended  < 
digit  of  a  based  literal  must  be  less  than  the  base.  An  exponent  Indicates  the  power  of  the  base  by 
which  the  value  of  the  based  literal  without  the  exponent  is  to  be  multiplied  to  obtain  the  value  of 
the  based  literal  with  the  exponent. 
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Examples: 


16#E#E1 

16?^F.FFi^E+2 


16#FF#  016j^(0FF# 

2#1 1 10_0000»»! 
2#1,1111_1111_111i«'E11 


Integer  literals  of  value  2DB 
Integer  literals  of  value  224 
real  literals  of  value  4095.0 


References:  dlgli  2.1 .  eKponant  2.4.1 .  latter  2.3,  lowercase  latter  2,1,  numeric  literal  2.4,  upper  case  letter  2.1 


2.5  Character  Literals 


A  character  literal  Is  formed  by  enclosing  one  of  the  96  graphic  characters  (Including  the  space) 
between  two  apostrophe  characters.  A  character  literal  ha&  a  value  that  belongs  to  a  character 
type. 


charactarJIteral  ::=>  'graphlc-character' 
Examples: 


■A'  '* . 

References:  character  type  3.6.2,  graphic  character  2.1,  literal  4,2,  apace  character  2.1 


2.6  String  Literals 


A  string  literal  Is  formed  by  e  sequence  of  graphic  characters  (possibly  none)  enclosed  between 
two  quotation  characters  usrd  as  string  brackets, 

string JItaral  “Igraphlo^chirsoterr 

A  string  literal  hen  a  value  that  la  a  sequence  of  character  values  corresponding  to  the  graphic 
characters  of  the  string  literal  apart  from  the  quotation  character  Itself.  If  a  quotation  character 
value  Is  to  be  represented  In  the  sequence  of  character  values,  then  a  pair  of  adiucent  quotation 
characters  must  be  written  at  the  corresponding  piece  within  the  string  literal.  (This  meano  that  a 
string  literal  that  Includes  two  adjacent  quotation  characters  is  never  interpreted  as  two  adjacent 
string  literals.) 

The  length  of  a  string  literal  Is  the  number  of  character  values  In  the  sequence  represented.  (Each 
doubled  quotation  character  Is  counted  ss  a  single  character.) 

Examples: 

"Mousflga  of  the  day;" 


-  an  empty  string  literal 

. A .  --  three  string  literals  of  length  1 

"Characters  such  ao  $,  %,  and  |  are  allowed  In  string  literals" 
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Lexical  Elements 


Note: 

A  string  literal  must  fit  on  one  lino  since  It  Is  a  lexical  element  (see  2.2).  Longer  sequences  of  e 
graphic  character  values  can  be  obtained  by  catenation  of  string  literals.  Similarly  catenation  of 
constants  declared  In  the  package  ASCII  can  be  used  to  obtain  sequences  of  character  values  that 
Include  nongrnphlc  chaructor  values  (the  so-called  control  characters).  Examples  of  such  uses  of 
catenation  are  given  below: 

"FIRST  PART  OF  A  SEQUENCE  OF  CHARACTERS  "  & 

"THAT  CONTINUES  ON  THE  NEXT  LINE' 

"sequence  that  includes  the"  &  ASCII  .ACK  &  "control  character" 

References;  asoll  predeflnod  package  C,  catenation  operation  4.5.3.  character  value  3.5.2,  constant  3.2.1,  ? 

declaration  3.1,  end  of  a  line  2.2,  graphic  character  2.1,  lexical  element  2.2 


2.7  Comments 


A  comment  starts  with  two  adjacent  hyphens  and  extends  up  to  the  end  of  the  line.  A  comment 
can  appear  on  any  line  of  a  program.  The  presence  or  absence  of  comments  has  no  Influence  on 
whether  a  program  Is  legal  or  illegal.  Furthermore,  comments  do  no'  Influence  the  effect  of  a 
program;  their  sole  purpose  is  the  enlightenment  of  the  human  reader, 

Examples; 

-  the  last  sentence  above  echoes  the  Algol  68  report 
and;  processing,  of  LINE  Is  complete 

-  a  lung  comment  may  be  split  onto 

-  two  or  more  consecutive  lines 

. . .  the  first  two  hyphens  start  the  comment 


Note; 

Horizontal  tabulation  can  be  used  In  comments,  after  the  double  hyphen,  and  is  equivalent  to  one  3 
or  more  spaces  (see  2,2), 

ffaferences.' and  of  a  llns  2.2.  Illegal  1.6,  legal  1.6,  apace  character  2.1  4 


2.8  Pragmas 


A  pragma  Is  used  to  convey  Information  to  the  compiler.  A  pragma  starts  with  the  reserved  word  i 
pragma  followed  by  an  Identifier  that  Is  the  name  of  the  pragma. 

pragma  ? 

pragma  Identifier  !(aruument_aa8oclatlQn  |,  argument_B88oclation|)|; 

argumonL.aasoolatlon 

(arsrt/ma/jrJdentlfler  ==>|  name  > 

I  [argument  Identifier  -o]  expression 
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Pragmas  are  only  allowed  at  the  following  places  In  a  program: 

•  After  a  semicolon  delimiter,  but  not  within  a  formal  part  or  discriminant  part. 

•  At  any  place  where  the  syntax  rules  allow  a  construct  defined  by  a  syntactic  category  whose 
name  ends  with  "declaration",  "statement",  "clause",  or  "alternative",  or  one  of  the  syntactic 
categories  variant  and  exception  handler;  but  not  in  place  of  such  a  construct.  Also  at  any 
place  where  a  compilation  unit  would  be  allowed. 

Additional  restrictions  exist  for  the  placement  of  specific  pragmas. 

Some  pragmas  have  arguments.  Argument  associations  can  be  either  positional  or  named  as  for 
parameter  associations  of  subprogram  calls  (see  6.4).  Named  associations  are,  however,  only  pos¬ 
sible  if  the  argument  identifiers  are  defined.  A  name  given  in  an  argument  must  be  either  a  name 
visible  at  the  place  of  the  pragma  or  an  Identifier  specific  to  the  pragma. 

The  pragmas  defined  by  the  language  are  described  in  Annex  B:  they  must  be  supported  by  every 
Implementation.  In  addition,  an  Implamentstlcn  may  provide  Implementation-defined  pragmas, 
which  must  then  be  described  In  Appendix  F.  An  implementation  Is  not  allowed  to  define  pragmas 
whose  presence  or  absence  Influences  the  legality  of  the  text  outside  such  pragmas.  Consequently, 
the  legality  of  o  program  does  not  depend  on  the  presence  or  absence  of  Implementation-defined 
pragmas. 

A  pragma  that  is  not  language-defined  has  no  effect  if  Its  identifier  Is  not  recognized  by  the  (cur¬ 
rent)  implementation.  Furthermore,  a  pragma  (whether  language-defined  or  implementation- 
defined)  has  no  effect  If  Its  placement  or  Its  arguments  do  not  correspond  to  what  is  allowed  for 
the  pragma.  The  region  of  text  over  which  a  pragma  has  an  effect  depends  on  the  pragma. 

Examples: 

p.'agma  UST(OFF); 
pragma  OPTIMIZEITIME); 

P'agma  INLINE(SETMASK); 

pragma  SUPPRESS(RANQE_ChECK,  ON  «>  INDEX): 

Note: 

It  is  recommended  (but  not  required)  that  Implementations  issue  warnings  for  pragmas  that  are 
not  recognized  and  therefore  ignored. 

References:  compilation  unit  10.1,  dellmitor  2.2,  discriminant  part  3.7.1,  oxoeptlon  handler  11,2,  expression  4.4, 
formal  part  6,1,  Identifier  2.3,  Implamentatlon-defined  pragma  F,  language-defined  pragma  B,  legal  1.6,  name  4.1, 
reserved  word  2.9,  statement  B,  static  expression  4.9,  variant  3,7.3,  visibility  8.3 

Categories  ending  with  “declaration"  comprise:  basic  declaration  3.1,  component  declaration  3,7,  entry 
declaration  9.5,  generic  parameter  declaration  12,1 

Categories  ending  with  "c/auae*  corw/ur/se,' alignment  clausa  13.4,  component  clause  13.4,  context  clause  10.1.1, 
representation  clausa  13.1,  use  clause  8.4,  with  clause  10.1.1 

Categories  ending  with  "alternative"  comprise;  accept  alternative  9,7.1,  case  statement  alternative  5,4,  delay 
alternative  9,7.1,  select  alternative  9,7,1,  selective  wait  alternative  9.7.1,  terminate  alternative  9.7,1 


2.8  Pragmas 
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2.9  Reserved  Words 


The  identifiers  listed  below  are  called  reserved  words  and  are  reserved  for  special  significance  in 
the  language,  For  readability  of  this  nanual,  the  reserved  words  appear  in  lower  case  boldface, 


abort 

declare 

generic 

of 

select 

abs 

delay 

goto 

or 

separata 

accept 

delta 

others 

subtype 

access 

digits 

if 

out 

all 

do 

in 

task 

and 

la 

paekega 

terminate 

array 

pragma 

then 

at 

also 

private 

type 

alalf 

limited 

procedure 

and 

loop 

begin 

entry 

raiae 

use 

body 

aKcaption 

range 

exit 

mod 

record 

whan 

ram 

while 

new 

ranamaa 

with 

case 

for 

not 

return 

constant 

function 

null 

reverse 

xor 

A  reserved  word  must  not  be  used  as  a  declared  Identifier. 

Notes: 

Reserved  words  differing  only  in  the  use  of  corresponding  upper  and  lower  case  letters  are  con¬ 
sidered  as  the  same  (see  2.3).  In  some  attributes  the  Identifier  that  appears  after  the  apostrophe  is 
identical  to  some  raserved  word. 


References:  attrlbuto  4.1.4,  deolaratlon  3.1 ,  Identifier  2,3,  lowercase  letter  2.1 ,  upper  case  letter  2. 1 


2.10  Allowable  Replacements  of  Characters 


The  following  replacements  are  allowed  for  the  vortical  bar,  sharp,  and  quotation  basic  characters: 

•  A  vertical  bar  character  (|)  can  be  replaced  by  an  exclamat'on  mark  (I)  where  used  as  a 
delimiter. 

•  The  sharp  characters  (;^)  of  a  b.'sed  literal  can  be  replaced  by  colons  (:)  provided  that  the 
replacement  Is  done  for  both  occurrences. 

•  The  quotation  characters  (")  used  as  string  brackets  at  both  ends  of  a  string  literal  can  be 
replaced  by  percent  characters  (96)  provided  that  the  enclosed  sequence  of  characte.’s  con¬ 
tains  no  quotation  character,  and  provided  that  both  string  brackets  are  replaced.  Any  percent 
character  within  the  sequence  of  characters  must  then  bo  doubled  and  each  such  doubled 
percent  character  is  interpreted  as  a  single  percent  character  value. 
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These  replacements  do  not  change  the  meaning  of  the  program. 

Notes: 

It  is  recommended  that  use  of  the  replacements  for  the  vertical  bar,  sharp,  and  quotation 
characters  be  restricted  to  cases  where  the  corresponding  graphical  symbols  are  not  available. 
Note  that  the  vertical  bar  appears  as  a  broken  bar  on  some  equipment;  replacement  Is  not  recom¬ 
mended  In  this  case. 

The  rules  given  for  identifiers  and  numeric  literals  are  such  that  lower  case  and  upper  case  letters 
can  be  used  indifferently;  these  lexical  elements  can  thus  be  written  using  only  characters  of  the 
basic  character  set.  If  a  string  literal  of  the  predefined  type  STRING  contains  characters  that  are 
not  in  the  basic  character  set,  the  same  sequence  of  character  values  can  be  obtained  by 
catenating  string  literals  that  contain  only  characters  of  the  basic  character  set  with  suitable 
character  constants  declared  in  the  predefined  package  ASCII .  Thus  the  string  literal  "AB  $CD " 
could  be  replaced  by  "AB  "  &  ASCII  .DOLLAR  &  “CD".  Similarly,  the  string  literal  "ABcd "  with  lower 
case  letters  could  be  replaced  by  "AB  "  8i  ASCII  .LC_C  &  ASCII  .LC_D . 


References:  ascii  predefined  package  C,  baaed  literal  2.4.2,  basic  character  2.1 ,  catenation  operation  4.5.3,  character 
value  3.5.2,  delimiter  2.2,  graphic  character  2.1,  graphical  symbol  2.1,  Identifier  2.3,  lexical  element  2.2,  lower  case 
letter  2.1,  numeric  literal  2.4,  string  bracket  2.6,  string  literal  2.6,  upper  case  letter  2.1 
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3.  Declarations  and  Types 


This  chapter  describes  the  types  in  the  language  and  the  rules  for  declaring  constants,  variables, 
and  named  numbers. 


3.1  Declarations 


The  language  defines  several  kinds  of  entities  that  are  declared,  either  explicitly  or  Implicitly,  by  i 
declarations.  Such  an  entity  can  be  a  numeric  literal,  an  object,  a  discriminant,  a  record  compo¬ 
nent,  a  loop  parameter,  an  exception,  a  type,  a  subtype,  a  subprogram,  a  package,  a  task  unit,  a 
generic  unit,  a  single  entry,  an  entry  family,  a  formal  parameter  (of  a  subprogram,  entry,  or  generic 
subprogram),  a  generic  formal  parameter,  a  named  block  or  loop,  a  labeled  statement,  or  an  opera¬ 
tion  (In  particular,  an  attribute  or  an  enumeration  literal;  see  3.3,3). 

There  are  several  forms  of  declaration.  A  basic  declaration  is  a  form  of  declaration  defined  as  fol-  2 
lows. 


ba8lc_declaratlon 

object_declaration 
I  type_declaratlon 
I  subprogram-declaration 
I  tasiLdaclaratlon 
I  exception-declaration 
I  renaming-declaration 


numbar-daclaratlon 

aubtype-declaratlon 

package-declaration 

ganeric-deolaratlon 

generic-instantiation 

daferred-constant-declai  atlon 


Certain  forms  of  declaration  always  occur  (explicitly)  as  part  of  a  basic  declaration;  these  forms  are 
discriminant  specifications,  component  declarations,  entry  declarations,  parameter  specifications, 
generic  parameter  declarations,  and  enumeration  literal  specifications.  A  loop  parameter  specifica¬ 
tion  Is  a  form  of  declaration  that  occurs  only  in  certain  forms  of  loop  statement, 


The  remaining  forms  '•f  declaration  are  implicit;  the  name  of  a  block,  the  name  of  a  loop,  and  a 
statement  label  are  Implicitly  declared.  Certain  operations  are  Implicitly  declared  (see  3.3.3). 

For  each  form  of  declaration  the  language  rules  define  a  certain  region  of  text  called  the  scope  of 
the  declaration  (see  8.2).  Several  forms  of  declaration  associate  an  identifier  with  a  declared  entity. 
Within  Its  scope,  and  only  there,  there  are  places  where  It  Is  possible  to  use  the  identifier  to  refer  to 
the  associated  declared  entity;  these  places  are  defined  by  the  visibility  rules  (see  8.3).  At  such 
places  the  identifier  Is  said  to  bo  a  name  of  the  entity  (Its  simple  name);  the  name  Is  said  to  denote 
the  associated  entity. 


Certain  forms  of  enumeration  literal  specification  associate  a  character  literal  with  the  cor¬ 
responding  declared  entity.  Certain  forms  of  declaration  associate  an  operator  symbol  or  some 
other  notation  with  an  explicitly  or  implicitly  declared  operation. 

The  process  by  which  a  declaration  achieves  its  effect  is  called  the  elaboration  of  the  declaration: 
this  process  happens  during  program  execution. 


4 
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After  its  elaboration,  a  declaration  la  aald  to  be  elaborated.  Prior  to  the  completion  of  Its  elabora¬ 
tion  (including  before  the  elaboration),  the  declaration  la  not  yet  elaborated.  The  elaboration  of  any 
declaration  has  always  at  least  the  effect  of  achieving  this  change  of  state  (from  not  yet  elaborated 
to  elaborated).  The  phrase  "the  elaboration  has  no  other  affect"  Is  used  in  this  manual  whenever 
this  change  of  state  is  the  only  effect  of  elaboration  for  some  form  of  declaration.  An  elaboration 
process  Is  also  defined  for  declarative  parts,  declarative  items,  and  compilation  units  (see  3.9  and 
10.6). 

Object,  number,  type,  and  subtype  declarations  are  described  here.  The  remaining  basic  declara¬ 
tions  are  described  In  later  chapters. 

Note: 

The  syntax  rules  use  the  term  Identifier  for  the  first  occurrence  of  an  identifier  in  some  form  of 
declaration;  the  term  simple  name  is  used  for  any  occurrence  of  an  Identifier  that  already  denotes 
some  declared  entity. 

References:  attribute  4.1.4,  block  name  6.6,  block  atatamant  B.6,  character  literal  2.6,  component  declaration  3.7, 
declarative  Item  3,9,  declarative  part  3.9,  dafarrcd  conttant  declaration  7.4,  discriminant  specification  3.7,1 ,  elabora¬ 
tion  3.9,  entry  declaration  9,5,  enumeration  literal  spactfloatlon  3.6.1,  exception  declaration  11,1,  genetic  declaration 
12.1,  generic  inatantlatlon  12.3,  generic  parameter  declaration  12.1,  Identifier  2.3,  label  5.1,  loop  name  6.5,  loop 
parameter  specification  S.S,  loop  statement  6.6,  name  4.1,  number  declaration  3.2.2,  numeric  literal  2.4,  object 
declaration  3.2.1,  oporatlon  3.3,  operator  symbol  6.1,  package  declaration  7.1,  parameter  specification  6.1,  record 
component  3.7,  renaming  declaration  8.6,  representation  clausa  1 3.1,  scope  6.2,  simple  name  4.1 ,  subprogram  body 
6.3,  subprogram  declaration  6. 1 ,  subtype  dsolarstlon  3.3.2,  task  declaration  9.1,  type  declaration  3.3.1,  vlalblllty  8.3 


3.2  Objaota  and  Natnad  Numbars 


An  object  Is  an  entity  that  contains  (has)  o  value  of  a  given  type.  An  object  Is  one  of  the  following; 

•  an  object  declared  by  an  object  declaration  or  by  a  single  task  declaration, 

•  a  formal  parameter  of  a  subprogram,  entry,  or  generic  subprogram, 

•  a  generic  formal  object, 

•  a  loop  parameter, 

•  an  object  designated  by  a  value  of  an  access  type, 

•  a  component  or  a  slice  of  another  object. 

A  number  declaration  Is  a  special  form  of  object  declaration  that  associates  an  Identifier  with  a 
value  of  type  unlversaUnteger  or  universal-real, 

objecL-declaratlon 

identiflerJIat  :  [constant]  subtype_lndlcatlon  |;=^  expression); 

I  identiflerJIat  ;  [constant]  conatralned_erray-definltlon  [;=  expression); 

numbor_doolaratlon 

IdentiflerJIat  :  constant  :=  unlversal-stetlc-e%\itnn\on-, 

IdentiflerJIat  Identifier  |,  Identifier) 


3.2  Objects  and  Named  Numbers 
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An  object  declaration  Is  called  a  single  object  declaration  If  Its  identifier  list  has  a  single  identifier;  it 
Is  called  a  multiple  object  declaration  if  the  Identifier  list  has  two  or  more  Identifiers.  A  multiple 
object  declaration  Is  equivalent  to  a  sequence  of  the  corresponding  number  of  single  object 
declarations.  For  each  identifier  of  the  list,  the  equivalent  sequence  has  a  single  object  declaration 
formed  by  this  Identifier,  followed  by  a  colon  and  by  whatever  appears  at  the  right  of  the  colon  in 
the  multiple  object  declaration:  the  equivalent  sequence  is  In  the  same  order  as  the  Identifier  list. 

A  similar  equivalence  applies  also  for  the  Identifier  lists  of  number  declarations,  component 
declarations,  discriminant  specifications,  parameter  specifications,  generic  parameter  declarations, 
exception  declarations,  and  deferred  constant  declarations. 

In  the  remainder  of  this  reference  manual,  explanations  are  given  for  declarations  with  a  single 
identifier,  the  corresponding  explanations  for  declarations  with  several  identifiers  follow  from  the 
equivalence  stated  above. 

Example: 

-  the  multiple  object  declaration 

JOHN,  PAUL  :  PERSON_NAME  now  PERSONjSEX  =>  M);  -  see  3.8.1 

--  is  equivalent  to  the  two  single  object  declarations  In  the  order  given 

JOHN  ;  PERSON_NAME  new  PERSONjSEX  »>  M); 

PAUL  ;  PERSON_NAME  now  PERSONjSEX  M); 

References;  accaai  type  3.8,  constrained  array  definition  3.8,  component  3.3,  declaration  3.1,  deferred  constant 
declaration  7.4,  daslgnata  3.8,  discriminant  speolfluatlon  3.7.1,  entry  9.5,  exception  declaration  11.1,  axpratalon  4.4, 
formal  parameter  6.1,  generic  formal  object  12,1,1,  generic  parameter  declaration  12.1 ,  generic  unit  12,  generic  aub> 
program  12.1,  Identifier  2.3,  loop  parameter  6.6,  numeric  type  3.5,  parameter  epecificatlon  6.1,  scope  8.2,  eimple 
name  4.1,  single  task  declaration  9.1,  slice  4.1,2,  static  expression  4,9,  subprogram  6,  subtype  Indication  3.3.2,  type 
3.3,  universaUnteger  type  3.6.4,  unlvsrsal.real  type  3.5.6 


3.2.1  Object  Oeolarations 


An  object  declaration  declares  an  object  whose  type  is  giyen  either  by  a  subtype  Indication  or  by  a 
constrained  array  definition.  If  the  object  declaration  Includes  the  assignment  compound  delimiter 
followed  by  an  expression,  the  expression  specifies  an  initial  value  for  the  declared  object;  the  type 
of  the  expression  must  be  that  of  the  object. 

The  declared  object  is  a  constant  If  the  reserved  word  oonstant  appears  In  the  object  declaration; 
the  declaration  must  then  Include  an  explicit  Initialization.  The  value  of  a  constant  cannot  be 
modified  after  initialization.  Formal  parameters  of  mode  in  of  subprograms  and  entries,  and  generic 
formal  parameters  of  mode  In,  are  also  constants;  a  loop  parameter  Is  a  constant  within  the  cor¬ 
responding  loop;  a  subcomponent  or  slice  of  a  constant  is  a  constant. 

An  object  that  Is  not  a  constant  Is  called  a  variable  (In  particular,  the  object  declared  by  an  object 
declaration  that  does  not  Include  the  reserved  word  oonetant  is  a  variable).  The  only  ways  to 
change  the  value  of  a  variable  are  either  directly  by  an  assignment,  or  Indirectly  when  the  variable 
is  updated  (see  6.2)  by  a  procedure  or  entry  call  statement  (this  action  can  be  performed  either  on 
the  variable  Itself,  on  a  subcomponent  of  the  variable,  or  on  another  variable  that  has  the  given 
variable  as  subcomponent). 
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The  elaboration  of  an  object  declaration  proceeds  as  follows; 

(a)  The  subtype  indication  or  the  constrained  array  definition  Is  first  elaborated.  This  establishes 
the  subtype  of  the  object. 

(b)  If  the  object  declaration  includes  an  explicit  Initialization,  the  initial  value  Is  obtained  by 
evaluating  the  corresponding  expression.  Otherwise  any  Implicit  initial  values  for  the  object  or 
for  its  subcomponents  are  evaluated. 

(c)  The  object  Is  created. 

(d)  Any  initial  value  (whether  explicit  or  Implicit)  is  assigned  to  the  object  or  to  the  corresponding 
subcomponent. 

Implicit  initial  values  are  defined  for  objects  declared  by  object  declarations,  and  for  compotter,ts  of 
such  objects,  In  the  following  cases; 

•  If  the  type  of  an  object  is  an  access  type,  the  implicit  initial  value  Is  the  riull  value  of  the  access 
type, 

•  If  the  type  of  an  object  is  a  task  type,  the  implicit  Initial  (and  only)  value  designates  a  cor¬ 
responding  task. 

•  if  the  type  of  an  object  is  a  type  with  discriminants  and  the  subtype  of  the  object  is  con¬ 
strained,  the  implicit  Initial  (and  only)  value  of  each  discriminant  is  defined  by  the  subtype  of 
the  object. 

•  If  the  type  of  an  object  Is  a  composite  type,  the  implicit  initial  value  of  each  component  that 
has  a  default  expression  Is  obtained  by  evaluation  of  this  expression,  unless  the  component  is 
a  discriminant  of  a  constrained  object  (the  previous  case). 

In  the  case  of  a  component  that  is  itself  a  composite  object  and  whose  value  is  defined  neither  by 
an  explicit  initialization  nor  by  a  default  expression,  any  Implicit  Initial  values  for  components  of  the 
composite  object  are  defined  by  the  same  rules  as  for  a  declared  object. 

The  steps  (a)  to  (d)  are  performed  In  the  order  indicated.  For  step  (b),  if  the  default  expression  for  a 
discriminant  is  evaluated,  than  this  evaluation  is  performed  before  that  of  default  expressions  for 
subcomponents  that  depend  on  discriminants,  and  also  before  that  of  default  expressions  that 
include  the  name  of  the  discriminant.  Apart  from  the  previous  rule,  the  evaluation  of  default 
expressions  Is  performed  In  some  order  that  is  not  defined  by  the  language. 

The  initialization  of  an  object  (the  declared  object  or  one  of  Its  subcomponents)  checks  that  the 
initial  value  belongs  to  the  subtype  of  the  object;  for  an  array  object  declared  by  an  object  declara¬ 
tion,  an  Implicit  subtype  conversion  Is  first  applied  as  for  an  assignment  statement,  unless  the 
object  Is  a  constant  whose  subtype  Is  an  unconstrained  array  type.  The  exception 
CONSTRAlNT_ERROR  Is  raised  if  this  check  falls. 

The  value  of  a  scalar  variable  Is  undefined  after  elaboration  of  the  corresponding  object  declaration 
unless  an  Initial  value  Is  assigned  to  the  variable  by  an  initialization  (explicitly  or  Implicitly), 

If  the  operand  of  a  type  conversion  or  qualified  expression  Is  a  variable  that  has  scalar  subcompo¬ 
nents  with  undefined  values,  then  the  values  of  the  corresponding  subcomponents  of  the  result  are 
undefined.  The  execution  of  a  program  Is  erroneous  if  It  attempts  to  evaluate  a  scalar  variable  with 
an  undefined  value.  Similarly,  the  execution  of  a  program  Is  erroneous  If  It  attempts  to  apply  a 
p(edefinod  operator  to  a  variable  that  has  a  scalar  subcorr.ponent  with  an  undefined  value. 
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Examples  of  variable  declarations: 
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COUNT,  SUM 

SIZE 

SORTED 

COLOR-TABLE 

OPTION 


INTEGER; 

INTEGER  rang*  0  ..  10_000  :=  0; 
BOOLEAN  FALSE; 

■rrayd  ..  N)  of  COLOR; 

BIT_VECTOP(1  ..  10)  (othore  =>  TRUE); 


Examples  of  constant  declarations; 


10 


LIMIT  :  constant  INTEGER  :=  10_000; 

LOW-LIMIT  :  constant  INTEGER  :=  LI  MIT/ 10; 
TOLERANCE  ;  constant  REAL  DISPERSION(1.15|; 


Note; 

The  expression  Initializing  a  conatint  object  need  not  be  a  static  expression  (see  4.9).  In  the  above  » 
examples,  LIMIT  and  LOW.LIMIT  are  Initialized  with  static  expressions,  but  TOLERANCE  is  not  if 
DISPERSION  is  a  user-defined  function, 


References;  access  type  3.8,  asaignmsnt  6.2,  assignment  compound  dsllmltsr  6,2,  component  3.3,  composite  typo  ii 
3.3,  constrained  array  dafinitlon  3.6,  oonstralnad  subtype  3.3.  oonstralnt-srror  exception  11.1,  convaraion  4.6, 
declaration  3.1 ,  default  oxprasslon  for  a  discriminant  3.7,  default  Initial  vslua  for  an  accoas  typo  3,B,  depend  on  a  dia- 
criminant  3,7.1.  dsalgnata  3.8,  discriminant  3,3,  elaboration  3.B,  entry  6.6,  evaluation  4.5,  expression  4.4,  formal 
parameter  6.1,  generic  formal  paramstsr  12.1  12.3,  generic  unit  12,  In  soma  order  1.6,  limited  type  7,4.4,  mode  In 

6.1,  package  7,  predefined  operator  4.6,  primary  4.4,  private  t\‘pa  7.4,  qualified  expression  4.7,  reserved  word  2.9, 
scalar  type  3.6,  slice  4  1.2,  subcomponent  3,3,  subprogram  6,  subtype  3.3,  subtype  Indication  3,3.2,  task  8,  task  type 

9.2,  type  3.3,  visible  part  7.2 


3.2.2  Numbtr  DMiaratlons 


A  numbflr  declaration  is  a  special  form  of  constant  declaration.  The  type  of  the  static  expression  i 
given  for  the  initialization  of  a  number  declaration  must  be  either  the  type  universeijnteger  or  the 
type  universal  j-eal,  The  constant  declared  by  a  number  declaration  Is  called  a  named  number  and 
has  the  type  of  the  static  expression. 

Note; 

The  rules  concerning  expressions  of  a  universal  type  are  explained  In  section  4.10.  It  is  a  conse-  i 
quence  of  these  rules  that  If  every  primary  contained  in  the  expression  Is  of  the  type  unlver- 
saUnteger,  then  thu  named  number  Is  also  of  this  type.  Similarly,  If  every  primary  Is  of  the  type 
unIversaUeal.  thou  the  named  number  Is  also  of  this  type. 


Examples  of  number  declarations: 


3 


PI 

TWO..PI 

MAX 

POWER-16 
ONE,  UN,  EINS 


:  oonstant  :=>  .3.14159-26636; 
:  constant  2.0*PI; 

:  oonstant  600; 

:  oonstant  2ir4<16; 

;  oonstant  1; 


-  a  real  number 
~  a  real  number 

"  an  Integer  number 

-  the  Integer  65-636 

"  three  different  names  for  1 


References;  Identifier  2.3,  primary  4.4,  atatlc  expreailon  4.0,  type  3.3,  unIvnraaIJntnger  type  3.5.4,  unlveraaLreal  ‘t 
type  ,3.5.6,  univoraal  typo  4.10 
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3.3  Typt«  and  Subtypaa 


A  type  Is  characterized  by  a  set  of  values  and  a  set  of  operations. 

There  exist  several  cl0ss»s  of  types.  Sca/ar  types  are  Integer  types,  real  types,  and  types  defined 
by  enumeration  of  their  values;  values  of  these  types  have  no  components.  Array  and  record 
types  are  composite;  a  value  of  a  composite  type  consists  of  component  values.  An  access  type  Is 
a  type  whose  values  provide  access  to  objects.  Private  types  ere  types  for  which  the  set  of  possi¬ 
ble  values  Is  well  defined,  but  not  directly  available  to  the  users  of  such  types.  Finally,  theis  are 
task  types.  (Private  types  are  described  In  chapter  7,  task  types  are  described  In  chapter  9,  the 
other  classes  of  types  are  described  In  this  chapter.) 

Certain  record  and  privatn  types  have  special  components  called  discriminants  whose  values  dis¬ 
tinguish  alternative  forms  of  values  of  one  of  these  types.  If  a  private  type  has  discriminants,  they 
are  known  to  users  of  the  type.  Hence  a  private  type  Is  only  known  by  Its  name,  Its  discriminants  If 
any,  and  by  the  corresponding  set  of  operations. 

The  set  of  possible  values  for  an  object  of  a  given  type  can  be  subjected  to  a  condition  that  Is  cal¬ 
led  a  constraint  (the  case  where  the  constraint  imposes  no  restriction  Is  also  Included);  a  value  is 
said  to  satisfy  a  constraint  If  It  satisfies  the  corresponding  condition.  A  subtype  Is  a  type  together 
with  a  constraint;  a  value  is  said  to  belong  to  a  subtype  of  a  given  type  If  it  belongs  to  the  type  and 
satisfies  the  constraint;  the  given  type  is  called  the  base  type  of  the  subtype.  A  type  Is  a  subtype 
of  Itself;  such  a  subtype  Is  said  to  be  unconstrained',  it  corresponds  to  a  condition  that  Imposes  no 
restriction.  The  base  type  of  e  type  la  the  type  Itself. 

The  set  of  operations  defined  for  a  subtype  of  a  given  type  includes  the  operations  that  are  dofined 
for  the  type;  however  the  assignment  operation  to  a  variable  having  a  given  subtype  only  assigns 
values  that  belong  to  the  subtype.  Additional  operations,  such  as  qualification  (in  a  qualified 
expression),  are  Implicitly  defined  by  a  subtype  declaration. 

Certain  types  have  default  Initial  values  defined  for  objects  of  the  type;  certain  other  types  have 
default  expressions  defined  for  some  or  all  of  their  components.  Certain  operations  of  types  and 
subtypes  are  called  attributes',  these  operations  are  denoted  by  the  form  of  name  described  in  sec¬ 
tion  4.1.4. 

The  term  subcomponent  Is  used  In  this  manual  in  place  of  the  term  component  to  Indicate  either  a 
component,  or  a  component  of  another  component  or  subcomponent,  Where  other  subcompo¬ 
nents  are  excluded,  the  term  component  Is  used  Instead. 

A  given  type  must  not  have  a  subcomponent  whose  type  Is  the  given  type  Itself. 

The  name  of  a  class  of  types  Is  used  In  this  manual  as  a  qualifier  for  objects  and  values  that  have  a 
type  of  the  class  considered.  For  example,  the  term  "array  object"  is  used  for  an  object  whose  type 
is  an  array  type;  similarly,  the  term  "access  value"  Is  used  for  a  value  of  an  access  type. 

Note: 

The  set  of  values  of  a  subtyp<<  is  a  subset  of  the  veluea  of  the  base  type.  This  subset  need  not  be  a 
proper  subset;  It  can  be  an  empty  subset. 

Pehrences:  accsii  type  3.8,  array  type  3.S,  Baalgnmarrt  6.2,  attribute  4.1.4,  component  of  an  array  3,6,  component 
of  a  record  3,7,  dlaorlmlnent  constraint  3,7,2,  enumeration  type  3.6,1,  Integer  type  3.5.4,  object  3,2.1,  private  typa 
7.4.  qualified  expression  4.7,  real  type  3.6.6,  record  type  3.7,  eubtype  declaration  3.3.2,  taak  type  9.1 ,  type  declaration 
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3.3.1  Type  Declaretloni 


A  type  declaration  declares  a  type. 

typo_declaratlon  fulLtype_declaratlon 

I  incomplete_type,_declaratlon  |  private  .cype„declaratlon 

full_type_declaratlon 

type  Identifier  idiscrlmlnant-part)  is  type-definition; 
type-definition  ::  = 

enumeratlon_type-de'lnitlon  |  Integor-type-definition 
I  reaLtype.deflnltlon  I  array-typo-deflnltlon 

I  record_type_definitlon  I  acceas_type_de*!f'ltlon 

I  darlved...type_deflnltlon 

The  elaboration  of  a  full  type  declaration  consists  of  the  elaboration  of  the  discriminant  part,  If  any 
(except  In  the  case  of  the  full  type  declaration  for  an  incomplete  or  private  type  declaration!,  and  of 
the  elaboration  of  the  type  definition. 

The  types  created  by  the  elaboration  of  distinct  type  definitions  are  distinct  types.  Moreover,  the 
elaboration  of  the  type  definition  for  a  numeric  or  derived  type  creates  both  a  base  type  and  a  sub  - 
type  of  the  base  type;  the  same  holds  for  a  constrained  array  definition  (one  of  the  two  forms  of 
array  type  definition). 

The  simple  name  declared  by  a  full  type  declaration  denotes  the  declared  type,  unless  the  type 
declaration  declares  both  a  base  type  and  a  subtype  of  the  base  type.  In  which  case  the  simple 
name  denotes  the  subtype,  and  the  base  type  is  anonymous.  A  typo  Is  said  to  be  anonymous  If  it 
has  no  simple  name.  For  explanatory  purposes,  this  reference  manual  sometimes  refers  to  an 
anonymous  type  by  a  pseudo-name,  written  In  Italics,  and  uses  such  pseudo-names  at  places 
where  the  syntax  normally  requires  an  Identifier. 

Bxamples  of  type  definitions; 

(WHITE,  RED,  YELLOW,  GREEN,  BLUE,  BROvVN,  BLACK) 

range  1  ..  72 

arrayd  ..  10)  of  INTEGER 

Examples  of  type  declarations; 

type  COLOR  Is  (WHITE,  RED,  YELLOW,  GREEN,  BLUE,  BROWN,  BLACK): 

type  COLUMN  Is  range  1  ..  72; 

type  TABLE  Is  arrayd  ..  10)  of  INTEGER; 

Notes; 

Two  type  definitions  always  define  two  distinct  types,  even  if  they  are  textually  identical.  Thus,  the 
array  type  definitions  given  In  the  declarations  of  A  and  B  below  define  distinct  typos. 

A  :  arrayd  ..  10)  of  BOOLEAN; 

B  :  arrayd  ..  10)  of  BOOLEAN; 

If  A  and  B  are  declared  by  a  multiple  object  declaration  as  below,  thel.-  types  arc  nevertheless  dif¬ 
ferent,  since  the  multiple  object  declaration  Is  equivalent  to  the  above  two  single  object  declara¬ 
tions, 

A,  B  :  arrayd  ..  10)  of  BOOLEAN; 


3-7 


Type  Declarations  3.3. 1 


ANSIIMIL-STD-1815A  Ada  Reference  Manual 


Incomplete  typr,  declarations  are  used  for  the  definition  of  recursive  and  mutually  dependent  types 
(see  3.8  1|.  Private  type  declarations  are  used  in  package  specifications  and  in  generic  parameter 
declarations  (see  7.4  and  12.1). 

References:  access  type  definition  3.8,  array  type  definition  3.6,  basu  type  3,3,  constrained  array  definition  3.6, 
constrained  subtype  3.3,  declaration  3.1,  derived  type  3.4,  derived  type  definition  3.4,  discriminant  part  3.7.1, 
elaboration  3.9.  enumeration  type  definition  3.6.1,  Identifier  2.3,  Incomplete  type  declaration  3.8.1,  Integer  type 
definitlorr  3.S.4,  multiple  object  declaration  3.2.  numeric  type  3.6,  private  type  declaration  7.4.  real  type  definition 
3.6,6,  reserved  word  2,9,  type  3.3 


3.3.2  Subtype  Deolaretions 


A  subtype  declaration  declares  a  subtype. 

8ubtype_deolaratlon 

subtype  Identifier  Is  subtypeJndIcatlon; 
subtype_lndlcatlon  tvpe.mark  [constraint) 
typ0_mark  ::=■  rypo_noma  |  iwirypc-name 
constraint 

rongo^constralnt  |  floatlng^polnt-constralnt  |  fixod_polnt.xonstralrtt 
I  lnde)(_constralnt  |  dlscrimlnant_constraint 

A  type  mark  denotes  a  type  or  a  subtype.  If  a  type  mark  Is  the  name  of  a  type,  the  type  mark 
denotes  this  type  and  also  the  corresponding  unconstrained  subtype.  The  base  type  of  a  typa  mark 
Is,  by  definition,  the  base  type  of  the  type  or  subtype  denoted  by  the  type  mark, 

A  subtype  indication  defines  a  subtype  of  the  baee  type  of  the  type  mark. 

If  an  inde.x  constraint  appears  after  a  type  mark  In  e  subtype  Indication,  the  type  mark  must  not 
already  Impose  an  index  constraint.  Likewise  for  a  dlscrlmlnani  constraint,  tho  type  mark  must  not 
already  Impose  a  discriminant  constraint. 

The  elaboration  of  a  subtype  declaration  consists  of  the  elaboration  of  the  subtype  Indication.  The 
elaboration  of  a  subtype  Indication  creates  a  subtype.  If  the  subtype  indication  does  not  include  a 
constraint,  the  subtype  Is  the  same  os  that  denoted  by  the  type  mark.  The  elaboration  of  a  subtype 
Indication  that  Includes  a  constraint  proceeds  as  follows; 

(a)  The  constraint  Is  first  elaborated. 

(b)  A  check  Is  then  made  that  the  constraint  Is  compatible  with  the  type  or  subtype  denoted  by 
the  typo  mark. 

The  condition  Imposed  by  a  constraint  is  the  condition  obtained  after  elaboration  of  the  constraint. 
(The  rules  of  constraint  elaboration  are  such  that  the  expressions  and  ranges  of  constraints  are 
evaluated  by  the  elaboration  of  those  constraints.)  The  rules  defining  compatibility  ore  given  for 
each  form  of  constraint  In  the  appropriate  section.  These  rules  are  such  that  It  a  constraint  Is  com¬ 
patible  with  a  subtype,  then  the  condition  Imposed  by  the  constraint  cannot  contradict  any  condi¬ 
tion  already  Imposed  by  the  subtype  on  Its  values,  The  exception  CONSTRAINT_ERHOR  Is  raised  if 
any  check  of  compatibility  fails. 


3.3.2  Subtype  Declarations 
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Examples  of  subtype  declarations: 


subtype  RAINBOW 

Is 

COLOR  range  RED  ..  BLUE; 

see 

3,3.1 

subtype  RED.BLUE 

Is 

RAINBOW; 

subtype  INT 

Is 

INTEGER; 

subtype  SMALL_INT 

Is 

INTEGER  range  -10  ..  10; 

subtype  UP_TO_K 

Is 

COLUMN  range  1  ..  K; 

see 

3.3.1 

subtype  SQUARE 

Is 

MATRIX!  1  ,.  10,  1  .,  10); 

see 

3.6 

subtype  MALE 

Is 

PERSONISEX  =>  M): 

see 

3,8 

Note; 

A  subtype  declaration  does  not  define  a  new  type. 

References;  bats  type  3.3,  compatibility  of  discriminant  constraints  3.7.2,  compatibility  of  fined  point  constraints 
3.6.9,  compatibility  of  f  gating  point  constraints  3.6.7,  compatibility  of  Index  constraints  3.6. 1 ,  compatibility  of  range 
constraints  3.6,  constralnUerror  exception  11.1,  declaration  3.1.  discriminant  3.3,  discriminant  constraint  3.7.2, 
elaboration  3.9,  evaluation  4.6,  expression  4.4,  floating  point  constraint  3.6.7,  fixed  point  constraint  3.6.9,  Index  con¬ 
straint  3.6.1 ,  range  constraint  3.6,  reserved  «Mord  2.9,  subtype  3.3,  type  3.3,  type  name  3.3.1,  unconstrained  subtype 
3,3 


3.3.3  Glassifiaation  of  Operations 


The  set  of  operations  of  a  type  includos  the  explicitly  declared  subpro{;)rams  that  have  a  parameter 
or  result  of  the  type;  such  subprograms  are  necessarily  declared  after  the  type  decloratlon. 

The  remaining  operations  are  each  Impllnltly  declared  for  a  given  type  declaration.  Immediately 
after  the  type  definition.  These  Implicitly  declared  operations  comprise  the  basic  operations,  the 
predefined  operators  (see  4.51,  and  enumeration  literals.  In  the  case  of  a  derived  type  declaration, 
the  Implicitly  declared  operations  Include  any  derived  subprograms.  The  operations  implicitly 
declared  for  a  given  type  declaration  occur  after  the  type  declaration  and  before  the  next  explicit 
declaration.  If  any.  The  Implicit  declarations  of  dorived  subprograms  occur  lest. 

A  basic  operation  Is  an  operation  that  Is  Inherent  In  one  of  the  following: 

•  An  assignment  (In  assignment  statements  and  initializations),  an  allocator,  a  membership  test, 
or  a  short-circuit  control  form, 

•  A  selected  component,  an  Indexed  component,  or  s  slice, 

•  A  qualification  (in  qualified  axpresalons),  on  explicit  type  conversion,  or  an  Implicit  type  con¬ 
version  of  a  value  of  type  unIvarsaUnteger  or  unlversal^eal  to  the  corresponding  value  of 
another  numeric  type. 

•  A  numeric  ll.eral  (for  a  universal  type),  the  literal  null  (for  on  accoss  type),  a  string  literal,  an 
aggregate,  or  an  attribute. 

For  every  type  or  subtype  T,  the  following  attribute  Is  defined; 

T'BASE  The  bate  type  of  T.  This  attribute  is  tillowed  only  os  the  prefix  of  the  name  of 

another  attribute:  for  example,  T'BASE  First, 
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Note: 

Each  literal  is  an  operation  whose  evaluation  yields  the  corresponding  value  (see  4.2).  Likewise,  an 
aggregate  is  an  operation  whose  evaluation  yields  a  value  of  a  composite  type  (see  4.3).  Some 
operations  of  a  type  operate  on  values  of  the  type,  for  example,  predefined  operators  and  certain 
subprograms  and  attributes.  The  evaluation  of  some  operations  of  a  type  returns  a  value  of  the 
type,  for  example,  literals  and  certain  functions,  attributes,  and  predefined  operators.  Assignment 
is  an  operation  that  operates  on  an  object  and  a  value.  The  evaluation  of  the  operation  cor- 
responrllng  to  a  selected  component,  an  Indexed  component,  or  a  slice,  yields  the  object  or  value 
denoted  by  this  form  of  name. 


References:  aggiagate  4,3,  allocator  4.8,  aaalgnmsnt  D.2,  attribute  4,1,4,  nhoractor  litoral  2.B,  composite  type  3.3, 
conversion  4.6,  derived  lubprogram  3.4,  enumeration  literal  3.5.1,  tormol  parameter  6.1,  function  6.5,  Indexed  com¬ 
ponent  4.1.1,  Initial  value  3,2.1,  literal  4.2,  mamberahip  test  4.6  4.5.2.  null  literal  3.8,  numeric  literal  2.4,  numeric  type 
3.5.  object  3.2.1, 6.1,  predefined  operator  4.6,  qualified  expraatlon  4.7,  selected  component  4.1.3,  short-circuit  con 
irol  form  4.B  4.6.1,  slice  4.1.2,  string  literal  2.6,  subprogram  6,  subtype  3.3,  type  3.3,  typo  declarutlon  3.3.1,  unlver- 
ssLIntnger  type  3,5.4,  universal-real  type  3.6.6,  universal  type  4.10 


3.4  Derived  Types 


A  derived  type  definition  defines  a  new  (base)  type  whose  characteristics  are  derived  from  those  of 
0  parent  type',  the  new  type  Is  called  a  derived  type,  A  derived  type  definition  further  defines  a 
derived  subtype,  which  Is  a  subtype  of  the  derived  type. 

derived. .typa_.daflnltlon  :>  nstM  subtypa-lndicstion 

The  subtype  Indication  that  occurs  after  the  reserved  word  new  defines  the  parent  subtype.  The 
parent  type  Is  the  base  type  of  the  parent  subtype.  If  a  constraint  exists  for  the  parent  subtype,  a 
similar  constraint  existo  for  the  derived  subtype;  the  only  difference  Is  that  for  a  range  corinfrelnt, 
and  likewise  for  a  floating  or  fixed  point  constraint  that  includes  a  range  constraint,  the  value  of 
each  bound  is  replaced  by  the  corresponding  value  of  the  derived  type.  The  characteristics  of  the 
derived  type  are  defined  as  follows; 

•  The  derived  type  belongs  to  the  same  class  of  types  as  the  parent  type.  The  sot  of  possible 
values  tor  the  derived  type  Is  a  copy  of  the  set  of  possible  values  for  the  parent  type.  If  the 
parent  type  Is  composite,  then  the  same  components  exist  for  the  derived  type,  and  the  sub- 
type  of  corresponding  components  is  the  seme. 

•  For  each  basic  operation  of  the  parent  type,  there  is  a  corresponding  basic  operation  of  the 
derived  type.  Explicit  type  conversion  of  a  value  of  the  parent  type  Into  the  corresponding 
value  of  the  derived  type  Is  allowed  and  vice  verso  as  explained  in  section  4,6. 

•  For  each  enumeration  literal  or  predefined  operator  of  the  parent  type  there  Is  a  corresponding 
operation  for  the  derived  type. 

•  If  the  parent  type  Is  a  task  type,  then  for  each  entry  of  the  parent  typo  there  Is  a  corresponding 
entry  for  the  derived  type, 

•  If  a  default  expression  exists  for  a  component  of  an  object  having  the  parent  typo,  then  the 
same  default  expression  is  used  for  the  corresponding  componont  of  on  object  having  the 
derived  type. 
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•  If  the  parent  type  Is  an  access  type,  then  the  parent  and  the  derived  type  share  the  some  col- 
lertlon;  there  Is  a  null  access  value  for  the  derived  type  and  It  is  the  default  initial  value  of  that 
type, 

•  If  an  explicit  representation  clause  exists  tor  the  parent  type  and  If  this  clause  appears  before 
the  derived  type  definition,  then  there  Is  a  corresponding  representation  clause  (an  Implicit 
one)  for  the  derived  type. 

•  Certain  subprograms  that  are  operations  of  the  parent  type  are  said  to  be  derivable.  For  each 
derivable  subprogram  of  the  parent  type,  there  Is  a  corresponding  derived  subprogram  for  the 
derived  type.  Two  kinds  nf  derivable  subprograms  exist.  First,  if  the  parent  type  Is  declared 
immediately  within  the  visible  part  of  a  package,  then  a  subprogram  that  is  Itself  explicitly 
declared  Immediately  within  the  visible  part  becomes  derivable  after  the  end  of  the  visible 
part.  If  it  is  an  operation  of  the  parent  type.  (The  explicit  declaration  is  by  a  subprogram 
declaration,  a  renaming  declaration,  or  a  generic  Instantiation,)  Second,  If  the  parent  type  Is 
Itself  a  derived  type,  then  any  subprogram  that  has  been  derived  by  this  parent  type  is  further 
derivable,  unless  the  parent  type  Is  declared  in  the  visible  part  of  a  package  end  the  derived 
subprogram  Is  hidden  by  a  derivable  subprogram  of  the  first  kind. 

Each  operation  of  the  derived  type  Is  implicitly  declared  at  the  place  of  the  derived  typo  declara¬ 
tion.  The  Implicit  declarations  of  any  derived  subprograms  occur  last. 

The  specification  of  a  derived  subprogram  Is  obtained  Implicitly  by  systematic  replacement  of  the 
parent  type  by  the  derived  typo  In  the  specification  of  the  derivable  subprogram.  Any  subtype  of 
the  parent  type  is  likewise  replaced  by  a  subtype  of  the  derived  type  with  a  similar  constraint  (as 
for  the  transformation  of  a  constraint  of  the  parent  subtype  Into  the  corresponding  constraint  of 
the  derived  subtype),  Finalh',  any  expression  of  the  parent  type  Is  made  to  be  the  operand  of  a  type 
conversion  that  yields  a  result  of  the  derived  type. 

Calling  a  derived  subprogram  is  equivalent  to  celling  the  corresponding  subprogram  of  the  parent 
type,  in  which  each  actual  parameter  that  Is  of  the  derived  type  Is  replaced  by  a  type  conversion  of 
this  actual  parameter  to  the  parent  type  (this  means  that  a  conversion  to  the  parent  type  happens 
before  the  call  for  the  modes  In  and  In  out;  a  reverse  conversion  to  the  derived  typn  happens  after 
the  call  for  the  modes  In  out  and  out,  see  6.4.1).  In  addition,  If  the  result  of  a  called  function  Is  of 
the  parent  type,  this  result  Is  converted  to  the  derived  type. 

If  a  derived  or  private  type  is  declared  Immediately  within  the  visible  part  of  a  package,  then,  within 
this  visible  part,  this  type  must  not  be  used  as  the  parent  type  of  a  derived  type  definition.  (For 
private  types,  see  also  section  7,4,1.) 

For  the  elaboration  of  a  derived  type  definition,  the  subtype  Indication  Is  first  elaborated,  the 
derived  typo  Is  then  created,  and  finally,  the  derived  subtypo  Is  created. 

Examples: 

type  LOCAl— COORDINATE  Is  new  COORDINATE:  -  two  different  types 

type  MIDWEEK  Is  nsw  DAY  range  TUE  ,.  THU;  -  see  3,B,1 

type  COUNTER  Is  new  POSITIVE;  --  same  ronge  as  POSITIVE 

type  SPECIAL_KEY  Is  new  KEY_MANAQER.KEY;  -  see  7,4,2 

-  the  derived  subpronrami  have  the  following  epeclflcntlons; 

-  procedure  QET_KEY(K  :  out  SPECI,''L.KEY); 

-  function  "<"(X,Y  ;  SPECIAL.KEY)  return  BOOLEAN; 
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Notes: 


The  rules  of  derivation  of  basic  operations  and  enumeration  literais  imply  that  the  notation  for  any 
literal  or  aggregate  of  the  derived  type  is  the  same  as  for  the  parent  type;  such  literals  and 
aggregates  are  said  to  be  overloaded.  Similarly,  It  follows  that  the  notation  for  denoting  a  compo¬ 
nent,  a  discriminant,  an  entry,  a  slice,  or  an  attribute  is  the  same  for  the  derived  type  as  for  the 
parent  type. 

Hiding  of  a  derived  subprogram  is  allowed  even  within  the  same  declarative  region  (see  8.3).  A 
derived  subprog'-am  hides  a  predefined  operator  that  has  the  same  parameter  and  result  type 
profile  (see  6.6), 

A  generic  subprogram  declaration  is  not  derivable  since  it  declares  a  generic  unit  rather  than  a  sub¬ 
program,  On  the  other  hand,  an  Instantiation  of  a  generic  subprogram  is  a  (nongenoric)  sub¬ 
program,  which  is  derivable  if  it  satisfies  the  requirements  for  derivability  of  subprograms, 

If  the  parent  type  is  a  boolean  type,  the  predefined  relational  operators  of  the  derived  type  deliver  a 
result  of  the  predefined  type  BOOLEAN  (see  4.5.2). 

If  a  representation  clause  is  given  for  the  parent  type  but  appears  after  the  derived  type  declara¬ 
tion,  then  no  corresponding  representation  clause  applies  to  the  derived  type;  hence  an  explicit 
representation  clause  for  such  a  derived  type  Is  allowed. 

For  a  derived  subprogram,  if  a  parameter  belongs  to  the  derived  type,  the  subtype  of  this 
parameter  need  not  have  any  value  in  common  with  the  derived  subtype. 

References:  access  value  3,8,  actual  parameter  6,4,1,  aggregate  4,3,  attribute  4.1.4,  base  type  3.3,  basic  operation 
3.3,3,  boolean  type  3.5.3,  bound  of  a  range  3.6,  class  of  type  3.3,  collection  3.8,  component  3.3,  composite  type  3,3, 
constraint  3.3,  conversion  4.6,  declaration  3.1,  declarative  region  8.1,  default  expression  3.2,1,  default  initial  valuator 
an  access  type  3.8,  discriminant  3,3,  elaboration  3,9,  entry  9.B,  enumeration  literal  3.5,1,  floating  point  constraint 
3.6,7,  fixed  point  constraint  3.6,9,  formal  parameter  6.1,  function  cell  6.4,  generic  declaration  12.1,  immediately 
within  8.1,  Implicit  declaration  3.1,  literal  4,2,  mode  6.1,  overloading  6.6  8,7,  package  7,  package  spaclflcotlon  7,1, 
parameter  association  6,4,  predefined  operator  4,6,  private  type  7.4,  procedure  6,  procedure  call  statement  6,4,  range 
constraint  3,5,  representation  clause  13.1,  reserved  word  2.9.  slice  4,1.2,  subprogram  6,  subprogram  spaolflcation 
6.1,  subtype  indication  3.3,2,  subtype  3.3,  type  3.3,  type  definition  3.3.1,  visible  part  7.2 


3.5  Scalar  Types 


Scalar  types  comprise  enumeration  types.  Integer  types,  and  real  types.  Enumeration  types  and 
iiiieger  types  are  called  discrete  types;  each  value  of  a  discrete  type  has  a  position  number  which 
is  an  integer  value,  Integer  types  and  real  types  are  ceiled  numenc  types.  All  scalar  types  are 
ordered,  that  is,  all  relational  operators  are  predefined  for  their  values. 

range_constraint  range  range 

range  ran.ge_attrlbute 

I  simple._0xpra3sion  ,,  slmple_expression 


3.5  Scalnr  Types 
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A  range  specifies  a  subset  of  values  of  a  scalar  type.  The  range  L  ..  R  specifies  the  values  from  L  to 
R  inclusive  if  the  relation  L  <=  R  is  true.  The  values  L  and  R  are  called  the  lower  bound  and  upper 
bound  of  the  range,  respectively.  A  value  V  is  said  to  satisfy  a  range  constraint  if  it  belongs  to  the 
range;  the  value  V  is  said  to  belong  to  the  range  If  the  relations  L  <—  V  and  V  <=  R  are  both  TRUE , 
A  null  range  Is  a  range  for  which  the  relation  R  <  L  is  TRUE  ;  no  value  belongs  to  a  null  range.  The 
operators  <=  and  <  in  the  above  definitions  are  the  oredefined  operators  of  the  scalar  type. 

If  a  range  constraint  is  used  in  a  subtype  indication,  either  directly  or  as  part  of  a  floating  or  fixed 
point  constraint,  the  type  of  the  simple  expressions  (likewise,  of  the  bounds  of  a  range  attribute) 
must  be  the  samo  as  the  base  type  of  the  type  mark  of  the  subtyp<,  indication.  A  range  constraint  is 
compatible  with  a  subtype  if  each  bound  of  the  tango  belongs  to  the  subtype,  or  if  the  range  con¬ 
straint  defines  a  null  range:  otherwise  the  rente  constraint  is  not  compatible  with  the  subtype. 

The  elaboration  of  a  range  constraint  consists  of  the  evaluation  of  the  range.  The  evaluation  of  a 
range  defines  its  lower  bound  and  Its  uppei  bound.  If  simple  expressions  are  given  to  specify  the 
bounds,  the  evaluation  of  the  range  evaluaiss  these  simple  expressions  in  some  order  that  is  not 
defined  by  the  language. 

Attributes 

Foi  any  scalar  type  T  or  for  any  subtype  T  df  a  scala'  type,  the  following  attributes  are  defined: 
T'FIRST  Yields  the  lower  bound  of  T.  The  value  of  this  attribute  has  the  same  type  as  T. 

T'LAST  Yields  the  upper  bound  of  T.  The  value  of  this  attribute  has  the  same  type  as  T, 

Note: 

Indexing  and  iteration  rules  uae  values  of  discrete  types. 

References:  attribute  4.1,4,  conatraint  3.3,  enumeration  type  3,5,1,  erroneous  1,6,  evaluation  4,5,  fixed  point 
constraint  3,6,9,  floating  point  constraint  3,5,7,  Index  3,6,  Integer  type  3.6.4,  loop  statement  6.6,  range  attribute 

3.6.2,  real  type  3.5.6,  relational  operator  4.5  4.5.2,  satisfy  a  constraint  3.3,  simple  expression  4.4,  subtype  indication 

3.3.2,  type  mark  3.3.2 


3.5.1  Enumeration  Types 


,An  enumeration  type  definition  defines  an  enumeration  typo. 
enumeratlon_type_definition  ;:= 

(enumeratlonJitaraLspecifloatlon  |,  enumeratlonJIteraLspecIficatlonI) 

enumeratlonJItoraLspeolfIcation  enumeratlonJIteral 

enumeratlonJIteral  Idantlflar  |  characterJItoral 

The  identifiers  and  character  literals  listed  by  an  enumeralion  type  definition  must  he  diatinct.  Each 
enumeration  literal  specification  is  the  declaration  of  the  corresponding  enumeration  literal;  this 
declaration  is  equivalent  to  the  declaration  of  a  parameterless  function,  the  designator  boin.)  rim 
enumeration  literal,  and  the  result  type  being  the  enumeration  type.  The  elaboration  ct  un 
enumeration  type  definition  creates  an  enumeration  type;  this  elaboration  Includes  that  of  every 
enumeration  litoral  specification. 
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Enumeration  Types  3.5.1 
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i  Each  enumeration  literal  yields  a  different  enumeration  value.  The  predefined  order  relations 
between  enumeration  values  follow  the  order  of  corresponding  position  numbers.  The  position 
number  of  the  value  of  the  first  listed  enumeration  literal  is  zero;  the  position  number  for  each 
other  enumeration  literal  Is  one  more  than  for  Its  predecessor  In  the  list. 

5  If  the  same  identifier  or  character  literal  is  specified  in  more  than  one  enumeration  typo  definition, 
the  corresponding  literals  are  said  to  be  ovmloeded.  At  any  place  where  an  overloaded  enumera¬ 
tion  literal  occurs  in  the  text  of  a  program,  the  type  of  the  enumeration  literal  must  be  determinable 
from  the  context  (see  8.7). 

0  Examples: 

type  DAY  it  (MON,  TUE,  WED,  THU,  FRI,  SAT,  SUN); 

typo  SUIT  ii  (CLUBS,  DIAMONDS,  HEARTS,  SPADES); 

type  GENDER  i*  (M,  F); 

typo  LEVEL  it  (LOW,  MEDIUM,  URGENT); 

typo  COLOR  It  (WHITE,  RED,  YELLOW,  GREEN,  BLUE,  BROWN,  BLACK); 

typo  LIGHT  it  (RED,  AMBER,  GREEN);  -  RED  and  GREEN  are  overloaded 

typo  HEXA  ii  CA',  ’B’,  'C',  'D',  'E',  'F'); 

typo  MIXED  it  ('A',  'B',  '*■,  B,  NONE,  '?',  '%'); 

aubtypo  WEEKDAY  It  DAY  rango  MON  ..  FRI; 

subtypo  MAJOR  it  SUIT  range  HEARTS  ..  SPADES; 

aubtypo  RAINBOW  it  COLOR  rango  RED  ..  BLUE;  —  the  color  RED,  not  the  light 

Note: 

1  If  an  enumeration  literal  occurs  In  a  context  that  does  not  otherwise  suffice  to  determine  the  type 
of  the  literal,  then  qualification  by  the  name  of  the  enumeration  type  is  one  way  to  resolve  the 
ambiguity  (see  8.7), 

e  References:  character  I'loral  2.6,  declaration  3.1,  daaignator  6.1,  elaboration  3.9,  6.1,  function  6.6,  Identifier  2.3, 
name  4.1,  overloading  f  6  8.7,  position  number  3.6,  qualified  expression  4.7,  relational  operator  4.6  4,5.2,  type  3.3, 
type  definition  3.3.1 


3.5.2  Character  Types 


I  An  enumeration  typo  is  said  to  be  a  character  typs  if  at  least  one  of  its  enumeration  litorals  is  a 
character  literal.  The  predefined  typo  CHARACTER  Is  a  character  type  whose  values  are  the  128 
characters  of  the  ASCII  character  set.  Each  of  the  95  graphic  characters  of  this  character  set  Is 
denoted  by  the  correeponding  character  literal. 

If  Example: 

type  ROMAN..DIGIT  is  (T,  'V,  'X',  'L',  'C',  'D',  'M'); 

Notes: 

3  T)ie  predefined  package  ASCII  includes  the  declaration  of  constants  denoting  control  characters 
and  of  constants  denoting  graphic  characters  that  are  not  In  the  basic  character  set. 


3.5.2  Character  Types 
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OeclaratioriH  and  Typos 


A  conventional  character  set  such  as  EBCDIC  can  be  declared  as  a  character  type;  the  internal 
codes  of  the  characters  can  be  specified  by  an  enumeration  representation  clause  as  explained  in 
section  13.3, 

ReferoncBs:  ascii  predefined  package  C,  basic  character  2.1,  character  llterel  2.5,  constant  3.2.1,  declaration  3.1, 
enumeration  type  3,5,1,  graphic  character  2.1,  Identifier  2,3,  literal  4,2,  predefined  type  C,  type  3,3 


3.5.3  Boolean  Types 


There  is  a  predefined  enumeration  type  named  BOOLEAN .  It  contains  the  two  literals  FALSE  and 
TRUE  ordered  with  the  relation  FALSE  <  TRUE.  A  boolean  type  is  either  the  type  BOOLEAN  or  a 
type  that  is  derived,  directly  or  Indirectly,  from  a  boolean  type. 

References:  derived  type  3.4,  enumeration  literal  3.6,1,  enumeration  type  3,5,1,  relational  operator  4.6  4.6.2,  type 
3,3 


3.5.4  Integer  Types 


An  integer  type  definition  defines  an  integer  type  whose  set  of  values  Includes  at  least  those  of  the 
specified  range. 

lntoger_typo_deflnitlon  !!=  range^constralnt 

If  a  range  constraint  Is  used  as  an  Integer  type  definition,  each  bound  of  the  range  must  be  defined 
by  a  static  expression  of  some  Integer  type,  but  the  two  bounds  need  not  have  the  same  Integer 
type.  (Negative  bounds  are  allowed.) 

A  type  declaration  of  the  form: 

typo  T  Is  range  L  ..  R; 

is,  by  definition,  equivalent  to  the  following  declarations: 

type  Integerjtype  Is  new  predeflned_lnteger_typo; 

subtype  T  Is  Integerjtype  range  lntegerjtype{\.)  ..  lntegerjtype\.R)-, 

where  Integerjtype  Is  an  anonymous  type,  and  whore  the  predefined  Integer  type  Is  Implicitly 
selected  by  the  Implementation,  so  as  to  contain  the  values  L  to  R  Inclusive.  The  integer  type 
declaration  Is  Illegal  If  none  of  the  predefined  Integer  typos  satisfies  this  requirement,  excepting 
unIversaIJnteger.  The  elaboration  of  the  declaration  of  an  Integer  type  consists  of  the  elaboration 
of  the  equivalent  type  and  subtype  declarations. 

The  predefined  Integer  types  include  the  type  INTEGER.  An  Implementation  may  also  have 
predefined  types  such  as  SHORTJNTEGER  and  LONQJNTEGER  ,  which  have  (substantially)  shorter 
and  longer  ranges,  respectively,  than  INTEGER.  The  range  of  each  of  those  types  must  be 
symmetric  about  zero,  excepting  an  extra  negative  vr.lue  which  may  exist  In  some  Implementa¬ 
tions,  The  base  type  of  each  of  these  types  is  the  typo  Itself. 
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Integer  Types  3.5.4 
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Integer  literals  are  the  literals  of  an  anonymous  predefined  Integer  type  that  is  called  unlvsr- 
saUnteger  in  this  reference  manual.  Other  Integer  types  have  no  literals.  However,  for  each 
integer  type  there  exists  an  implicit  conversion  that  converts  a  universal Jntegar  va\UB  into  the  cor¬ 
responding  value  (if  any)  of  the  integer  type.  The  circumstances  under  which  these  implicit  conver¬ 
sions  are  Invoked  are  described  in  section  4.6. 

The  position  number  of  an  Integer  value  is  the  corresponding  value  of  the  type  unlversaUnteger. 

The  same  arithmetic  operators  are  predefined  for  all  Integer  types  (see  4.6).  The  exception 
NUMERIC_ERROR  is  raised  by  the  execution  of  an  operation  (in  paiUcular  on  Implicit  conversion) 
that  cannot  deliver  the  correct  result  (that  is,  If  the  value  corresponding  to  the  mathematical  result 
is  not  a  value  of  the  integer  type).  However,  an  implementation  Is  not  required  to  raise  the  excep¬ 
tion  NUMERIC_ERROR  If  the  operation  is  part  of  a  larger  expression  whose  result  can  be  computed 
correctly,  as  described  in  section  1 1 .6. 

Examples: 

type  PAGE_NUM  is  range  1  ..  2_000; 

type  LINE.^SIZE  Is  range  1  ..  MAX_UNE_SIZE; 

subtype  SMALUNT  Is  INTEGER  range  -10  ..  10; 

subtype  COLUMN_PTR  Is  I.INE_SIZE  range  1  ..  10, 

subtype  BUFFER.SIZE  Is  INTEGER  range  0  ..  MAX; 

Notes; 

The  name  declared  by  on  Integer  type  declaration  le  a  subtype  name.  On  the  other  hand,  the 
predefined  operators  of  an  Integer  type  deliver  results  whose  range  Is  defined  by  the  parent 
predefined  type;  such  a  result  need  not  belong  to  the  declared  subtype.  In  which  case  an  attempt 
to  assign  the  result  to  a  variable  of  the  Integer  aubtype  raises  the  exception  CONSTRAINT..ERROR . 

The  smallest  (most  negative)  value  supported  by  the  predefined  Integer  types  of  an  implementa¬ 
tion  Is  the  named  number  SYSTEM  .MIN JNT  and  the  largest  (mont  positive)  value  is 
SYSTEM.MAX_INT  (see  13.7). 


References;  anonymout  typa  3.3.1 ,  belong  to  a  aubtypa  3.3,  bound  of  a  range  3.5,  conatralnt-arror  axoaptlon  11.1, 
conversion  4,0,  Identifier  2,3,  Integer  literal  2,4,  literal  4.2,  numeric  .error  exception  11,1,  parent  type  3,4,  predefined 
operator  4.B,  range  oonatraint  3,5,  atatlc  expreealon  4.9,  aubtype  d(  deration  3,3.2.  ayatom  predefined  package  13.7, 
type  3,3,  type  declaration  3.3.1,  typa  definition  3,3.1,  universal  type  4.10 


3.6.6  Operations  of  DIsorata  Typos 


The  basic  operations  of  a  discrete  type  Include  the  operations  Involved  In  assignment,  the 
membership  tests,  and  qualification;  for  a  boolean  type  they  Include  the  ahort-oircult  control  forms; 
for  an  integer  type  they  Include  the  explicit  conversion  of  values  of  other  numeric  types  to  the 
Integer  type,  and  the  Implicit  conversion  of  values  of  the  type  unlversaljnteger  to  the  type. 

Finally,  for  every  discrete  type  or  subtype  T,  the  basic  operations  Include  the  attributes  listed 
below.  In  this  presentation,  T  Is  referred  to  as  being  a  subtype  (the  subtype  T)  for  any  property  that 
depends  on  constraints  Imposed  by  T;  other  properties  are  stated  In  terms  of  the  base  type  of  T. 


3,5.5  Operations  of  Discrete  Types 
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Declarations  and  Types 


The  first  group  of  attributes  yield  characteristics  of  the  subtype  T.  This  group  includes  the  attribute 

BASE  (see  3.3.2),  the  attributes  FIRST  and  LAST  (see  3.5).  the  representation  attribute  SIZE  (see 

1 3.7.2),  and  the  attribute  WIDTH  defined  as  follows: 

T'WIDTH  Yields  the  maximum  Imago  length  over  all  values  of  the  subtype  T  (the  image  is  the 
sequence  of  characters  returned  by  the  attribute  IMAGE ,  see  below).  Yields  zero 
for  a  null  range.  The  value  of  this  attribute  Is  of  the  type  universaIJnteger. 

All  attributes  of  the  second  group  are  functions  with  a  single  parameter.  The  corresponding  actual 

parameter  is  indicated  below  by  X. 

T'POS  This  attribute  is  a  function.  The  parameter  X  must  be  a  value  of  the  base  type  of  T. 

The  result  type  Is  the  type  universal Jnteger.  The  result  is  the  position  number  of 
the  value  of  the  parameter. 

TVAL  This  attribute  Is  a  special  function  with  a  single  parameter  which  can  be  of  any 

Integer  type.  The  result  typo  Is  the  base  type  of  T.  The  result  Is  the  value  whose 
position  number  Is  the  unlverseUnteger  value  corresponding  to  X.  The  exception 
CONSTRAINT.ERROR  Is  raised  if  the  unlversaUntegar  value  corresponding  to  X  Is 
not  In  the  range  T POSITBASE  FIRST) ..  T'POSITBASE'LAST) . 

T'SUCC  This  attribute  Is  a  function.  The  parameter  X  must  be  a  value  of  the  base  type  of  T, 
The  result  type  is  the  base  type  of  T.  The  result  Is  the  value  whose  position  number 
Is  one  greater  than  that  of  X.  The  exception  CONSTRAINT_ERROR  Is  raised  If  X 
equals  TBASE'LAST. 

TPRED  This  attribute  Is  a  function.  The  parameter  X  must  be  a  value  of  the  base  type  of  T, 
The  result  type  la  the  base  type  of  T.  The  result  is  the  value  whose  position  number 
is  one  less  than  that  of  X.  The  exception  CONSTRAINT.ERROR  Is  raised  If  X  equals 
T'BASE'FIRST. 

T'lMAGE  This  attribute  Is  a  function.  The  parameter  X  must  be  a  value  of  the  base  type  of  T. 

The  result  type  Is  the  predefined  type  STRING .  The  result  Is  the  Image  of  the  value 
of  X.  that  la,  a  sequence  of  characters  representing  the  value  In  display  form.  The 
image  of  an  Integer  value  Is  the  corresponding  decimal  literal;  without  underlines, 
leading  zeros,  exponent,  or  trailing  spaces;  but  with  a  single  leading  character  that 
Is  either  a  minus  sign  or  a  space.  The  lower  bound  of  the  Image  Is  one. 

The  Image  of  an  enumeration  value  Is  either  the  corresponding  Identifier  In  upper 
case  or  the  corresponding  character  literal  (Including  the  two  apostrophes); 
neither  loading  nor  trailing  spaces  are  Included,  The  image  of  a  character  C, other 
than  a  graphic  character,  Is  Implementation-defined;  the  only  requirement  Is  that 
the  Image  must  be  such  that  C  equals  CHARACTERVALUE  (CHARACTER'IMAGE  (C)). 

TVALUE  This  attribute  Is  a  function.  The  parameter  X  must  be  a  value  of  the  predefined  type 
STRING.  The  result  typo  Is  the  base  type  of  T,  Any  leading  and  any  trailing  spaces 
of  the  sequence  of  characters  that  corresponds  to  the  parameter  are  Ignored. 

For  an  enumeration  type,  If  the  sequence  of  characters  has  the  syntax  of  an  > 
enumeration  literal  and  If  this  literal  exists  for  the  base  type  of  T,  the  result  Is  the 
corresponding  enumeration  value.  For  an  Integer  type,  If  the  sequence  of 
characters  has  the  syntax  of  an  integer  literal,  with  an  optional  single  leading 
character  that  Is  a  plus  or  minus  sign,  and  If  there  Is  a  corresponding  value  in  the 
base  type  of  T,  the  result  is  this  value.  In  any  other  case,  the  exception 
CONSTRAINT_ERROR  la  raised. 
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H  In  addition,  the  attributes  A'SIZE  and  A'ADDRESS  are  defined  for  an  object  A  of  a  discrete  type 
(see  13.7.2). 

15  Besides  the  basic  operations,  the  operations  of  a  discrete  type  include  the  predefined  relational 
operators.  For  enumeration  types,  operations  include  enumeration  literals.  For  boolean  types, 
operations  Include  the  predefined  unary  logical  negation  operator  not,  end  the  predefined  logical 
operators.  For  integer  types,  operations  Include  the  predefined  arithmetic  operators;  these  are  the 
binary  and  unary  adding  operators  -  end  +,  all  multiplying  operators,  the  unary  operator  abs,  and 
the  exponentiating  operator. 

16  The  operations  of  a  subtype  are  the  corresponding  operations  of  its  base  type  except  for  the  fol¬ 
lowing:  assignment,  membership  tests,  qualification,  explicit  type  conversions,  and  the  attributes 
of  the  first  group;  the  affect  of  each  of  these  operations  depends  on  the  subtype  (assignments, 
membership  tests,  qualifications,  and  conversions  Involve  a  subtype  check;  attributes  of  the  first 
group  yield  a  characteristic  of  the  subtype). 

Notes; 

17  For  a  subtype  of  a  discrete  type,  the  results  delivered  by  the  attributes  SUCC,  PREO,  VAL,  and 
VALUE  need  not  belong  to  the  subtype;  similarly,  the  actual  parameters  of  the  attributes  POS, 
SUCC,  PRED,  and  IMAGE  need  not  belong  to  the  subtype.  The  following  relations  are  satisfied  (In 
the  absence  of  an  axceptlon)  by  these  attributes; 

rpos(rsucc(X)i  -=  rposixi  +  i 

rpos(rpRED(x))  rpos(xi  -  i 

T'VAL(T'POS(X))  -  X 

rPOS(rVAL(N)l  =.  N 

ts  Examples; 

For  the  typos  snd  subtypes  declared  in  section  3.5.1  we  have; 

-  COLORTIRST  «  WHITE,  COLOR'LAST  »  BLACK 

-  RAINBOWFIflST  =  RED,  RAINBOW'LAST  »  BLUE 

-  COLOR'SUCC(BLUE)  -  RAINBOW'SUCC(BLUE)  «  BROWN 

-  COLOR'POS(BLUE)  >  RAINBOWPOS(BLUE)  -  4 

-  COLOR'VAL(O)  -  RAINBOW'VAL(O)  -  WHITE 


Iteferencas:  abo  operator  4.5  4.5.0,  aaalgnmont  6.2,  attribute  4.1.4,  baao  type  3.3,  baalc  operation  3.3.3,  binary 
adding  operator  4.5  4.5.3,  boolean  type  3.5.3,  bound  of  a  range  3.6,  character  tarsi  2.5,  conitraint  3.3,  oon- 
atraint..6rror  exception  11.1,  conversion  4.0,  discrete  type  3.5,  enumaratlon  literal  3.5.1 ,  exponentiating  operator  4.6 
4. (.1.6.  function  6.5,  graphic  character  2.1,  Identifier  2.3,  Integer  type  3.6.4.  logical  operator  4.6  4.6.1,  membership 
teat  4.5  4.5.2,  multiplying  operator  4.5  4.6.6,  not  operator  4.6  4.5.6,  numeric  ll••’'dl  2.4,  numeric  type  3.6,  object  3.2, 
operation  3.3,  position  number  3.6,  prodaflnad  operator  4.5,  predaflnad  type  C,  qualified  expression  4.7,  relational 
operator  4.5  4.5.2,  short-circuit  control  hirm  4.6  4.6.1,  string  type  3.6.3,  subtype  3.3,  type  3.3,  unary  adding  operator 
4.5  4.5.4,  unlvarsaUntsgar  type  3.6.4,  universal  type  4.10 
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3.6.6  Real  Types 


Real  types  provide  approxinriatlons  to  the  real  numbers,  with  relative  bounds  on  errors  for  floating  i 
point  types,  and  with  absolute  bounds  for  fixed  point  types. 

roal_type_deflnition  2 

floating_polnt.constraint  |  flxed-point-constraint 

A  set  of  numbers  called  modal  numbars  is  associated  with  each  real  typo.  Error  bounds  on  the  i 
predefined  operations  are  given  in  torms  of  the  model  numbers.  An  implementation  of  the  type 
must  include  at  least  these  model  numbers  and  represent  them  exactly. 

An  implementatlon-dependent  sot  of  numbers,  called  the  sofa  numbars,  Is  also  associated  with  4 
each  real  type.  The  set  of  safe  numbars  of  a  real  type  must  Include  at  least  the  set  of  model 
numbers  of  the  type.  The  range  of  safe  numbers  Is  allowed  to  be  larger  than  the  range  of  model 
numbers,  but  error  bounds  on  the  predefined  operations  for  safs  numbers  are  given  by  the  same 
rules  as  for  model  numbers.  Safe  numbers  therefore  provide  guaranteed  error  bounds  for  opera¬ 
tions  on  an  implementation-dependent  range  of  numbars;  in  contrast,  the  range  of  model  numbers 
depends  only  on  the  teal  type  definition  and  is  therefore  independent  of  the  Implementation. 

Real  literals  are  the  literals  of  an  anonymous  predefined  real  type  that  Is  called  univarsolwaal  In  b 
this  reference  manual.  Other  rual  types  have  no  literals.  However,  for  each  real  type,  there  exists  an 
implicit  conversion  that  converts  a  unlvorsolu'ool  value  Into  a  value  of  the  real  type.  The  condi¬ 
tions  under  which  these  Implicit  conversions  are  Invoked  are  described  In  section  4.6.  If  the 
unlvarsol^aal  value  Is  a  safe  number,  the  impllcif  conversion  delivers  the  corresponding  value;  if  It 
belongs  to  the  range  of  safs  numbers  but  Is  not  a  safe  number,  then  the  converted  value  can  be 
any  value  within  the  range  defined  by  the  safe  numbars  next  above  and  below  the  univarsaijraal 
value, 

The  execution  of  an  operation  that  yields  a  value  of  a  real  type  may  raise  the  exception  e 
NUMERIC_ERROR,  as  explained  in  section  4.6.7,  If  it  cannot  deliver  a  correct  result  (that  Is,  if  the 
value  corresponding  to  one  of  the  possible  mathematical  results  does  not  belong  to  the  range  of 
safe  numbers);  in  particular,  this  exception  can  be  raised  by  an  implicit  conversion.  However,  an 
implementation  Is  not  required  to  raise  the  exception  NUMERIC_ERROR  If  the  operation  Is  part  of  a 
larger  expression  whose  result  can  be  computed  correctly  (see  1 1 .6). 

The  elaboration  of  a  real  type  definition  Includes  the  elaboration  of  the  floating  or  fixed  point  con-  7 
straint  and  creates  a  real  type. 

Note: 

An  algorithm  written  to  rely  only  upon  the  minimum  numerical  properties  guaranteed  by  the  type  a 
definition  tor  model  numbers  will  be  portable  without  further  precautions. 

Rafarancaa:  converalon  4.6,  slaborstlon  3.9,  fixed  point  constraint  3.5.9,  floating  point  constraint  3.6.7,  literal  4.2,  t 
numarlc_error  exception  11.1,  predefined  opsretlon  3.3.3,  real  literal  2.4,  type  3.3.  type  definition  3.3.1,  unlveraal 
type  4.10 
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3.6.7  Floating  Point  Typoa 


For  floating  point  typed,  the  error  bound  la  aperifled  as  a  relative  precision  by  giving  the  required 
minimum  number  of  significant  decimal  digits. 

floating_point_con8tralnt 

floatlng_accur8cy .definition  (ranGe_constraint] 

floating_.accuracy_dffinitlon  digits  jrar/c_simple_sxpression 

The  minimum  number  of  significant  decimal  digits  Is  specified  by  the  value  of  the  static  simple 
expression  of  the  floating  accuracy  definition.  This  value  must  belong  to  some  integer  type  and 
must  be  positive  (nonzero);  it  is  denoted  by  D  in  the  remainder  of  this  section.  If  the  floating  point 
constraint  Is  used  as  a  real  type  definition  and  Includes  a  range  constraint,  then  each  bound  of  the 
ranyo  must  be  defined  by  a  static  expression  of  some  real  type,  but  the  two  hounds  need  not  have 
the  same  real  type. 

For  a  given  radix,  the  following  canonical  form  is  defined  for  any  floating  point  model  number  other 
than  zero; 

sign  K  mantissa  *  (radix  **  axponant) 

In  this  form;  sign  is  either  +1  or  -1 ;  n:antlssa  is  expressed  In  a  number  bass  given  by  radix:  and 
exponent  is  an  Integer  number  (possibly  negative)  such  that  the  integer  part  of  mantissa  Is  zero 
and  the  first  digit  of  Its  fractional  part  Is  not  a  zero. 

The  specified  number  D  Is  the  minimum  number  of  decimal  digits  required  after  the  point  In  the 
decimal  mantissa  (that  Is,  If  radix  Is  ten).  The  value  of  D  In  turn  determines  a  corresponding 
number  B  that  Is  the  minimum  number  of  binary  digits  required  after  the  point  in  the  binary  man¬ 
tissa  (that  Is,  If  radix  Is  two).  The  number  B  assooieted  with  D  is  the  smallest  value  such  that  the 
relative  precision  of  the  binary  form  is  no  less  than  that  spociflad  for  the  decimal  form.  (The 
number  B  is  the  integer  next  above  (D*log(10)/log(2))  +  1.) 

The  model  numbers  defined  by  a  floating  accuracy  definition  comprise  zero  and  all  numbers  whose 
binary  canonical  form  has  exactly  B  digits  after  the  point  In  the  mantissa  and  an  exponent  In  the 
range  -4>  B  ..  +4ikB.  The  guaranteed  minimum  accuracy  of  opeiatlons  of  a  floating  point  typo  Is 
defined  in  terms  of  the  model  numbers  of  the  floating  point  constraint  that  forms  the  cor¬ 
responding  real  type  definition  (see  4.5.7). 

The  predefined  floating  point  typos  Include  the  type  FLOAT.  An  Implementation  may  also  have 
predefined  types  such  as  SHORT_FLOAT  and  LONQ._FLOAT.  which  have  (substantially)  less  and 
more  accuracy,  respectively,  than  FLOAT.  The  base  type  of  each  predefined  floating  point  type  Is 
the  type  Itself.  The  model  numbers  of  each  predefined  floating  point  type  are  defined  in  terms  of 
the  number  D  of  decimal  digits  returned  by  the  attribute  DIGITS  (see  3.5.8). 

For  each  predefined  floating  point  type  (consequently  also  for  each  type  derived  therefrom),  a  set 
of  safe  numbers  Is  defined  as  follows.  The  safe  numbers  hove  the  some  number  B  of  mantissa 
digits  as  the  model  numbers  of  the  type  and  have  an  exponent  In  the  range  -I:  -t-E  where  E  la 
Implementation-defined  and  at  least  equal  to  the  4*B  of  model  numbers.  (Consequently,  the  safe 
numbers  Include  the  model  numbers.)  The  rules  defining  the  accuracy  of  operations  with  model 
end  safe  numbers  are  given  In  section  4.5.7.  The  safe  numbers  of  a  subtype  are  those  of  Its  base 
type. 
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A  floating  point  type  decipration  of  one  of  the  two  forms  (that  Is,  with  or  without  the  optional  range 
constraint  indicated  by  the  square  brackets); 

type  T  It  digits  D  [range  L  ..  R]; 

Is,  by  definition,  equivalent  to  the  following  declarations; 

type  floatlng.jjolnt^type  it  new  predefined_flooting_polnt_type; 
tubtype  T  it  floating ^olntJtypa  digits  D 

[range  floatlngjpolntJtype([.)  floating ^olntjtypa\f\)]-. 

where  floating^olnt^typa  Is  an  anonymous  type,  and  where  the  predefined  floating  point  type  Is 
Implicitly  selected  by  the  implementation  so  that  Its  model  numbers  include  the  model  numbers 
defined  by  D;  furthermore,  It  a  range  L  ..  R  Is  supplied,  then  both  L  and  R  must  belong  to  the  range 
of  safe  numbers.  The  floating  point  declaration  is  illegai  if  none  of  the  predefined  floating  point 
types  satisfies  these  requirements,  excepting  unlvarsal^eal.  The  maximum  number  of  digits  that 
can  be  specified  In  a  floating  accuracy  definition  ia  given  by  the  system-dependent  named  number 
SYSTEM, MA)C_DIQITS  (see  13,7.1). 

The  elaboration  of  a  floating  point  typo  declaration  consists  of  the  elaboration  of  the  equivalent 
type  and  subtype  declarations. 

If  a  floating  point  constraint  follows  a  type  mark  in  a  subtype  Indication,  the  type  mark  must 
denote  a  floating  point  type  or  subtype.  The  floating  point  constraint  Is  compatible  with  the  type 
mark  only  if  the  number  6  speulflad  In  the  floating  accuracy  definition  la  not  greater  than  the  cor¬ 
responding  number  0  for  the  type  or  subtype  denoted  by  the  type  mark.  Furthermore,  If  the 
floating  point  constraint  Includes  a  range  constraint,  the  floating  point  constraint  Is  compatible 
with  the  type  mark  only  If  the  range  constraint  Is,  Itself,  compatible  with  the  type  mark. 

The  elaboration  of  such  a  subtype  Indication  Includes  the  elaboration  of  the  range  constraint.  If 
there  is  one;  It  creates  a  floating  point  nubtyps  whose  model  numbers  are  defined  by  the  cor¬ 
responding  floating  accuracy  definition,  A  value  of  a  floating  point  type  belongs  to  a  floating  point 
subtype  If  and  only  If  It  belongs  to  the  range  defined  by  the  subtype. 

The  same  arithmetic  operators  are  predefined  for  all  floating  point  types  (see  4.5). 

Notes: 

A  range  constraint  Is  allowed  In  a  floatii.g  p>.'nt  subtype  indication,  either  directly  after  ♦he  type 
mark,  or  as  part  of  a  floating  point  constraint.  In  either  case  the  bounds  of  the  range  must  belong 
to  the  base  type  of  the  type  mark  (see  3.5).  The  Imposition  of  a  floating  point  constraint  on  a  type 
mark  In  a  subtype  Indication  cannot  reduce  the  allowed  range  of  values  unless  It  includes  a  range 
constraint  (the  range  of  model  numbers  that  correspond  to  the  specified  number  of  digits  can  be 
smeller  than  the  range  of  numbers  of  tho  type  mark).  A  value  that  belongs  to  a  floating  point  sub- 
type  need  not  be  a  model  number  of  the  subtype. 

Examples; 

type  COEFFICIENT  Is  digits  10  range  -1.0  ..  1.0; 

type  REAL  Is  digits  B; 

type  MASS  Is  digits  7  range  0.0  ..  1.0E35: 

subtype  SH0RT„C0EFF  Is  COEFFICIENT  digits  B;  -  a  suh’vpe  with  los..  accuracy 

subtype  PROBABILITY  Is  REAL  range  0.0  ..  1.0;  -  a  subtype  with  a  smaller  range 
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Notes  on  the  examples: 

19  The  Implemented  accuracy  for  COEFFICIENT  Is  that  of  a  predefined  type  having  at  least  1 0  digits  of 
precision,  Consequently  the  specification  of  5  digits  of  precision  for  the  subtype  SHORT_COEFF  Is 
allowed.  The  largest  model  number  for  the  type  MASS  Is  approximately  1.27E30  and  hence  less 
than  the  specified  upper  bound  (1.0E35).  Consequently  the  declaration  of  this  type  is  legal  only  If 
this  upper  bound  is  In  the  range  of  the  safe  numbers  of  a  predefined  floating  point  type  having  at 
least  7  digits  of  precision. 

JO  References:  anonymous  type  3,3,1 ,  arithmetic  operator  3,6,5  4,5,  based  literal  2,4,2,  belong  to  e  subtype  3.3,  bound 
of  a  range  3,5,  compatlbla  3,3.2,  derived  type  3,4,  digit  2.1,  elaboration  3,1  3.9,  error  bound  3.6.6,  exponent  2,4.1 
Integer  type  3.6,4,  model  number  3.5,6,  operation  3.3,  predefined  operator  4,6,  predefined  type  C,  range  constraint 
3.5,  real  type  3,5,6,  real  type  definition  3.5.6,  safe  number  3,6.6,  simple  expression  4.4,  static  expression  4,9,  subtype 
declaration  3.3,2,  subtype  Indication  3.3.2,  subtype  3,3,  type  3.3,  type  declaration  3,3,1,  type  mark  3,3,2 


3.5.8  Oparatlons  of  Floating  Point  Typaa 


I  The  basic  operations  of  a  floating  polni  type  Include  the  operations  Involved  In  assignment, 
membership  tests,  qualification,  the  explicit  conversion  of  values  of  other  numeric  types  to  the 
floating  point  type,  and  the  Implicit  conversion  of  values  of  the  type  unlvarsaljteal  to  the  type. 

j  In  addition,  for  every  floating  point  type  or  subtype  T,  the  basic  operations  Include  the  attributes 
listed  below.  In  this  presentation,  T  Is  referred  to  as  being  a  subtype  (the  subtype  T)  for  any 
property  that  depends  on  constraints  imposed  by  T;  other  properties  are  stated  In  terms  of  the 
base  type  of  T. 
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The  first  group  of  attributes  yield  characteristics  of  the  subtype  T.  The  attributes  of  this  group  are 
the  attribute  BASE  (see  3.3,2),  the  attributes  FIRST  and  LAST  (see  3.5),  the  representation 
attribute  SIZE  (see  1 3.7.2),  and  the  following  attributes; 

T'DIQITS  yields  the  number  of  decimal  digits  in  the  decimal  mantissa  of  model  numbers 

of  the  subtype  T,  (This  attribute  yields  the  number  D  of  section  3,5,7.)  The 
value  of  this  attribute  Is  of  the  type  unfversaUnteger. 

T'MANTISSA  Yields  the  number  of  blnaiy  digits  In  the  binary  mantissa  of  model  numbers  ot 
the  subtype  T.  (This  attribute  yields  the  number  B  of  section  3.5.7.)  The  value 
of  this  attribute  Is  of  the  typo  unfversaUnteger. 


T'EPSILON  Yields  the  absolute  volue  of  the  difference  between  the  model  number  1 .0  and 

the  next  model  number  above,  for  the  subtype  T,  The  value  of  this  attribute  is 
□f  the  type  unfversaUeaf. 


TEMAX  Yields  the  largest  exponent  value  In  the  binary  canonical  form  of  model 

numbers  of  the  subtype  T.  (This  attribute  yields  the  product  4*B  of  section 
3,5.7.)  The  value  of  this  attribute  Is  of  the  typo  unlversaUnteger. 


T'SMALL  Yields  the  smallest  positive  (nonzero)  model  number  of  the  subtype  T,  The 

value  of  this  attribute  Is  of  the  type  unlversaUeel, 


r  LARGE 


Yields  the  largest  positive  model  number  of  the  subtype  T,  The  value  of  this 
attribute  Is  of  the  type  unlvarsaUeat. 
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The  attributes  of  the  second  group  include  the  following  attributes  which  yield  characteristics  of 
the  safe  numbers; 

T'SAFE„EMAX  Yields  the  largest  exponent  value  In  the  binary  canonical  form  of  safe  numbers  of 
the  base  type  of  T.  (This  attribute  yields  the  number  E  of  section  3.5.7.)  The 
value  of  this  attribute  is  of  the  type  unIversaUnteger, 

T'SAFE_SMALL  Yields  the  smallest  positive  (nonzero)  safe  number  of  the  base  type  of  T,  The 
value  of  this  attribute  Is  of  the  type  unfversalu'eal. 

T’SAFE_LARGE  Yields  the  largest  positive  safe  number  of  the  base  type  of  T.  The  value  of  this 
attribute  Is  of  the  type  un/varsaLreal. 

In  addition,  the  attributes  A’SIZE  and  A'ADDRESS  are  defined  for  an  object  A  of  a  floating  point 
type  (see  13.7.2).  Finally,  for  each  floating  point  typa  there  are  machine-dependent  attributes  that 
are  not  related  to  model  numbers  and  safe  numbers.  They  correspond  to  the  attribute  designators 
IVIACHINE..RADIX,  MACHINE_MANTISSA,  MACHINE_BMAX ,  MACHINE_EMIN  ,  MACHINE_ROUNDS  . 
and  MACHINE„OVERFLOWS  (see  13.7,3). 

Besides  the  basic  operations,  the  operations  of  a  floating  point  type  Include  the  relational 
operators,  and  the  following  predefined  arithmetic  operators;  the  binary  and  unary  adding 
operators  -  and  +,  the  multiplying  operators  *  and  /,  the  unary  operator  abs,  and  the  exponen¬ 
tiating  operator. 

The  operations  of  a  subtype  are  the  corresponding  operetlons  of  the  type  except  for  the  following; 
assignment,  membership  testa,  qualification,  explicit  conversion,  and  the  attributes  of  the  first 
group;  the  effects  of  theae  operations  are  redefined  In  terms  of  the  subtype. 

Notes; 

The  attributes  EMAX,  SMALL,  LARGE,  and  EPSILON  are  provided  for  convenience.  They  are  all 
related  to  MANTISSA  by  the  following  formulas: 

T'EMAX  --  4*rMANTISSA 

T'EPSILON  2,0**(1  ■  TMANTISSA) 
rSMALL  =  2,0.»*(-T'EMAX  -1) 

T'LARGE  =»  2.0**rEMAX  *  (1.0  ■  2,0**(-rMANTISSA)) 

The  attribute  MANTISSA,  giving  the  number  of  binary  digits  In  the  mantissa,  Is  Itself  related  to 
DIGITS.  The  following  relatione  hold  between  the  characteristics  of  the  rriodel  numbers  and  those 
of  the  aafo  numbers: 

T'BASE’EMAX  <-  T'SAFE„EMAX 
T'BASE'SMALL  >=>.  rSAFE_SMALL 
T'BASE'LARQE  <-  rSAFE_LARQE 

The  attributes  T'FIRST  and  T'LAST  need  not  yield  model  or  safe  numbers.  If  a  certain  number  of 
digits  is  specified  In  the  declaration  of  a  type  or  subtype  T,  the  attribute  T'DIQITS  yields  this 
number. 

References;  ob.i  operator  4,B  4.5,0,  arithmetic  operator  3,6.5  4,6,  aaaignrnont  B.2,  attiibuto  4,1.4,  baae  typo  3,3, 
basic  operatlot)  .1,3.3,  binary  adding  operator  4.5  4.5,3,  bound  of  a  range  3.5,  constraint  3.3,  conversion  4,6,  digit  2,1, 
exponentiating  nporator  4.5  4,5.8,  floating  point  type  3.5.7,  memberihlp  taat  4,5  4. B.2,  model  number  3,5.6,  mub 
tlplying  operator  4.B  4,5,5,  numeric  type  3.5,  object  3,2,  operetlon  3.3,  predefined  operator  4.6,  qualified  expresalon 
4.7.  relational  operator  4.5  4.5.2,  aafe  numbar  3,6.6,  aubtype  3.3,  type  3.3.  unary  adding  operator  4.5  4.5,4,  univarial 
type  4,10,  unlveraaLInteger  type  3,6.4,  unIveraaLreal  type  3.6,8 
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3.B.9  FiK6d  Point  Typo» 


For  fixed  point  typos,  the  error  bound  Is  specified  as  an  absolute  value,  called  the  delta  of  the  fixed 
point  type. 

flxed_polnt_con8tralnt 

flxed„accuracy„deflnltlon  lrange_con8traintl 

fixed,.  accuracy_,deflnltlon  =  delta  sfflr/c_8imple_axpression 

The  delta  Is  specified  by  the  value  of  the  static  simple  expression  of  the  fixed  accuracy  definition, 
This  value  must  belong  to  some  real  type  and  must  be  positive  (nonzero).  If  the  fixed  point  con¬ 
straint  Is  used  as  a  real  type  definition,  than  It  must  Include  a  range  constraint;  each  bound  of  the 
specified  range  must  be  defined  by  a  static  expression  of  some  teal  type  but  the  two  bounds  need 
not  have  the  same  real  type.  If  the  fixed  point  constraint  Is  used  In  a  subtype  indication,  the  range 
constraint  Is  optional. 

A  csnonlcal  form  Is  defined  for  any  fixed  point  model  number  other  than  zero,  In  this  form:  sign  Is 
either  4  1  or  -1 ;  mantissa  Is  a  positive  (nonzero)  Integer;  and  any  model  number  Is  a  multiple  of  a 
certain  positive  real  number  called  small,  as  follows: 

sign  I  mantissa  *  small 

For  the  model  numbers  defined  by  i\  fixed  point  constraint,  the  number  small  Is  chosen  as  the 
largest  power  of  two  that  la  not  greater  than  the  delta  of  the  fixed  accuracy  definition  Alternative¬ 
ly,  it  Is  possible  to  specify  the  value  of  small  by  a  length  clause  (see  13.2),  In  which  caae  model 
numbers  are  multiples  of  the  specified  value.  The  guaranteed  minimum  accuracy  of  operations  of  a 
fixed  point  type  Is  defined  In  terms  of  the  model  numbers  of  the  fixed  point  constraint  that  forms 
the  corresponding  real  type  definition  (see  4.B.7). 

For  a  fixed  point  constraint  that  Includes  a  range  constraint,  the  model  numbers  comprise  zero  and 
all  multiples  of  small  whose  mantissa  can  be  expressed  using  exactly  B  binary  digits,  where  the 
value  of  B  Is  chosen  as  the  smallest  iiitegei  number  for  which  each  bound  f>f  ;iie  specified  range  Is 
either  a  model  number  or  lies  at  most  small  distant  from  a  model  number,  For  a  fixed  point  con¬ 
straint  that  does  not  include  a  range  constraint  (thle  is  only  allowed  after  a  type  mark,  in  a  subtype 
Indication),  the  model  numbers  aie  defined  by  the  delta  of  the  fixed  accuracy  definition  and  by  the 
range  of  lli«  subtype  denoted  by  the  type  mark. 

An  Implementation  must  have  at  least  one  anonymous  prruioflned  fixed  point  typo,  The  base  type 
of  each  such  fixed  point  typo  Is  the  type  Itself,  the  model  numbers  of  each  predefined  fixed  point 
type  comprise  zero  and  all  numbers  for  which  mantissa  (In  the  cononicel  form)  has  the  number  of 
binary  digits  returned  by  the  attribute  MANTISSA,  and  for  which  the  number  small  has  the  value 
returned  by  the  attribute  SMALL . 

A  fixed  point  type  declaration  of  the  form: 

typo  T  Ii  dells  0  range  L  ..  R; 

Is,  by  rlofinltlon,  equivalent  to  the  following  declarations: 

type  fixed 4)ointJypB  Is  new  pradoflned_flxed_.polnt_.typo; 
vubtypn  T  li  flxed^olnt_typa 

rang*  fl>iHd.^olnt.jyp9{l)  .,  flx9d^olnt.Jypa{18): 
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In  those  declarations,  fixed^poinf^type  Is  an  anonymous  type,  and  the  predefined  fixed  point  type  m 
Is  implicitly  selected  by  tiie  Irnplomontatlon  so  that  Its  model  numbers  include  the  model  numbers 
defined  by  the  fixed  point  constraint  (that  Is,  by  D,  L,  and  R,  and  possibly  by  a  length  clause 
specifying  small). 

The  fixed  point  declaration  is  Illegal  if  no  predefined  type  satisfies  those  requirements.  The  safe  u 
numbers  of  a  fixed  point  type  are  the  model  numbers  of  Its  base  type, 

The  oiaboratlon  of  a  fixed  point  type  declaration  consists  of  the  elaboration  of  the  equivalent  type  i? 
and  subtype  declarations. 

If  the  fixed  point  constraint  follows  a  type  mark  In  a  subtype  Indication,  the  type  mark  must  denote  u 
a  fixed  point  type  or  subtype.  The  fixed  point  constraint  Is  compatible  with  the  type  mark  only  If  the 
delta  specified  by  the  fixed  accuracy  definition  Is  not  amaller  than  the  delta  for  the  type  cr  subtype 
denoted  by  the  typo  mark.  Furthermore,  If  the  fixed  point  constraint  Includes  a  range  constraint, 
the  fixed  point  constraint  is  compatible  with  the  type  mark  only  If  the  range  constraint  Is,  Itself, 
compatible  with  the  type  mark. 

The  elaboration  of  such  a  subtype  Indication  includes  the  elaboration  of  the  range  constraint.  If  h 
there  Is  one;  It  creates  a  fixed  point  subtype  whose  model  numbers  are  defined  by  the  cor¬ 
responding  fixed  point  constraint  and  also  by  the  length  clause  spscify'ing  small.  If  there  Is  one,  A 
value  of  a  fixed  point  type  belongs  to  a  fixed  point  subtype  If  and  only  If  It  belongs  to  the  range 
defined  by  the  subtype, 

The  some  arithmetic  operators  are  predefined  for  all  fixed  point  types  (aee  4,5).  Multiplication  and  n 
division  of  fixed  point  values  deliver  results  of  an  anonymous  predefined  fixed  point  type  that  Is  cal¬ 
led  univarsaljlxed  In  this  reference  manual;  the  accuracy  of  this  type  Is  arbitrarily  fine.  The  values 
of  this  type  must  be  converted  explicitly  to  some  numeric  typo. 

Notes; 

If  S  Is  a  subtype  of  a  fixed  point  type  or  subtype  T,  then  the  set  of  model  numbers  of  S  Is  a  subset  m 
of  those  of  T,  If  a  length  clause  has  been  given  for  T,  then  both  S  and  T  have  the  same  valuo  tor 
small,  Otherwise,  since  small  Is  a  power  of  two,  the  small  of  S  Is  equal  to  the  small  of  T  multiplied 
by  a  nonnegative  power  of  two. 

A  range  constraint  Is  allowed  in  a  fixed  point  subtype  Indication,  either  directly  after  the  type  mark, 
or  as  part  of  a  fixed  point  constraint.  In  either  case  the  bounds  of  the  range  must  belong  to  the 
base  typo  of  the  type  mark  (see  3,5). 

Examples;  m 

type  VOLT  Is  delta  0.126  rangt  0.0  ..  266.0: 

subtype  ROUGH. .VOLTAGE  is  VOLT  delta  1.0;  --  seme  range  as  VOLT 

-  A  pure  fraction  which  requires  ell  the  svelloble  space  In  o  word 
-  on  a  two'k  complement  machine  can  bo  declared  as  the  type  FRACTION: 

DEL  ;  oonstent  1.0/2  +  *(W0RD, .LENGTH  -  1): 

type  FRACTION  Is  delta  DEL  range  -1.0  ..  1.0  -  DEL; 

Peferences;  iinonytrious  type  3,3, 1 ,  arithmetic  operator  3.5.6  4,5,  base  type  3,3,  belong  to  a  subtype  3.3,  bound  of  e 
ranoo  3,B,  compatible  .3,3.2,  convarslori  4,6,  elaboration  3,9,  erroi  bound  3,6.6,  length  clause  13.2,  model  number 
3,6.0,  numeric  typo  ;),5,  operation  3.3,  predefined  operator  4.6,  range  constraint  3.6,  real  type  3,6.6,  tool  type  defini¬ 
tion  3.6.6,  safo  numter  3.6,6,  simple  exproaslon  4.4.  static  expression  4,9,  subtype  3.3,  subtype  declaration  3.3.2, 
subtype  Indicntlon  .3,3,2  typo  3,3,  typo  declaration  3.3.1,  typo  mark  3.3,2 
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3.5.10  Operations  of  Fixed  Point  Types 


The  basic  operations  of  a  fixed  point  type  include  the  operations  involved  in  ai  Jgnment, 
membership  tests,  qualification,  the  explicit  conversion  of  values  of  other  numeric  t^'pes  to  the  fix¬ 
ed  point  type,  and  the  implicit  conversion  of  values  of  the  type  universaUea!  to  the  type. 

In  addition,  for  every  fixed  point  type  or  subtype  T  the  basic  operations  include  the  attributes  listed 
below.  In  this  presentation  T  is  referred  to  as  being  a  subtype  (the  subtype  T)  for  any  property  that 
depends  on  constraints  imposed  by  T;  other  properties  are  stated  in  terms  of  the  base  type  of  T. 

The  first  group  of  attributes  yield  characteristics  of  the  subtype  T.  The  attributes  of  this  group  are 
the  attributes  BASE  (see  3.3.2),  the  attiibutes  FIRST  and  LAST  (see  3,5),  the  representation 
attribute  SIZE  (see  13.7.2)  and  the  following  attributes: 

TDELTA  Yields  the  value  of  the  delta  specified  in  the  fixed  accuracy  definition  for  the  sub¬ 

typo  T,  The  value  of  this  attribute  Is  of  the  type  universalu’eal. 

T'MANTISSA  Yields  the  number  of  binary  digits  in  the  mantissa  of  model  numbers  of  the  sub¬ 
type  T.  (This  attribute  yields  the  number  B  of  section  3.5.9.)  The  value  of  this 
attribute  is  of  the  typo  unfversaUnteger. 

T’SMALL  Yields  the  smallest  positive  (nonzero)  model  number  of  the  subtype  T.  The  value 
of  this  attribute  is  of  the  type  unfversalweal. 

T'LAHGE  Yields  th^.  largest  positive  model  number  of  the  subtype  T.  The  value  of  this 

attribute  is  of  the  type  unlversaUeal, 

TTORE  Y'jids  the  minimum  number  of  characters  needed  for  the  Integer  part  of  the 

decimal  representation  of  any  value  of  the  subtype  T,  assuming  that  the 
representation  does  not  include  an  exponent,  but  includes  a  one-character  prefix 
that  is  either  a  minus  sign  or  a  space.  (This  minimum  number  does  not  Include 
superfluous  zeros  or  underlines,  and  Is  at  least  two.)  The  value  of  this  attribute  is 
of  the  type  un/versaUnteger. 

T'AFT  Yields  the  number  of  decimal  digits  needed  after  the  point  to  accommodate  the 

precision  of  the  subtype  T,  unless  the  delta  of  the  subtype  T  Is  greater  than  0.1 ,  in 
which  case  the  attribute  yields  the  value  one.  (TAFT  Is  the  smallest  positive 
Integer  N  for  which  (10*x<N)*T'DELTA  is  greater  than  or  equal  to  one.)  The  value 
of  this  attribute  Is  of  the  type  universaUnteger. 

The  attributes  of  the  second  group  include  the  following  attributes  which  yield  characteristics  of 
the  safe  numbers; 

T'SAFE_SMALL  Yields  the  smallest  positive  (nonzero)  safe  number  of  the  base  type  of  T,  The 
value  of  this  attribute  Is  of  the  type  unfversaL,  aal. 

T'SAFE_LARGE  Yields  the  largest  positive  safe  number  of  the  base  type  of  T.  The  value  of  this 
attribute  is  of  the  type  univarsal^eal. 

in  addition,  the  attributes  A'SIZE  and  A'ADDRESS  are  defined  for  an  object  A  of  a  fixed  point  type 
(see  13.7,2).  Finally,  for  each  fixed  point  type  or  subtype  T,  there  are  the  machine-dependent 
attributes  TMACHINE-ROUNDS  and  T'IV1ACHINE_0VERFL0WS  (see  13,7,3). 
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Besides  the  basic  operations,  the  operations  of  a  fixed  point  type  include  the  relational  operators,  m 
and  the  following  predefined  arithmetic  operators:  the  binary  and  unary  adding  operators  -  and  +, 
the  multiplying  operators  *  and  /,  and  the  operator  abs. 

The  operations  of  a  subtype  are  the  corresponding  operations  of  the  type  except  for  the  following:  is 

assignment,  membership  tests,  qualification,  explicit  conversion,  and  the  attributes  of  the  *irst 
group;  the  effects  of  these  operations  are  redefined  In  terms  of  the  subtype. 

Notes: 

The  value  of  the  attribute  T'FORE  depends  only  on  the  range  of  the  siibtype  T.  The  value  of  the  m 
attribute  TAFT  depends  only  on  the  value  of  TDELTA.  The  following  relations  exist  between 
attributes  of  a  fixed  point  type: 

TLARGE  =  (2#*rMANTISSA  -  1)  *  T'SMALL 

T'SAFE_LARQE  =  T'BASE'LARQE 

rSAFE_SMALL  =  TBASE'SMALL 

References;  abs  operator  4.S  4.6.6,  aiithrrtetlc  operator  3.6.5  4.5,  asalgnment  5.2,  base  type  3.3,  basic  operation  ir 

3.3.3,  binary  adding  operator  4.6  4,6.3,  bound  of  a  range  3.5,  conversion  4.6,  delta  3.5.9,  fixed  point  type  3.6.9, 
membership  test  4.5  4.5.2,  model  number  3.5.6,  multiplying  operator  4.5  4.5.5,  numeric  type  3.6,  object  3.2,  opera¬ 
tion  3.3,  qualified  expression  4.7,  relational  operator  4,6  4.5.2,  safe  number  3.6.6,  subtype  3.3,  unary  adding  operator 
4.5  4.5.4,  unlversalJnteger  type  3.5.4,  unlvarsaL.^eal  type  3.6,6 


3.6  Array  Types 


An  array  object  Is  a  composite  object  consisting  of  components  that  have  the  same  subtype,  The  i 
name  for  a  component  of  an  array  uses  one  or  more  index  values  belonging  to  specified  discrete 
types.  The  value  of  an  array  object  Is  a  composite  value  consisting  of  the  values  of  Its  components. 

array_typ8_d0finltlon  ::•■=  2 

uncon8tralned_array_deftnltlon  |  con8trulned_8rr8y_deflrltlon 

unccnsti  dlned_array_dofinitlon 

arrav(lndnx_8ubtype_deflnltlon  |,  lndex_8Ubtype_deflnltion|)  of 
compor7anr..8ubtypeJndicatlon 

con8tralned_array_d0flnltlon 

array  ind8K_constraint  of  componenf^subtypoJndlcatlon 

lndex_subtyp0..deflnltlon  :;=  type_mark  range  <> 

lndox_constraint  ;;==  (dlscrete.range  |,  dlscreto_rangej) 

dlscr0te_rang0  (/r‘5cr0fff_8ubtyp0_indlcatlon  |  range 

An  .array  object  Is  characterized  by  the  number  of  indices  (the  dimensionality  of  the  aTay),  the  type  3 
and  position  of  each  index,  the  lower  and  upper  bounds  for  uaoh  Index,  and  the  type  and  possible 
constraint  of  the  components.  The  order  of  the  indices  is  significant, 
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A  one-dimensional  array  has  a  distinct  component  for  each  possible  index  value.  A  multidimen¬ 
sional  array  has  a  distinct  component  for  each  possible  sequence  of  index  values  that  can  be 
formed  by  selecting  one  value  for  each  Index  position  (in  the  given  order).  The  possible  values  for 
a  given  index  are  all  the  values  between  the  lower  and  upper  bounds,  inclusive;  this  range  of  values 
is  called  the  Index  range. 

An  unconstrained  array  definition  defines  an  array  type.  For  each  object  that  has  the  array  type,  the 
number  of  indices,  the  type  and  position  of  each  index,  and  the  subtype  of  the  components  are  as 
in  the  type  definition;  the  values  of  the  lower  and  upper  bounds  for  each  index  belong  to  the  cor¬ 
responding  index  subtype,  except  for  null  arrays  as  explained  in  section  3.6.1.  The  index  subtype 
for  a  given  index  position  Is,  by  definition,  the  subtype  denoted  by  the  type  mark  of  the  cor¬ 
responding  index  subtype  definition.  The  compound  delimiter  <>  (called  a  box)  of  an  index  sub- 
type  definition  stands  for  an  undefined  range  (different  objects  of  the  type  need  not  have  the  same 
bounds).  The  elaboration  of  an  unconstrained  array  definition  creates  an  array  type;  this  elabora¬ 
tion  includes  that  of  the  component  subtype  Indication. 

A  constrained  array  definition  defines  both  an  array  type  and  a  subtype  of  this  type: 

•  The  array  type  Is  an  Implicitly  declared  anonymous  type;  this  type  is  defined  by  an  (Implicit) 
unconstrained  array  definition,  in  which  the  component  subtype  indication  is  that  of  the  con¬ 
strained  array  definition,  and  in  which  the  type  mark  of  each  Index  subtype  definition  denotes 
the  subtype  defined  by  the  corresponding  discrete  range. 

•  The  array  subtype  Is  the  subtype  obtained  by  Imposition  of  the  index  constraint  on  the  array 
type. 

If  a  constrained  array  definition  Is  given  for  a  type  declaration,  the  simple  name  declared  by  this 
declaration  denotes  the  array  subtype. 

The  elaboration  of  a  -'onstralned  array  definition  creates  the  corresponding  array  type  and  array 
subtype.  For  this  eluboratlon,  the  Index  constraint  and  the  component  subtype  Indication  are 
elaborated.  The  evaluation  of  each  discrete  range  of  the  index  constraint  and  the  elaboration  of 
the  component  subtype  Indication  are  performed  in  some  order  that  is  not  defined  by  the 
language. 

Examples  of  type  declarations  with  unconstrained  array  definitions: 

type  VECTOR  it  arrayONTECiER  rvngs  <>)  of  REAL: 

type  MATRIX  it  arreydNTEGER  range  <>,  INTEGER  range  <>)  of  RE,M; 

type  BIT_VECTOR  It  arrayllNTEGER  range  <>)  of  BOOLEAN; 

type  ROMAN  It  array(POSITIVE  range  <>)  of  ROMAN_DIGIT: 

Examples  of  type  declarations  with  constrained  array  definitions: 

type  TABLE  is  arrayd  ..  10)  of  INTEGER; 

type  SCHEDULE  it  array(DAV)  of  BOOLEAN; 

type  LINE  It  arrayd  ..  MAX_LINE..SIZE)  of  CHARACTER; 

Examples  of  object  declarations  with  constrained  array  definitions: 

vlRID  ;  arrayd  ..  80,  1  ..  100)  of  BOOLEAN; 

MIX  :  array(COLOR  range  RED  ..  GREEN)  of  BOOLEAN; 

PAGE  ;  arrayil  ,.  BO)  of  LINE;  -  an  array  of  arrays 
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Note: 

For  a  one-dimensional  array,  the  rule  given  means  that  a  type  declaration  with  a  constrained  array 
definition  such  as 

type  T  is  arrayiPOSITIVE  range  MIN  ..  MAX)  of  COMPONENT; 

Is  equivalent  (In  the  absence  of  an  Incorrect  order  dependence)  to  tfie  succession  of  declarations 

subtype  Index^ubtype  Is  POSITIVE  range  MIN  ..  MAX; 

typo  array.jype  Is  »ntii(lndex.jiubtypB  range  <>)  of  COMPONENT; 

subtype  T  in  array. Jypeilndex^/iubtYpe)', 

where  index.j5Ubtype  and  atrayjtype  are  both  anonymous.  Consequently,  T  Is  the  name  of  a  sub- 
type  and  all  objects  declared  with  this  type  mark  are  arrays  that  have  the  san  e  bounds.  Similar 
transformations  apply  to  multidimensional  arrays. 

A  similar  transformation  applies  to  an  object  whose  declaration  includes  a  constrained  array  defini¬ 
tion.  A  consequence  of  this  la  that  no  two  such  objects  have  the  same  type. 

fieferences:  anonymous  typo  3.3.1,  bound  of  a  range  3.B,  component  3.3,  constraint  3.3,  discrete  type  3.5, 
elaboration  3.1  3.9,  In  some  order  1.6,  name  4.1,  object  3.2,  range  3.B,  suotype  3.3,  subtype  Indication  3.3.2,  type 
3.3,  type  decloratlon  3.3.1,  type  definition  3.3.1,  type  mark  3.3.2 


3.6.1  Index  Constraints  and  DIserata  Ranges 


An  index  constraint  determines  the  range  of  possible  values  for  every  Index  of  an  array  type,  and 
thereby  the  corresponding  array  bounds, 

For  a  discrete  range  used  In  a  constrained  array  definition  and  defined  by  a  range,  an  implicit  con¬ 
version  to  the  predefined  type  INTEGER  la  assumed  If  each  bound  la  alther  a  numeric  literal,  a 
named  number,  or  an  attribute,  and  the  type  of  both  bounds  (prior  to  the  Implicit  conversion)  is  the 
type  universal  Jntagar.  Othervidoe,  both  bounds  must  be  of  the  same  discrete  type,  other  than 
unIversaUntegar;  this  type  must  bo  determinable  Independently  of  the  context,  but  using  the  fact 
that  the  type  .must  be  discrete  and  that  both  bounds  must  have  the  same  typo.  These  rules  apply 
also  to  a  discrete  range  used  In  an  Iteration  rule  (see  B.B)  or  In  the  declaration  of  a  family  of  entries 
(see  9.5). 

If  an  index  constraint  follows  a  type  mark  In  a  subtype  Indication,  then  the  type  or  subtype  denoted 
by  the  type  mark  must  not  already  Ir  ipose  an  Index  constraint.  The  type  mark  must  denote  either 
an  unconstrained  array  type  or  an  accuss  type  whose  designated  type  is  such  an  array  type.  In 
either  case,  the  Index  constraint  must  provide  a  discrete  range  for  each  index  of  the  array  type  and 
the  type  of  each  discrete  range  must  be  the  same  as  that  uf  the  corresponding  index. 

An  index  constraint  Is  compatible  with  the  type  denoted  by  the  type  mark  If  and  only  If  the  con¬ 
straint  defined  by  each  discrete  range  Is  compatible  with  the  corresponding  Index  subtype.  If  any  of 
the  discrete  ranges  defines  a  null  range,  any  array  thus  constrained  Is  a  null  array,  having  no  com¬ 
ponents.  An  array  value  satisfies  an  Index  constraint  if  at  each  Index  position  the  array  value  and 
the  index  constraint  have  the  same  Index  bounds.  (Note,  however,  that  assignment  and  certain 
other  operations  on  arrays  Involve  an  Implicit  subtype  conversion.) 
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The  bounds  of  eaoh  arr^'  "  -  e  .armlned  as  follows: 

•  For  a  variable  declarto  .  '  •  o'-;scr  dv-iuratlon,  the  subtype  Indication  of  the  corresponding 
object  declaration  must  .  '  'oni>tir>ned  array  subtype  (and,  thereby,  the  bounds).  The 
same  requirement  existr  for  the  'UL  'vpe  indication  of  a  component  declaration,  If  the  type  of 
the  record  component  ia  an  array  lyoa:  and  K.r  the  component  subtype  Indication  of  an  array 
type  definition,  If  the  typo  of  the  array  components  Is  Itself  an  array  type, 

•  For  a  constant  declared  by  an  object  dectn'atlon,  tho  bounds  of  the  constant  are  defined  by 
the  Initial  value  If  the  subtype  of  the  constanv  is  unconstrained;  they  are  otherwise  defined  by 
this  subtype  (In  the  latter  case,  the  initial  value  i  •  the  result  of  an  implicit  subtype  conversion). 
The  same  rule  applies  to  a  generic  formal  parameter  of  mode  in. 

•  For  an  array  object  designated  by  an  acceas  value,  the  bounds  must  be  defined  by  the 
allocator  that  creates  tho  array  object.  (The  allocated  object  is  constrained  with  the  cor¬ 
responding  values  of  the  bounds.) 

•  For  a  formal  parameter  of  a  subprogram  or  entry,  the  bounds  are  obtained  from  tho  cor¬ 
responding  actual  parameter.  (The  formal  parameter  Is  constrained  with  the  corresponding 
values  of  the  bounds.) 

e  For  a  renaming  declaration  and  for  a  generic  formal  parameter  of  mode  in  out,  the  bounds  ore 
those  of  the  renamed  object  or  of  the  corresponding  generic  actual  parameter. 

For  tho  elaboration  of  an  Index  constraint,  tho  discrete  rangos  are  evaluated  In  some  order  that  Is 
not  defined  by  the  language. 

Examphs  of  arrsy  daclarattona  IncluUng  an  tndax  constraint: 

BOARD  :  MATRIXd  6,  1  ..  8);  -  sea  3.6 

REaANQLE  :  MATRIXd  ..  20,  1  ..  30); 

INVERSE  :  MATRIXd  ..  N,  1  ..  N);  -  N  need  not  be  static 

FILTER  !  BIT_VECTOR(0  .,  31): 

Example  of  array  declaration  with  a  constrained  array  subtype; 

MY_SCHEDULE  :  SCHEDULE;  --  all  arrays  of  typo  SCHEDULE  have  the  sam.?  bounds 

Example  of  record  type  with  a  component  that  Is  an  array: 

typo  VAR_LINE(LENQTH  :  INTEGER)  ia 
record 

IMAGE  :  STRINOd  ,.  LENGTH); 
end  record; 

NULL-LINE  :  VAR_LINE(0);  -  NULL.LINE.IMAGE  la  a  null  array 
Notes: 

The  elaboration  of  a  subtype  indication  consisting  of  a  type  mark  followed  by  an  Index  constraint 
checks  the  compatibility  of  tho  index  constraint  with  the  type  mark  (see  3.3,2), 

All  components  of  an  array  have  the  same  subtype.  In  pnrticular,  for  an  array  of  components  that 
are  one-dimensional  arrays,  this  moans  that  all  components  have  the  same  bounds  and  hence  the 
some  length. 


3.6. 1 1ndex  Constraints  and  Discrete  Ranges 
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References:  access  type  3.6,  access  type  definition  3.8,  access  value  3.8,  actual  parameter  6.4.1 ,  allocator  4.8,  array 
bound  3.6,  array  component  3.6,  array  type  3.6,  array  type  definition  3.6,  bound  of  a  range  3.6,  compatible  3.3.2, 
component  declaration  3.7,  constant  3.2. 1 ,  constrained  array  definition  3.6,  constrains  J  array  subtype  3.6,  conversion 
4.6,  designate  3.8,  designated  type  3.8,  discrete  range  3.6,  entry  9.5,  entry  family  declaiotlon  9.5,  expresnlon  4.4,  for¬ 
mal  parameter  6.1,  function  6.5,  generic  actual  parameter  12.3,  generic  formal  parameter  12.1  12.3,  generic 
parameter  12.1,  Index  3.6,  Index  constraint  3.6.1,  Index  subtype  3.6,  Initial  value  3.2.1,  Integer  literal  2.4,  Integer  type 
3.5  4,  Iteration  rule  5.5,  mode  12.1.1,  name  4.1,  null  range  3,6,  object  3.2,  object  declaration  3.2.1,  predefined  type 
C,  range  3.5,  record  component  3.7,  renaming  declaration  8.5,  result  subtype  6.1.  satisfy  3.3,  subprogram  6.  subtype 
conversion  4.6,  subtype  Indication  3.3.2,  type  mark  3.3.2.  unconstrained  array  type  3.6.  unconstrained  subtype  3  3, 
universal  typo  4.10,  universaijnteger  type  3.5.4,  variable  3.2.1 


3.6.2  Operations  of  Array  Types 


The  basic  operations  of  an  array  type  Include  the  operations  Involved  in  assignment  and 
aggregates  (unless  the  array  type  la  limited),  membership  tests,  Indexed  components,  qualification, 
and  explicit  conversion;  for  one-dimensional  arrays  the  basic  operations  also  Include  the  opera¬ 
tions  involved  In  slices,  and  also  string  literals  if  the  component  type  Is  a  character  type. 

If  A  is  an  array  object,  an  array  value,  or  a  constrained  array  subtype,  the  basic  operations  also 
Include  the  attributes  listed  below,  These  attributes  are  not  allowed  for  an  unconstrained  array 
type.  The  argument  N  used  in  the  attribute  designators  for  the  N-th  dimension  of  an  array  must  be 
a  static  expression  of  type  unlv9ir$aUnt»g»r,  The  value  of  N  must  be  positive  (nonzero)  and  no 
greater  than  the  dimensionality  of  the  array. 


A'FIRST 

A'FIRST(N) 

A'LAST 

A'LAST(N) 

A'RANGE 

A'RANGE(N) 


Yields  the  lower  bound  of  the  first  index  range.  The  value  of  this  attribute 
has  the  same  type  as  this  lower  bound. 

Yields  the  lower  bound  of  the  N-th  Index  range.  The  value  of  this  attribute 
has  the  same  type  as  this  lower  bound. 

Yields  the  upper  bound  of  the  first  Index  range.  The  value  of  this  attribute 
has  the  same  type  as  this  upper  bound. 

Yields  the  upper  bound  of  the  N-th  Index  range.  The  value  of  this  attribute 
has  the  same  type  as  this  upper  bound. 

Yields  the  first  Index  range,  that  is,  xhe  range  A'FIRST  ..  A'LAST . 

Yields  the  N-th  Index  renge,  that  la,  the  range  A'FIRST  (N) A'LAST  (N), 


A'LENGTH  Yields  the  number  of  values  of  the  first  Index  range  (zero  for  a  null  range). 

The  value  of  this  attribute  is  of  the  type  unIversaUnteger, 

A'LENGTH(N)  Yields  the  number  of  values  of  the  N-th  index  range  (zero  for  a  null 

range).  The  value  of  this  attribute  Is  of  the  type  unIversaUnteger. 


In  addition,  the  attribute  T'BASE  Is  defined  for  an  array  type  or  subtype  T  (see  3.3.3);  the  attribute 
T'SIZE  is  defined  for  an  array  type  or  subtype  T,  and  the  attributes  A'SIZE  and  A'ADDRESS  are 
defined  for  an  array  object  A  (see  13.7.2), 
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II  Besides  the  basic  operations,  the  operations  of  an  array  type  include  the  predefined  comparison  for 
equality  and  inequality,  unless  the  array  type  is  limited.  For  one-dimenslonal  arrays,  the  operations 
include  catenation,  unless  the  array  type  Is  limited;  if  the  component  type  Is  a  discrete  type,  the 
operations  also  include  all  predefined  relational  operators;  if  the  component  type  is  a  boolean 
type,  then  the  operations  also  include  the  unary  logical  negation  operator  not,  and  the  logical 
operators. 

13  Examples  fusing  arrays  declared  In  the  examples  of  section  3.6.  ): 

-  FILTER'FIRST  =  0  FILTER'LAST  =  31  FILTER'LENGTH  =  32 

-  RECTANGLE'LAST(I)  =  20  flECTANGLE'LAST(2)  =  30 

Notes; 

M  The  attributes  A'FIRST  and  A'FlRSTlI)  yield  the  same  value.  A  similar  relation  exists  for  the 
attributes  A'LAST,  A'RANQE ,  and  A'LENGTH .  The  following  relations  are  satisfied  (except  for  a  null 
array)  by  the  above  attributes  If  the  Index  type  is  an  integer  type: 

A’LENGTH  =  A'LAST  -  A'FIRST  +  1 

A’LENGTH(N)  =  A’LASTIN)  -  A'FIRST(N)  +  1 

19  An  array  type  is  limited  If  its  component  type  Is  limited  (see  7.4.4). 

w  References;  aggragat*  4.3,  array  typa  3.6,  aaalgnmant  5.2,  attribute  4.1.4,  basic  operation  3.3.3,  bound  of  a  range 

3.6.  catenation  operator  4.5  4.5.3,  character  typa  3.6.2,  conatralnad  array  subtype  3,6,  conversion  4.5,  designator 
6.1,  dimension  3.6,  Index  3.6,  Indexed  component  4.1.1,  limited  type  7.4.4.  logical  operator  4.5  4.6.1,  mambsrahlp 
test  4,5  4,6.2,  not  operator  4.5  4.5.6,  null  range  3.6,  object  3.2,  operation  3.3,  predefined  operator  4.5,  qualified 
axprasalon  4,7,  relational  operator  4.5  4.5.2,  slice  4.1.2,  static  expression  4.9,  string  literal  2.6,  subcomponent  3.3, 
type  3.3.  unconstrained  array  type  3.6,  universal  type  4.10,  univeraaljnteger  type  3.5.4 


3.6.3  Ths  Typ«  String 


I  The  values  of  the  predefined  type  STRING  are  one-dimensional  arrays  of  the  predefined  type 
CHARACTER ,  indexed  by  values  of  the  predefined  subtype  POSITIVE  : 

aubtype  POSITIVE  la  INTEGER  range  1  ..  INTEOER'LAST; 
type  STRING  la  array(POSITIVE  range  <>)  of  CHARACTER; 

I  Examples; 

STARS  :  STRINQd  .,  120)  :=  (1  .,  120  ->  '♦'  ); 

QUESTION  :  oonstant  STRING  :=»  "HOW  MANY  CHARACTERS?”; 

-  QUESTION’FIRST  =  1,  QUESTION’LAST  =  20  (the  number  of  characters) 

ASK. TWICE  I  oonatant  STRING  :=  QUESTION  Si  QUESTION; 

NINETY._SIX  :  oonatant  ROMAN  :«  "XCVI";  -  see  3,6 

Notes; 

3  String  literals  (see  2.6  and  4.2)  are  basic  operations  applicable  to  the  type  STRING  and  to  any 
other  one-dimensional  array  typa  whose  component  type  is  a  character  type.  The  catenation 
operator  is  a  predefined  operator  for  the  type  STRING  and  for  one-dimensional  array  types;  It  is 
represented  as  &.  The  relational  operators  <,  <=,  >,  and  >=  are  defined  for  values  of  these  types, 
and  correspond  to  lexicographic  order  (see  4,5.2). 


3.6.3  The  Type  String 
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ft»f0r0nc0s:  aggregate  4,3,  array  3,6,  catenation  operator  4.6  4.6.3,  character  type  3.5.2,  component  type  (of  an 
array)  3.6,  dimension  3.6,  Index  3.6,  lexicographic  order  4.5.2,  positional  aggregate  4.3,  predafined  operator  4.6, 
predefined  type  C,  relational  operator  4.6  4.6.2,  string  literal  2.6.  subtype  3.3,  type  3.3 


3.7  Record  Typei 


A  record  object  Is  a  composite  object  consisting  of  named  components.  The  value  of  a  record 
object  is  a  composite  value  consisting  of  the  values  of  its  components. 

recottl_type_deflnltlon 

record 

componenUItt 
ond  record 

componenUlst  ;> 

component_daclaratlon  ( oornponent_daclsratlon  I 
I  |component_deelaratlon|  varlant_part 
I  null; 

componenudeolaratlon 

IdentiflerJIat  ;  oomponenL.subtypo_definltlon  [:»  expression); 

componsnusubtype.definltlon  subtypejndloatlon 

Each  component  daolaratlon  dtolaras  a  component  of  the  record  type.  Besides  components 
declared  by  component  declarations,  the  components  of  a  record  type  include  any  components 
declared  by  discriminant  specifications  of  the  record  type  declaration.  The  Idontiflers  of  all  comno- 
nents  of  a  record  type  must  be  distinct.  The  use  of  a  name  that  denotes  a  record  component  other 
than  a  discriminant  Is  not  allowed  within  the  record  type  definition  that  declares  the  component. 

A  component  declaration  with  several  Identifiers  is  equivalent  to  a  sequence  of  single  component 
declarations,  as  explained  in  section  3.2.  Each  single  component  declaration  declares  a  record 
component  whose  subtype  Is  specified  by  the  component  subtype  definition. 

If  a  component  declaration  Includes  the  assignment  compound  delimiter  followed  by  an  expres¬ 
sion,  the  expression  Is  the  default  expression  of  the  record  component;  the  default  nxpresslon 
must  be  of  the  typo  of  the  component.  Default  expressions  are  not  allowed  for  components  that 
are  of  a  limited  type. 

If  a  record  type  does  not  have  a  discriminant  part,  the  came  components  are  present  In  all  values 
of  the  type.  If  the  component  list  of  s  record  type  Is  defined  by  the  reserved  word  null  end  there  is 
no  discriminant  part,  then  the  record  type  has  no  components  and  all  records  of  the  type  are  null 
records. 

The  elaboration  of  a  record  type  definition  creates  a  record  type;  It  consists  of  the  elaboration  of 
any  corresponding  (single)  component  declarations.  In  the  order  In  which  they  appear.  Including 
any  component  declaration  In  a  variant  part.  The  elaboration  of  a  component  declaration  consists 
of  the  elaboration  of  the  component  subtype  definition. 

For  the  elaboration  of  a  component  subtype  definition.  If  the  constraint  does  not  depend  on  a  dis¬ 
criminant  (see  3.7.1),  then  the  subtype  Indication  is  elaborated.  If,  on  the  other  hand,  the  con¬ 
straint  depends  on  a  discriminant,  then  the  elaboration  consists  of  the  evaluation  ot  any  Included 
expression  that  is  not  a  discriminant. 
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Examples  of  record  type  declarations; 

type  DATE  la 
record 

DAY  ;  INTEGER  rang#  1  ..  31: 

MONTH  :  MONTH_NAME; 

YEAR  :  INTEGER  range  0  4000; 

and  record; 

type  COMPLEX  la 
record 

RE  ;  REAL  0.0; 

IM  :  REAL  :=-  0,0: 
end  record; 

Examples  of  record  variables; 

TOMORROW.  YESTERDAY  :  DATE; 

A,  B,  C  ;  COMPLEX; 

--  both  Gomponanta  of  A,  B,  and  C  are  Implloltly  Initialized  to  zero 
Notes; 

The  default  eKpreaalon  of  a  record  oomponent  la  Impllcitiy  evaluated  by  the  elaboratlort  of  the 
declaration  of  a  record  object,  In  the  abaence  of  an  explicit  initialization  (see  3.2.1 ).  If  a  component 
declaration  has  several  Identifiers,  the  expression  is  evaluated  once  for  each  auch  component  of 
the  object  (since  the  declaration  la  equivalent  to  a  sequence  of  single  component  declaratlona), 

Unlike  the  components  of  an  array,  the  components  of  a  record  need  not  be  of  the  same  type. 

References;  ■■■Ignmsnt  compound  dcllmitii'  2.2,  oomponent  3.3,  oompoilte  value  3.3,  oonitreint  3.3,  declaration 
3.1.  depend  on  a  discriminant  3.7.1,  dliorlmlnant  3.3,  discriminant  part  3.7  3.7.1,  elaboration  3.9,  expreialon  4.4, 
identifier  2.3,  Identifier  list  3.2,  limited  type  7.4,4,  name  4.1,  object  3.2,  subtype  3.3,  type  3.3,  type  mark  3.3.2, 
variant  part  3.7  3 


3.7.1  Dlsorlmlnanta 


A  discriminant  part  specifies  the  discriminants  of  a  type.  A  discriminant  of  a  record  Is  a  component 
of  the  record.  The  type  of  a  discriminant  must  be  discrete. 

dlscrlmlnant4)art  ::«■ 

(dl8crlmlnanL.spsolfloatlon  |;  dlscrlmlnant_apeclflcatlon)) 

dlacrlmlnanUspecIflootlon  i;- 

Identifier  Jilt  :  type_mark  [:»  expression] 

A  discriminant  part  Is  only  allowed  In  the  type  declaration  for  a  record  type,  In  a  private  type 
declaration  or  an  Incomplete  type  declaration  (the  corresponding  full  duclaratlon  muat  then  declare 
a  record  type),  and  In  the  generic  parameter  declaration  for  a  formol  pr'vate  type. 


3.  y.  t  Discriminants 
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A  discriminant  specification  with  several  identifiers  is  oquiveiant  to  a  sequence  of  single  discrimi-  > 
nant  specifications,  as  explained  in  section  3.2.  Each  single  discriminant  specification  declares  a 
discriminant.  If  a  discriminant  specification  Includes  the  assignment  compound  delimiter  followed 
by  an  expression,  the  expression  Is  the  default  expression  of  the  discriminant;  the  default  expres¬ 
sion  must  be  of  the  type  of  the  discriminant.  Default  expressions  must  be  provided  either  for  all  or 
for  none  of  the  discriminants  of  a  discriminant  part. 

The  use  of  the  name  of  a  discriminant  Is  not  allowed  in  default  expressions  of  a  discriminant  part  If  5 
the  specification  of  the  discriminant  Is  itself  given  in  the  discriminant  part. 

Within  a  record  type  definition  the  only  allowed  uses  of  the  name  of  a  discriminant  of  the  record  « 
type  are;  in  the  default  expressions  for  record  components;  In  a  variant  part  as  the  discriminant 
name;  and  in  a  component  subtype  definition,  either  as  a  bound  in  an  Index  constraint,  or  to 
specify  a  discriminant  value  in  a  discriminant  constraint.  A  discriminant  name  used  in  these  com¬ 
ponent  subtype  definitions  must  appear  by  Itself,  not  as  part  of  a  larger  expression.  Such  compo¬ 
nent  subtype  definitions  and  such  constraints  are  said  to  dspend  on  a  discriminant. 

A  component  Is  said  to  depand  on  a  discriminant  if  it  Is  a  record  component  declared  In  a  variant  1 
part,  or  a  record  component  whose  component  subtype  definition  depends  on  a  discriminant,  or 
finally,  one  of  the  subcomponents  of  a  component  that  itself  depends  on  a  discriminant. 

Each  record  value  Includes  a  value  for  each  discriminant  specified  for  the  record  type;  It  also  ■ 
includes  a  value  for  each  record  component  that  does  not  depend  on  a  discriminant.  The  values  of 
the  discriminants  determine  which  other  component  values  are  In  the  record  value, 

Direct  assignment  to  a  discriminant  of  an  object  Is  not  allowed;  furthermore  a  discriminant  Is  not  e 
allowed  as  an  actual  parameter  of  mode  In  out  or  out,  or  as  a  generic  actual  parameter  of  mode  In 
out.  The  only  allowed  way  to  change  the  value  of  a  discriminant  of  a  variable  Is  to  assign  a 
(complete)  value  to  the  variable  Itself.  Similarly,  an  assignment  to  the  variable  Itself  is  the  only 
allowed  way  to  change  the  constraint  of  one  of  Its  components.  If  the  component  subtype  defini¬ 
tion  depends  on  a  discriminant  of  the  variable. 

The  uiaboration  of  a  discriminant  part  has  no  other  effect.  lo 

Examples!  u 

type  BUFFERISIZE  ;  BUFFER_SIZE  100)  Is  -  see  3.5.4 

record 

POS  ;  BUFFER-SIZE  .«  0; 

VALUE  :  STRINQd  „  SIZE): 
end  record; 

type  SQUAREISIDE  :  INTEGER)  Is 
record 

MAT  ;  MATRIX!  1  ..  SIDE,  1  ..  SIDE);  -  see  3.6 

end  record; 

type  DOUBLE-SQUAREINUMBER  ;  INTEGER)  Is 
record 

LER  ;  SQUARE  (NUMBER); 

RIGHT  ;  PQUARE  INUMBER); 
end  record; 
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type  ITEMINUMBER  :  POSITIVE)  la 
record 

CONTENT  :  INTEGER; 

"  no  component  depends  on  the  discriminant 

and  record; 

13  Refarenc0S‘  assignment  5.2,  assignment  compound  delimiter  2.2,  bound  of  a  range  3.5,  component  3.3,  component 
declaration  3.7,  component  of  a  record  3,7,  declaration  3.1,  discrete  type  3.5,  discriminant  3,3,  discrimlnont  con¬ 
straint  3.7.2,  elaboration  3.9,  expresnlon  4.4,  generic  formal  type  12.1,  generic  parameter  declaration  12.1,  Identifier 
2.3,  Identifier  list  3,2,  incomplete  type  declaration  3,8,1,  Index  constraint  3.6.1 ,  name  4,1,  object  3,2,  private  type  7,4, 
prIvE  0  type  declaration  7,4,  record  type  3,7,  scope  8.2,  simple  name  4.1,  subcomponent  3,3,  subtype  Indication 
0.3.2,  type  declaration  3.3.1,  type  mark  3,3.2,  variant  part  3.7.3 


3.7.2  DIsorlmIntint  Conatralntt 


I  A  discrimlnan';  constraint  la  only  allowed  In  a  aubtype  Indication,  after  a  type  mark.  This  type  mark 
must  denote  either  a  type  with  discriminants,  or  an  access  type  whose  designated  type  is  a  type 
with  discriminants.  A  discriminant  constraint  specifies  the  values  of  these  discriminants. 

}  dlscrlmlnant-oonstralnt 

(dlscrlmlnant_atsoclatlon  |,  dliorlmlnant_assoolatlon|) 

dlsorlmlnant_assooiatlon 

(<//wr/m/na/if_elmple_narne  ||  d/acr/m//ianf«.slmple_nami|  ■>)  expresilon 

3  Each  discriminant  association  associates  an  expression  with  one  or  more  discriminants.  A  discrimi¬ 
nant  association  Is  said  to  be  nim§d  If  the  discriminants  are  specified  explicitly  by  their  names;  It 
is  otherwise  said  to  be  positional,  For  a  positional  association,  the  (single)  discriminant  is  implicitly 
specified  by  position.  In  textual  order.  Named  issoolatlons  can  be  given  in  any  order,  but  If  both 
positional  and  named  associations  are  used  In  the  same  discriminant  constraint,  then  positional 
associations  must  occur  first,  at  their  normal  position.  Hence  once  a  named  association  Is  used, 
the  rest  of  the  discriminant  constraint  must  use  only  named  associations. 

4  For  a  named  discriminant  association,  the  discriminant  names  must  denote  discriminants  of  the 
type  for  which  the  discriminant  constraint  Is  given.  A  discriminant  association  with  more  than  one 
discriminant  name  Is  only  allowed  If  the  named  discriminants  are  all  of  the  same  type.  Further¬ 
more,  for  each  discriminant  association  (whether  named  or  posHlonal),  the  expression  and  the 
associated  discriminants  must  have  the  same  type.  A  discriminant  constraint  must  provide  exactly 
one  value  for  each  discriminant  of  the  type. 

5  A  discriminant  constraint  la  compatible  with  the  type  denoted  by  a  type  mark.  If  and  only  If  each 
discriminant  value  belongs  to  the  subtype  of  the  corresponding  discriminant.  In  addition,  for  each 
subcomponent  whose  component  aubtype  specification  dependa  on  a  discriminant,  the  discrimi¬ 
nant  value  Is  substituted  for  the  discriminant  in  this  component  subtype  specification  and  the  com¬ 
patibility  of  tlwa  resulting  subtype  It.dloation  Is  checked. 

B  A  composite  value  satisfies  a  discriminant  constraint  if  and  only  If  each  discriminant  of  the  com¬ 
posite  value  has  tne  value  Imposed  by  the  discriminant  constraint, 
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The  initial  values  of  the  discriminants  of  an  object  of  a  type  with  discriminants  are  determined  as  ? 
follows; 


•  For  a  variable  declared  by  an  object  declaration,  the  subtype  Indication  of  the  corresponding  b 
object  declaration  must  Impose  a  discriminant  constraint  unless  default  expressions  exist  for 

the  discriminants;  the  discriminant  values  are  defined  either  by  the  constraint  or,  in  its 
absence,  by  the  default  expressions.  The  same  requirement  exists  for  the  subtype  indication  of 
a  component  declaration,  if  the  type  of  the  record  component  has  discriminants;  and  for  the 
component  subtype  Indication  of  an  array  type,  if  the  type  of  the  array  components  Is  a  type 
with  diacrimlnants, 

•  For  a  constant  declared  by  an  object  declaration,  the  values  of  tlie  discriminants  ore  those  of  h 
the  initial  value  If  the  subtype  of  the  constant  is  unconstrained;  they  are  otherwise  defined  by 

this  subtype  (In  the  latter  case,  an  exception  Is  raised  If  the  Initial  value  does  not  belong  to  this 
subtype).  The  same  rule  applies  to  a  generic  parameter  of  mode  In. 

•  For  an  object  designated  by  an  access  value,  the  discriminant  values  must  be  defined  by  the  to 
allocator  that  creates  the  object.  (The  allocated  object  Is  constrained  with  the  corresponding 
discriminant  volues.) 

e  For  a  formal  parameter  of  a  subprogram  or  entry,  the  discriminants  of  the  formal  parameter  n 
are  initialized  with  those  of  the  corresponding  actual  parameter.  (The  formal  parameter  Is 
constrained  If  the  corresponding  actual  parameter  Is  constrained,  and  In  any  case  If  the  mode 
Is  In  or  If  the  subtype  of  the  formal  parameter  is  constrained.) 

e  For  a  renaming  declaration  and  for  a  generic  formal  parameter  of  mode  In  out,  the  discrimi-  » 
nants  are  those  of  the  renamed  object  or  of  the  corresponding  generic  actual  paromatar, 

For  the  elaboration  of  a  discriminant  constraint,  the  expressions  glvan  In  tha  discriminant  assoola-  u 
tions  are  ovaluoted  in  some  order  that  Is  not  defined  by  the  language;  tha  expression  of  a  named 
association  Is  evaluated  once  for  each  named  discriminant. 


Examples  (using  types  declared  In  the  previous  section),' 


(4 


LARGE  I  DUFFER(200); 
MESSAGE  ;  BUFFER; 


oonstrsintd,  always  200  oharacters  (explicit  dlaorlmlnant  valua) 
unoonatralnad,  Initially  100  chnractera  (default  dlaorlmlnant  value) 


BASIS  :  SQUARE(5); 

ILLEGAL  ;  SQUARE; 


oonalrained,  alwaya  6  by  6 

lllagal,  a  SQUARE  muat  be  conMtalrmd 


Note: 


The  abovo  rules  and  the  rules  defining  the  elaboration  of  an  object  declaration  (see  3,2)  ensure  n 
that  discriminants  always  have  a  volue,  In  particular.  If  a  discriminant  constraint  Is  Imposed  on  an 
object  declaration,  each  dlaorlmlnant  Is  Initialized  with  the  value  specified  by  the  constraint. 
Similarly,  If  the  subtype  of  a  component  has  a  dlaorlmlnant  conalralnt,  the  discriminants  of  the 
component  are  correspondingly  Initialized. 


Refe  ences.  HaouBi  type  3.8,  auceie  type  definition  3.0,  icoeei  vatur  3.8.  aotuol  parameter  6.4.1 ,  ullocetor  4.0,  array  w 
type  doflnltlc  \  3.6,  bound  of  a  range  3.8,  oompailbla  3.3.2,  component  3.3,  oomponem  declaration  3.7,  ucmponant 
Bublype  inrilootlon  3,7,  compoalto  valua  3,3,  oonatant  3,2.1,  conatrnined  aubtype  3,3,  conalralnt  3,3,  rfeclaratlop  3.1, 
dufoult  expruHiilon  for  a  dlaorlmlnant  3.7,  depend  on  a  dliurlrnlnunt  3.7.1,de8lgnate  3.8,  dailgnated  typo  3.8,  discrimi¬ 
nant  3.3,  elaboration  3,9,  entry  9.6,  evaluation  4.B,  eKpreoelon  4.4,  formal  parameter  6.1,  generic  actual  parameter 
12.3,  ganerlc)  formol  parameter  12,1  12.3,  mode  In  8.1,  rnode  In  out  6.1,  name  4.1,  ob|ecl  3.2,  ob)out  doclnratlon 
3.2,1.  renaming  deoloretlon  8.5,  reeerved  word  2.9,  aatlef/  3.3,  aimple  noma  4,1,  subcomponent  3,3,  aubprogrem  6, 
Ruhtypo  3.3,  subtype  Indication  3.3.2,  typa  3.3,  type  mark  3.3.2.  variable  3.2.1 
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3.7.3  Viriint  Parts 


A  record  type  with  a  variant  part  specifies  alternative  lists  of  components.  Each  variant  defines  the 
components  for  the  corresponding  value  or  values  of  the  discriminant. 

variant-part 

oaan  d/.scrfm/nanr-slmple..name  la 
variant 
I  variant) 

end  caaa; 

variant  :;<=> 

when  oholofl  ||  choice) 
componant_llst 

choice  nimpla.expretalon 

)  di8orete-.ranga  )  others  |  componter.jilmple_namB 

Each  variant  starts  with  a  list  of  choices  which  must  be  of  the  same  type  as  the  discriminant  of  the 
variant  part.  The  tvna  of  the  discriminant  of  a  variant  part  must  not  be  a  generic  formal  type.  If  the 
subtype  of  the  discriminant  la  static,  than  each  value  of  this  subtype  muot  ba  represented  once  e\td 
only  once  In  the  sat  of  choices  of  the  variant  part,  and  no  other  value  Is  allowed.  Otherwise,  each 
value  of  the  (base)  type  of  the  diacrimlnant  muat  ba  rapreeentad  once  and  only  once  In  the  sat  of 
choices. 

The  simple  eKpresaions  and  diacreta  rangaa  given  as  choices  In  a  variant  part  muat  be  static,  A 
choice  defined  by  a  discrete  range  atanda  for  all  values  In  the  norrosponding  range  (none  If  a  null 
range).  The  choice  othara  la  only  allowed  for  the  last  variant  and  as  Its  only  choice;  It  stands  for  all 
values  (possibly  none)  not  given  In  the  cholcfs  of  previous  variants.  A  component  simple  name  io 
not  allowed  as  a  choice  of  a  variant  (although  It  la  . part  of  the  syntax  of  choice). 

A  record  value  contains  the  values  of  the  components  of  a  given  variant  If  and  only  If  the  diacriml¬ 
nant  value  is  equal  to  one  of  the  values  spooiflad  by  the  choices  of  the  variant.  This  rule  applies  in 
turn  to  any  further  variant  that  la.  Itself,  Included  In  the  component  list  of  the  given  variant,  If  the 
component  list  of  a  variant  la  cpaclfied  by  null,  the  variant  has  no  components, 

ixample  of  record  type  wUh  a  variant  part; 

type  DEVICE  is  (PRINTER,  DISK,  DRUM); 
type  STATE  Is  (OPEN,  CLOSED); 

type  PERIPHERALiUNIT  :  DEVICE  i-  DISK)  Is 
reoord 

STATUS  !  STATE; 
ossa  UNIT  Is 

when  PRINTER  «> 

LINE-COUNT  !  INTEGER  renge  1  ..  PAti"_,SIZE; 
when  others 

CYLINDER  :  CYLINDER-INDEX: 

TRACK  :  TRACK-NUMBER; 

end  oaae; 

end  reoord; 
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Examples  of  record  subtypes,  > 

•ubtype  DRUM-UNIT  Is  PERIPHERAUDRUM); 
subtype  DISK-UNIT  io  PERIPHERAUDISK); 

Examples  of  constrained  record  variables;  n 

WRITER  ;  PERIPHERAMUNIT  =••>  PRINTER); 

ARCHIVE  :  DISK„UNIT; 

Note; 

Choices  with  discrete  values  are  also  used  in  case  atatementG  and  in  array  aggregates.  Choices  <> 
with  component  simple  namos  are  used  In  record  aggregates. 

References;  array  aggrsgats  4.3  2,  bais  type  3.3,  component  3.3,  componont  list  3.7.  dlacrnlfl  range  3.6,  m 
discriminant  3,3,  generic  formal  typo  1 2.1 .2,  null  range  3.3,  record  aggregate  4,3.1 ,  range  3,6,  record  type  3.7,  simple 
expression  4.4,  simple  noma  4.1,  static  discrete  range  4.9.  static  eyprasslon  4.9,  static  subtype  4.'D.  subtype  3.3 


3.7.4  Operationa  of  Raoord  Types 


The  basic  operations  of  a  record  type  Include  the  operations  Involved  In  assignment  and  i 
aggregates  (unless  the  type  Is  limited),  membership  tests,  selection  of  record  components, 
qualification,  and  type  conversion  (for  derived  types). 

For  any  object  A  of  s  type  with  dlsorlmlnanta,  the  basic  operations  also  Include  the  following  i 
attribute: 

A'CONSTRAINED  Yields  the  value  TRUE  If  a  discriminant  constraint  applies  to  the  object  A,  .i 

or  If  the  object  Is  a  constant  (Including  a  formal  parameter  or  generic  for¬ 
mal  parameter  of  mode  In);  yields  the  value  FALSE  otherwise.  If  A  Is  a 
generic  formal  parameter  of  mode  in  out,  or  If  A  Is  a  fo'‘mal  parameter  of 
mode  In  out  or  out  and  the  type  mark  given  In  the  corresponding 
parameter  specification  denotes  an  unconstrained  type  with  dlsorlml- 
nents,  then  the  value  of  this  attribute  is  obtained  from  that  of  tho  cor¬ 
responding  actual  parameter.  The  value  of  this  ettrlbute  Is  of  the 
predefined  type  BOOLEAN . 

In  addition,  the  attributes  TBASE  and  T'SIZB  are  defined  for  a  record  type  or  subtype  T  (see  3,3,3);  .« 

the  attributes  A'SIZE  and  A'AODRESS  are  defined  for  a  record  object  A  (see  1 3.7.2). 

Besides  the  basic  operations,  the  operations  of  a  record  type  Include  the  predefined  comparison 
for  equality  and  Inequality,  unless  the  type  la  limited. 

Note; 

A  record  typo  Is  limited  If  the  type  of  any  of  Its  components  Is  limited  (see  7,4.4).  h 

References;  actual  parametBr  6,4,1,  aggrsgata  4,3,  UHNlgnmant  6.2,  atirlbuio  4,1,4,  bask;  oporntloii  3.3,3,  booloan 
type  3,B,3,  constant  3.2,1,  oonvurslon  4,6,  derived  typo  3.4,  dlscrln'lnant  3.3,  discriminant  conslraim  3.7,,';,  formal 
paramotnr  6,1,  generic  actual  paramerer  12. .3,  generic  formal  poremetor  12,1  12.3,  llmltecl  type  7,4,4,  rnombarshlp 
tost  4,6  4.E,2,  mode  0.1,  rjbjBCt  3.2,1 ,  operation  3.3,  predefined  operal.or  4,6,  piodwflnod  typo  C,  qualified  expression 
4,7,  record  type  3.7,  relational  operator  4,B  4,6.2,  selected  component  4.1,3,  iiubi.omponont  3  3,  subtypo  3,3,  typo 
3,3 
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3.8  Access  Types 


An  object  declared  by  an  objec.,  declaration  is  created  by  the  elaboration  of  the  object  declaration 
and  is  denoted  by  a  simple  name  or  by  some  other  form  of  name.  In  contrast,  there  are  objects 
that  are  created  by  the  e»/aluation  of  allocators  (see  4.8)  and  that  have  no  simple  name.  Access  to 
such  an  object  is  achieved  by  an  access  value  returned  by  an  allocator;  the  access  value  Is  said  to 
designate  the  object, 

accos8_type._definition  access  subtypeJndIcation 

For  each  access  type,  there  is  a  literal  null  which  has  a  null  access  value  designating  no  object  at 
all.  The  null  value  of  an  access  type  is  the  default  initial  value  of  the  type.  Other  values  of  an 
access  type  are  obtained  by  evaluation  of  a  special  operation  of  the  type,  called  an  allocator.  Each 
such  access  value  designates  an  object  of  the  subtype  defined  by  the  subtype  indication  o^  the 
access  type  definition;  this  subtype  Is  called  the  designated  subtype:  the  base  type  of  this  subtype 
is  called  the  designated  type.  The  objects  designated  by  the  values  of  an  access  type  form  a  collec¬ 
tion  implicitly  associated  with  the  type. 

The  elaboration  of  an  access  type  definition  consists  of  the  oiaboratlon  of  the  subtype  indication 
and  creates  an  access  type. 

If  an  access  object  is  constant,  the  contained  access  value  cannot  be  changed  and  always 
designates  tha  same  object.  On  the  other  hand,  the  value  of  the  designated  object  need  not 
remain  the  same  (assignment  to  the  designated  object  is  allowed  unless  the  designated  type  Is 
limited). 

Tha  only  forms  of  constraint  that  are  allowed  after  the  name  of  an  access  type  in  a  subtype  indin- 
tion  are  index  constraints  and  discriminant  constraints.  (See  sections  3.6.1  and  3.7.2  for  the  rules 
applicable  to  these  subtype  indications.)  An  access  value  belongs  to  a  corresponding  subtype  of 
an  access  type  either  If  the  access  value  is  the  null  value  or  if  the  value  of  the  designated  object 
satisfies  the  constraint. 

Examples: 

type  FRAME  Is  eocest  MATRIX;  --  see  3.6 

type  0UFFER_NAME  it  accees  BUFFER;  -  see  3.7.1 

Notes: 

An  access  value  delive  red  by  an  allocator  can  be  assigned  to  several  access  objects.  Hence  It  Is 
possible  for  an  object  created  by  an  allocator  to  be  designated  by  more  than  one  variable  or  cons¬ 
tant  of  the  access  type.  An  access  value  can  only  designate  an  object  created  by  an  allocator;  in 
particular,  it  cannot  designate  an  object  declared  by  an  object  declaration. 

If  the  type  of  the  objects  designated  by  the  access  values  is  en  array  type  or  a  type  with  discrimi¬ 
nants,  these  objects  are  constrained  with  either  the  array  bounds  or  the  discriminant  values  sup¬ 
plied  implicitly  or  explicitly  for  the  corresponding  allocators  (see  4.8). 

Access  values  are  called  pointers  or  references  in  some  other  languages. 

References:  allocator  4.8,  array  type  3,6,  assignment  6.2,  belong  to  n  subtype  3.3.  constant  3.2.1,  constraint  3.3, 
discriminant  constraint  3.7.2,  elaboration  3.9,  Index  constraint  3.6.1,  index  specification  3.6,  limited  type  7,4,4,  literal 

4.2,  name  4.1 ,  object  3,2.1,  object  declaration  3.2.1,  reserved  word  2.9,  satisfy  3.3,  simple  nemo  4.1,  subcomponent 

3.3.  subtype  3.3,  subtype  Indication  3.3.2,  type  3.3,  variable  3.2,1 
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3.8.1  Incomplete  Type  Oeclaretlone 


There  are  no  particular  limitations  on  the  designated  typa  of  an  access  type.  In  particular,  the  type 
of  a  component  of  the  designated  type  can  be  another  access  type,  or  even  the  same  access  type. 
This  permits  mutually  dependent  and  recursive  access  types.  Their  declarations  require  a  prior 
incomplete  (or  private)  type  declaration  for  one  or  more  types. 

incomplete_type_declaratlon  typa  identifier  [dlscrlminant-partl; 

For  each  incomplete  typa  declaration,  there  must  be  a  corresponding  declaration  of  a  type  with  the 
same  identifier.  The  corresponding  declaration  must  be  either  a  full  type  declaration  or  the 
declaration  of  a  task  type.  In  the  rest  of  this  section,  explanations  are  given  in  terms  of  full  type 
declarations;  the  same  rules  apply  also  to  declarations  of  task  types.  If  the  Incomplete  type 
declaration  occurs  Immediately  within  either  a  declarative  part  or  the  visible  part  of  a  package 
specification,  then  the  full  type  declaration  must  occur  later  and  immediately  within  this 
declarative  part  or  visible  part.  If  the  Incomplete  type  declaration  occurs  immediately  within  the 
private  part  of  a  package,  then  the  full  type  declaration  must  occur  later  and  immediately  within 
either  the  private  part  Itself,  or  the  declarative  part  of  the  corresponding  package  body. 

A  discriminant  part  must  be  given  In  the  full  type  declaration  if  and  only  If  one  Is  given  In  the 
Incomplete  type  declaration;  if  discriminant  parts  are  given,  then  they  must  conform  (see  6.3.1  for 
the  conformance  rules).  Prior  to  the  end  of  the  full  type  declaration,  the  only  allowed  use  of  a  name 
that  denotes  a  type  declared  by  an  Incomplete  type  declaration  is  as  the  type  mark  In  the  subtype 
Indication  of  an  access  type  definition;  the  only  form  of  constraint  allowed  In  this  subtype  Indica¬ 
tion  Is  a  discriminant  constraint. 

The  elaboration  of  an  Incomplete  type  declaration  creates  a  type.  If  the  Incomplete  type  declara¬ 
tion  has  a  discriminant  part,  this  elaboration  includes  that  of  the  discriminant  part;  in  such  a  case, 
the  discriminant  part  of  the  full  type  declaration  is  not  elaborated. 

Example  of  a  recursive  type: 

type  CELL;  --  Incomplete  type  declaration 

tYp«)  LINK  la  aooesB  CELL; 

type  CELL  la 
record 

VALUE  :  INTE(3ER; 

SUCC  ;  LINK; 

PRED  ;  LINK; 

end  record; 

HEAD  :  LINK  ;=  new  CELL'IO,  null,  null); 

NEXT  :  LINK  :=  HEAD.SUCC; 

Examples  of  mutually  dependent  access  types: 

type  PERSONISEX  ;  GENDER);  -  Incomplete  type  declaration 
type  CAR;  —  incomplete  type  declaration 

type  PERSON_NAME  Is  acceae  PERSON; 
type  CAR...NAME  Is  aooeas  CAR; 

type  CAR  la 
record 

NUMfSER  ;  INTEGER; 

OWNER  :  PERSON_NAME; 
end  record; 
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type  PERSONISEX  ;  GENDER)  la 
record 

NAME  :  STRING!  1  20): 

BIRTH  :  DATE; 

AGE  ;  INTEGER  range  0  ..  130; 

VEHICLE  :  CAR_NAME; 

cate  SEX  la 

whan  M  ->  WIFE  :  PERSON_NAME(SEX  =>  F): 

whan  F  ->  HUSBAND  :  PERSON_NAME(SEX  =>  M); 

end  caaa; 

end  record; 

MY_CAR,  Y0UR_CAR,  NEXT.CAR  :  CAR.NAME;  -  Implicitly  initialized  with  null  value 

References;  access  type  3.8,  access  typo  definition  3.6,  component  3.3.  conform  6.3.1,  constraint  3.3,  declaration 
3.1,  declarative  Item  3.9,  designate  3.8,  discriminant  constraint  3.7.2,  discriminant  part  3.7.1,  elaburatlon  3.9,  Iden¬ 
tifier  2.3,  name  4.1,  subtype  Indication  3.3.2,  type  3.3,  type  mark  3.3.2 


3.8.2  Onerntione  of  Aonoee  Typea 


The  basic  operations  of  an  access  type  Include  the  operations  involved  In  assignment,  allocators 
for  the  access  type,  membership  tests,  qualification,  explicit  conversion,  and  the  literal  null.  If  the 
designated  type  Is  a  type  with  discriminants,  the  basic  operatlotis  Include  the  seloctlon  of  the  cor¬ 
responding  discriminants;  If  the  designated  type  Is  a  record  type,  they  include  the  selection  of  the 
corresponding  components;  If  the  designated  type  Is  an  array  type,  they  Include  the  formation  of 
Indexed  compof>ent8  and  slices;  if  the  designated  type  Is  a  task  type,  they  Include  selection  of 
entries  and  entry  families.  Furthermore,  the  basic  operations  Include  the  formation  of  a  selected 
component  with  the  reserved  word  all  (see  4.1.3). 

If  the  designated  type  la  an  array  type,  the  basic  operations  Include  the  attributes  that  have  the 
attribute  designators  FIRST,  LAST,  RANGE,  and  LENGTH  (likewise,  the  attribute  designators  of  the 
N-th  dimension),  The  prefix  of  each  of  these  attributes  must  be  a  value  of  the  access  type.  These 
attributes  yield  the  corresponding  characteristics  of  the  designated  object  (see  3.6.2). 

If  the  designated  type  Is  a  task  type,  the  basic  operations  include  the  attributes  that  have  the 
attribute  designators  TERMINATED  and  CALLABLE  (see  9.9).  The  prefix  of  each  of  these  attributes 
must  be  a  value  of  the  access  type.  These  attributes  yield  the  corresponding  characteristics  of  the 
designated  task  objects. 

In  additio.n,  the  attribute  T'BASE  (see  3.3.3)  and  the  representation  attributes  TSIZE  and 
T’STORAGE_SIZE  (see  13.7.2)  are  defined  for  an  access  type  or  subtype  T;  the  attributes  A'SIZE 
and  A'ADDRESS  are  defined  for  an  access  object  A  (see  1 3.7.2), 

Besides  the  basic  operations,  the  operations  of  an  access  type  include  the  predefined  comparison 
for  equality  and  Inequality, 

References:  acce’ts  type  3,8,  allocator  4,8,  array  type  3,0,  assignment  6.2,  attribute  4.1.4,  attribute  designator  4,1 ,4, 
base  type  3.3,  basic  operation  3.3.3,  collection  3.8,  constrained  array  subtype  3.6,  conversion  4.6,  designela  3.0. 
deslgnatad  subtype  3.8,  designated  type  3.8  discriminant  3.3,  Indexed  component  4.1.1,  litoral  4.2,  memberehip  test 
4.6  4.6.2,  object  3.2.1,  operation  3.3,  private  type  7.4,  qualified  expreaslon  4.7,  record  type  3.7,  selected  component 
4.1.3,  slice  4,1,2,  subtype  3.3,  task  type  9.1,  type  3.3 
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Declarations  and  Types 


3.9  Declarative  Parts 


A  declarative  part  contains  declarative  items  (possibly  none). 
doclarative_part  ::= 

|basic_declaratlveJtem|  |later_deciarativeJtem| 


baslc_declarativeJtem  ::=  ba8lc_d8claration 
I  represantation.clause  |  U8e_clcuse 


later_declarativBjtem  body 
I  subprogram_declaration 
I  task-declaration 
I  use_claua8 


package-declaration 

generlc_declaratlon 

ganericjnstantiatlon 


body  propor_body  |  body-jstub 


proper_body  8ubprogram_body  |  pockageJsody  |  task_body 


The  elaboration  of  a  declarative  part  consists  of  the  elaboration  of  the  declarative  Items,  if  any,  In 
the  order  in  which  they  are  given  in  the  declarative  part.  After  Its  elaboration,  a  declarative  Item  Is 
said  to  be  elaborated,  Prior  to  the  completion  of  Its  elaboration  (Including  before  the  elaboration), 
the  declarative  Item  is  not  yet  elaborated. 


For  several  forms  of  declarative  item,  the  language  rules  (In  particular  scope  and  visibility  rules)  are 
such  that  It  Is  either  Impossible  or  Illegal  to  use  an  entity  before  the  elaboration  of  the  declarative 
item  that  declares  this  entity.  For  example,  it  is  not  possible  to  use  the  name  of  a  type  for  an  object 
declaration  if  the  corresponding  type  declaration  is  not  yet  elaborated.  In  the  case  of  bodies,  the 
following  checks  are  performed: 

•  For  a  subprogram  call,  a  check  Is  made  that  the  body  of  the  subprogram  Is  already  elaborated. 

e  For  the  activation  of  a  task,  a  check  Is  made  that  the  body  of  the  corresponding  task  unit  Is 
already  elaborated. 


•  For  the  Instantiation  of  a  generic  unit  that  has  a  body,  a  check  Is  made  that  this  body  Is 
already  elaborated. 


The  exception  PROGRAM-ERROR  is  raised  If  any  of  these  checks  fails. 

If  a  subprogram  declaration,  a  package  declaration,  a  task  declaration,  or  a  generic  declaration  is  a 
declarative  Item  of  a  given  declarative  part,  then  the  body  (If  there  Is  one)  of  the  program  unit 
declared  by  the  declarative  Item  must  Itself  be  a  declarative  item  of  this  declarative  part  (and  must 
appear  later).  If  the  body  Is  a  body  stub,  then  a  separately  compiled  subunit  containing  the  cor¬ 
responding  proper  body  Is  r  equired  for  the  program  unit  (see  10.2). 


References;  activation  9,3,  Instantiation  12.3,  prooram_error  oxosptlon  11.1,  scopo  8.2,  subprogram  call  6,4,  type 
3.3,  visibility  8,3 


Elaboration  of  declarations;  3.1,  component  declaration  3.7,  deferred  constant  declaration  7.4.3,  discriminant 
specification  3.7,1,  entry  declaration  9.6,  enumeration  literal  specification  3.5.1,  generic  declaration  12.1,  generic 
Instantiation  12,3,  Incomplete  type  declaration  3,8.1,  loop  parameter  specification  6.5,  number  declaration  3.2.2, 
object  declaration  3.2.1,  package  declaration  7.2,  parameter  specification  6.1,  private  type  declaration  7.4.1 ,  ranem- 
Ing  declaration  8.5,  subprogram  declaration  0.1,  subtype  declaration  3.3.2,  tack  declaration  9.1 ,  type  declaration  3.3. 1 
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Declarative  Parts  3.9 


Elaboration  of  typo  definitions;  3.3.1 ,  access  type  definition  3.8,  array  type  definition  3.6,  derived  type  definition 
3,4,  enumeration  type  definition  3,5.1,  Integer  type  definition  3,5,4,  real  typo  definition  3.5.6,  record  typo  definition 
3.7 

Elaboration  of  other  constructs;  context  clause  10,1,  body  stub  10,2,  compilation  unit  10.1,  discriminant  part 
3.7.1,  generic  body  12.2,  generic  formal  parameter  12.1  12.3,  library  unit  10.5,  package  body  7.1,  representation 
clause  13,1,  subprogram  body  6,3,  subunit  10.2,  task  body  9.1,  task  object  9.2,  task  specification  9.1,  use  clause  8.4, 
with  clause  10.1.1 


4.  Names  and  Exprastlona 


The  rules  applicable  to  the  different  forms  of  name  and  expression,  and  to  their  evaluation,  are 
given  in  this  chapter. 


4.1  Namai 


Names  can  denote  declared  entitles,  whether  declared  explicitly  or  Implicitly  (see  3.1 ).  Names  can 
also  denote  objects  designated  by  access  values;  subcomponents  and  slices  of  objects  and  values; 
single  entries,  entry  families,  and  entries  In  families  of  entries.  Finally,  names  can  denote  attributes 
of  any  of  the  foregoing. 

name  8imple_nama 

I  characterJIteral  |  operator_8ymbol 
I  indexed-component  j  Bllce 
I  selectad...component  |  attribute 

8lmple_nama  Identifier 

prefix  name  |  functlon_oall 

A  simple  name  for  an  entity  Is  either  the  identifier  associated  with  the  entity  by  Its  declaration,  or 
another  Identifier  associated  with  the  entity  by  a  renaming  declaration. 

Certain  forms  of  name  (Indexed  and  selected  components,  slices,  and  attributes)  Include  a  prefix 
that  is  either  a  name  or  a  function  call.  If  the  type  of  a  prefix  Is  an  access  type,  then  the  prefix  must 
not  be  a  name  that  denotes  a  formal  parameter  of  mode  out  or  a  subcomponent  thereof. 

If  the  prefix  of  a  name  is  a  function  call,  then  the  name  denotes  a  component,  a  slice,  an  attribute, 
an  entry,  or  an  entry  family,  either  of  the  result  of  the  function  call,  or  (If  the  result  Is  an  access 
value)  of  the  object  designated  by  the  result. 

A  prefix  Is  said  to  be  appropriate  for  a  type  In  either  of  the  following  cases: 

•  The  type  of  the  prefix  Is  the  type  considered. 

•  The  type  of  the  prefix  is  an  access  type  whose  designated  type  is  the  type  considered. 

The  evaluation  of  a  name  determines  the  entity  denoted  by  the  name.  This  evaluation  has  no  other 
effect  for  a  name  that  Is  a  simple  name,  a  character  literal,  or  an  operator  symbol, 

The  evaluation  of  a  name  that  has  a  prefix  includes  the  evaluation  of  the  prefix,  that  Is,  of  the  cor¬ 
responding  name  or  function  call.  If  the  type  of  the  prefix  Is  an  access  type,  the  evaluation  of  the 
prefix  includes  the  determination  of  the  object  designated  by  the  corresponding  access  value;  the 
exception  CONSTRAINT_ERROR  Is  raised  If  the  value  of  the  prefix  is  a  null  access  value,  except  In 
the  case  of  the  prefix  of  a  representation  attribute  (see  13.7.2). 
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Examples  of  simple  names; 


PI 

-  the 

simple 

name 

of 

a 

number 

(see 

3.2.2) 

LIMIT 

-  the 

simple 

name 

of 

a 

constant 

(see 

3.2.1) 

COUNT 

-  the  simple 

name 

of 

a 

scalar  variable 

(see 

3.2,1) 

BOARD 

-  the 

simple 

name 

of 

an 

1  array  vtiriable 

(see 

3,6,1) 

MATRIX 

-  the 

simple 

name 

of 

a 

type 

(see 

3.6) 

RANDOM 

-  the 

simple 

name 

of 

a 

function 

(see 

6.1) 

ERROR 

-  the 

simple 

name 

of 

an 

excepti<.tn 

(see 

11.1) 

References:  access  type  3,8,  access  value  3.8,  attribute  4.1.4,  belong  to  a  type  3.3,  character  litoral  2,5,  component 
3.3,  constraint._Brroi  exception  11.1,  declaration  3.1,  designate  3,8,  designated  type  3,8,  entity  3.1 ,  entry  9,5,  entry 
family  9.5.  evaluation  4,5,  formal  paramatar  6.1,  function  call  6.4,  identifier  2,3,  Indexed  component  4.1.1  mode  6.1, 
null  access  value  3.8.  object  3.2. 1 ,  operator  symbol  6.1 ,  raising  of  exceptions  1 1 ,  renaming  declarations  8.5,  selected 
component  4.1.3,  slice  4.1.2,  subcomponent  3.3,  type  3.3 


4.1.1  Indexed  Componente 


An  Indexed  component  denotes  either  a  component  of  an  array  or  an  entry  In  a  family  of  entries. 

indexed_component  ii-  praflxlaxpraaslon  |,  axprassloni) 

In  the  case  of  a  component  of  an  array,  the  prefix  must  be  appropriate  for  an  array  type.  The 
expressions  specify  the  Index  values  for  the  component;  there  must  be  one  such  expression  for 
each  index  position  of  the  array  type.  In  the  case  of  an  entry  In  a  family  of  entries,  the  prefix  must 
be  a  name  that  denotes  an  entry  family  of  a  task  object,  and  the  expression  (there  must  be  exactly 
one)  specifies  the  Index  value  for  the  Individual  entry. 

Each  expression  must  be  of  the  type  of  the  corresponding  Index.  For  the  evaluation  of  an  Indexed 
component,  the  prefix  and  the  expressions  are  evaluated  In  some  order  that  Is  not  defined  by  the 
language.  The  exception  CONSTRAINT.ERROR  Is  raised  if  an  Index  value  does  not  belong  to  the 
range  of  the  corresponding  Index  of  the  prefixing  array  or  entry  family. 

Examples  of  Indexed  components; 


MY„SCHEDULE(SAT) 

-  a 

component 

of 

a 

one-dimenslonal 

array 

(see 

3.6,1) 

PAGE(IO) 

-  a 

component 

of 

a 

one-dimenslonal 

array 

(see 

3.6) 

BOARDIM,  J  +  1) 

-  a 

component 

of 

a 

two-dimensional 

array 

(see 

3,6,1) 

PAGE(10)(20) 

"  a 

component 

of 

a 

component 

(see 

3.6) 

REQUEST(MEDIUM) 

"  an  entry  In  a 

family  of  entries 

(see 

9.5) 

NEXT..FRAME(L)(M,  N) 

-  a 

component 

of 

a 

function  call 

(see 

6,1) 

Notes  on  the  examples; 

Distinct  notations  are  used  for  components  of  multidimensional  arrays  (such  as  BOARD)  and 
arrays  of  arrays  (such  as  PAGE ).  The  components  of  an  array  of  arrays  are  arrays  and  can  therefore 
be  Inde.xed,  Tnus  PAQE(10)(20)  denotes  the  20th  component  of  PAGE  (10).  In  the  last  example 
NEXT„FRAME(L)  la  a  function  call  returning  an  access  value  which  designates  a  two-dimonslonal 
array. 

References:  npprotjrlotB  for  a  type  4,1,  array  type  3.6,  component  3,3,  component  of  an  array  3.6,  conatralnt-orror 
exception  11.1,  dimension  3.0,  entry  9,5,  entry  family  9.5,  evaluation  4.5,  expression  4.4,  function  coll  6.4,  In  some 
rjicler  1.6,  Index  3.6,  name  4.1,  prefix  4.1,  raising  of  exceptions  11.  returned  value  5.8  6.5,  task  object  9.2 
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4.1.2  Slices 


A  slice  denotes  a  one-dimensional  array  formed  by  a  sequence  of  consecutive  components  of  a 
one-dimensional  array.  A  slice  of  a  variable  Is  a  variable;  a  slice  of  a  constant  Is  a  constant;  a  slice 
of  a  value  is  a  value. 

slice  profix(dlscrete_range) 

The  prefix  of  a  slice  must  be  appropriate  for  a  one-dimenslonal  array  type.  The  type  of  the  slice  Is 
the  base  type  of  this  array  type.  The  bounds  of  the  discrete  range  define  those  of  the  slice  and 
must  be  of  the  type  of  the  Index;  the  slice  Is  a  null  slice  denoting  a  null  array  If  the  discrete  range  Is 
a  null  range. 

For  the  evaluation  of  a  name  that  is  a  alica,  the  prefix  and  the  discrete  range  are  evaluated  In  some 
order  that  Is  not  defined  by  the  language.  The  exception  CONSTRAINT_ERROR  Is  raised  by  the 
evaluation  of  a  slice,  other  than  a  null  slice.  If  any  of  the  bounds  of  the  discrete  range  does  not 
belong  to  the  Index  range  of  the  prefixing  array.  (The  bounds  of  a  null  slice  need  not  belong  to  the 
subtype  of  the  Index.) 

Examples  of  slices; 


STARS!  1  ,.  16) 

-  a  slice  of  16  charactsrs 

(saa 

3.6.3) 

PAGEI10  ..  10  +  SIZE) 

~  a  silos  of  1  +  SIZE  components 

(see 

3.6  end 

3.2.1) 

PAGEILKA  ..  B) 

-  a  slice  of  the  array  PAGE!L) 

(see 

3.6) 

STARS!  1  ,.  0) 

-  a  null  silos 

(see 

3.6.3) 

iyiY_SCHEDULE!WEEKDAY) 

~  bounds  given  by  subtype 

(sea 

3.6  and 

3.6.1) 

STARSIB  .,  16)(K) 

-  asms  as  STARS!  K) 

(see 

3.6.3) 

~  provided  that  K  Is  In  6  ..  16 


Notes; 

For  a  one-dimenalonal  array  A,  the  name  A(N  N)  is  a  slice  of  one  component;  Its  type  Is  the  base 
type  of  A.  On  the  other  hand,  A\N)  la  a  component  of  the  array  A  and  has  the  corresponding  com¬ 
ponent  type. 

References;  spqroprlsts  for  a  type  4.1,  irrsy  3.6,  array  type  3.8,  array  valua  3.6,  baaa  typt  3,3,  belong  to  a  subtype 
3.3,  bound  of  it  dleorete  range  3,6.1,  component  .j.3,  component  tyne  3.3,  constant  3.2.1.  constraint  3.3,  oon- 
stralnt_error  exception  11.1,  dimension  3.6,  discrete  range  1.6,  evaluation  4.S,  Index  3.6,  Index  range  3.6,  name  4.1, 
null  array  3.6.1.  null  range  3.5,  prefix  4  I.  raising  of  exceptions  11,  type  3  3,  variable  3.2.1 


4.1.3  Selected  Components 


Selected  components  are  used  to  denote  .  tcord  components,  entries,  entry  families,  and  objects 
designated  by  access  values;  they  are  sIro  used  as  expanded  names  as  described  below. 

3eleoted_oomponent  preflx.aeleotor 

selector  J  J-a  8lmple_.namo 

I  chHractsr-.litttral  j  operator_symbol  |  all 
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The  following  four  forms  of  selected  components  are  used  to  denote  a  discriminant,  a  record  com¬ 
ponent,  an  entry,  or  an  object  designated  by  an  access  value: 

(a)  A  discriminant; 

The  selector  must  be  a  simple  name  denoting  a  discriminant  of  an  object  or  value.  The  prefix 
must  be  appropriate  for  the  type  of  this  object  or  value. 

(b)  A  component  of  a  record; 

The  selector  must  bo  a  simple  name  denoting  a  component  of  a  record  object  or  value.  The 
prefix  must  be  appropriate  for  the  type  of  this  object  or  value. 

For  a  component  of  a  variant,  a  check  Is  made  that  the  values  of  the  discriminants  are  such 
that  the  record  has  this  component.  Tho  exception  CONSTRAINT.ERROR  Is  raised  If  this  chock 
fail.s. 

(c)  A  single  entry  or  an  entry  family  of  a  task; 

The  selector  must  be  a  simple  name  denoting  a  single  entry  or  an  entry  family  of  a  task.  The 
prefix  must  be  appropriate  for  the  type  of  this  task. 

Id)  An  object  designated  by  an  access  value: 

The  selector  must  be  the  reserved  .vord  efl.  The  vaif*'  of  the  [.•'■'♦ix  must  beirng  to  &n  access 
type. 

A  selected  component  of  one  of  the  remaining  two  forms  is  called  an  expanded  name,  In  each 
case  the  selector  must  be  either  a  simple  name,  a  character  literal,  or  an  operator  aymbol.  A  func¬ 
tion  call  Is  not  allowed  as  the  prefix  of  an  expended  name.  An  expanded  name  can  denote; 

(e)  An  entity  declared  In  the  visible  part  of  a  package: 

The  prefix  must  denote  the  package.  Tho  selector  must  be  the  simple  name,  character  litoral, 
or  operator  symbol  of  the  entity. 

(f)  An  entity  whose  declaration  occurs  Immediately  within  a  named  construct: 

The  prefix  must  denote  a  construct  that  Is  either  a  program  unit,  a  block  statement,  a  loop 
statement,  or  an  accept  statement,  In  the  case  of  an  accept  statement,  the  prefix  must  bo 
either  the  simple  name  of  the  entry  or  entry  family,  or  an  expanded  namo  ending  with  such  a 
simple  name  (that  la,  no  Index  is  allowed).  The  selector  must  be  the  simple  name,  character 
literal,  or  operator  symbol  of  an  entity  whoso  declaration  occurs  Immediately  within  the  con¬ 
struct. 

This  form  of  expanded  name  Is  only  allowed  within  the  construct  Itself  (Including  the  body  and 
any  subunits.  In  the  ceae  of  a  program  unit),  A  name  declared  by  a  renaming  declaration  la  not 
allowed  as  tho  prefix.  If  the  prefix  Is  the  name  of  a  subprogram  or  accept  statement  and  If 
there  Is  more  than  one  visible  enclosing  subprogram  or  accept  statement  of  this  name,  the 
expanded  name  Is  ambiguous.  Independently  of  the  selector. 

If,  according  to  tho  visibility  rules,  there  Is  at  least  one  possible  Interpretation  of  the  prefix  of  a 
selected  component  as  tho  namo  of  an  enclosing  subprogram  or  accept  statement,  then  the  only 
Interpretations  considered  are  those  of  rule  (f),  as  expanded  names  (no  Interpretations  of  the  prefix 
as  a  function  call  are  than  onsidered). 
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The  evaluation  of  a  name  that  Is  a  sslected  component  Includes  the  evaluation  of  the  prefix, 
Examples  of  selected  components: 


TOMORROW, MONTH 

a 

record  component 

(see 

3,7) 

NEXT-CAR.OWNER 

s 

record  component 

(see 

3.8.1) 

NEXT-CAR.OWNER.AQE  - 

a 

record  component 

(see 

3.8.1) 

WRITER.UNIT 

a 

record  component  (a  discriminant) 

(see 

3.7.3) 

MIN_CELUH).VAL’JE 

a 

record  component  of  the  result 

(see 

6.1  and 

3,8.1) 

... 

of 

the  function  call  MIN_CELL(H) 

CONTROL.SEIZE 

an 

entry  of  the  task  CONTROL 

(see 

9.f  and 

9.2) 

POOL(K).WRITE 

an 

entry  of  the  task  POOL(K) 

(see 

9.1  and 

9.2) 

NEXT..CAR.ell 

the  object  designated  by 

" 

the  access  variable  NEXT.CAR 

(see 

3.8.1) 

Examples  of  expanded  names; 

TABLE_MANAQER.INSEflT 

•> 

a  procedure  of  the  visible  pert  of  a 

package  (see 

7,6) 

KEY_MANAQER.“<" 

— 

an  operator  of  the  visible  part  of  a 

package  (aee 

7,4.2) 

DOT_PRODUCT.SUM 

a  variable  declared  in  a  procedure  body 

(sea 

6.5) 

BUFFER.POOL 

a  variable  declared  In  a  task  unit 

(sea 

9.12) 

BUFFER.READ 

an  entry  of  a  task  unit 

(aeo 

9.12) 

SWAP.TEMP 

a  variable  declared  In  a  block  statement 

(see 

5.8) 

STANDARD.BOOLEAN 

the  name  of  a  pradefinad  type 

(see 

8.6  and 

Note: 


For  a  record  with  components  that  are  other  records,  the  above  rules  Imply  that  the  simple  name 
must  be  given  at  each  lavel  for  the  name  of  a  subcomponent.  For  example,  the  name 
NEXT-CAR.OWNER .BIRTH .MONTH  cannot  be  shortened  (NEXT..CAR .OWNER .MONTH  Is  not 
allowed). 


References;  loospt  itatemsnt  9.tt,  aocsu  type  3.8,  sooest  value  3.S,  epproprlste  for  a  type  4.1 ,  block  itstament  6,8, 
body  of  a  progrsm  unit  3.9,  oherecter  literal  2.6,  component  of  a  record  3.7,  oonetrslnt_error  exception  11,1,  denlara- 
tion  3.1,  datlgnate  3.8,  discriminant  3.3,  entity  3.1,  entry  9.5,  entry  family  9.6,  function  call  6.4,  Index  3.6,  loop  state¬ 
ment  6,6,  ob)aot  3,2,1,  occur  Immediately  within  8.1.  operator  4.6.  operator  aymbol  8.1 ,  overloading  8.3  package  7, 
predefined  type  C,  prefix  4,1,  procedure  body  0.3,  program  unit  8.  raising  of  exceptions  i  1,  record  3,7,  reoora  oompo' 
nent  3,7,  renaming  declaration  8,6,  reserved  word  2.».  simple  name  4.1,  subprogram  8,  subunit  10,2,  task  9,  task 
object  9.2,  task  unit  9,  variable  3.7.3,  variant  3.7.3,  visibility  8.3.  visible  part  3.7.3 


4.1.4  AttrlbutM 


An  attribute  denotes  a  basic  operation  of  an  entity  given  by  a  prefix, 
attribute  piaflx'attrlbute_daaignator 

nttrlbuts.dealgnator  ::■>  almpla^name  ((ur>/ver«a/_jfaf/c„sxprss8lon)l 

The  applicable  attribute  deiignatora  depend  on  the  prefix.  An  attribute  can  be  a  basic  operation 
delivering  a  value;  alternatively  It  oari  be  a  function,  a  type,  or  a  range.  The  meaning  of  the  prefix  of 
an  attribute  must  be  determinable  Independently  of  the  attribute  designator  and  independently  of 
the  fact  that  It  Is  the  prefix  of  an  attribute. 
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4  The  attributed  defined  by  the  language  are  aummariied  in  Annex  A.  in  addition,  an 
impiementation  may  provide  impiementation-defined  attributes;  their  description  must  be  given  in 
Appendix  F .  The  attribute  designator  of  any  implementation-defined  attribute  must  not  be  the 
same  as  that  of  any  language-defined  attribute. 

5  The  evaluation  of  a  name  that  is  an  attribute  consists  of  the  evaluation  of  the  prefix. 

Notes; 


The  attribute  designators  DIGITS  ,  DELTA,  and  RANGE  have  the  same  Identifier  as  a  reserved  word. 
However,  no  confusion  Is  possible  since  an  attribute  designator  is  always  preceded  by  an 
apostrophe.  The  only  predefined  attribute  designators  that  have  a  universal  expression  are  those 
for  certain  operations  of  array  types  (see  3.6.2). 


7  Examples  of  attributes; 


COLOR'FIRST 

RAINBOW'BASE'FIRST 

REAL' DIGITS 

BOARD'LAST(2) 

BOARD'RANQEd) 

POOL(K)'TERMINATED 

DATE'SIZE 

MESSAGE'ADDRGSS 


>•  minimum  value  of  the  enumeration  type  COLOR 

-  same  as  COLOR'FIRST 

-  prsolslon  of  the  type  REAL 

“  upper  bound  of  the  second  dimension  of  BOARD 

-  Index  range  of  the  first  dimension  of  BOARD 

-  TRUE  If  task  POOL(K)  Is  terminated 

-  number  of  bits  for  records  of  typo  DATE 

-  address  of  the  record  variable  MESSAGE 


(see  3.3.1  3.B) 
(see  3.3.2  3,3.3) 
(see  3.5.7  3.6.8) 
(see  3.6.1  3.6.2) 
(see  3.6.1  3.6.2) 
(see  9.2  9.9) 

(see  3.7  13.7.2) 

(see  3.7.2  13.7.2) 


e  References;  aijpropi  iate  for  a  typo  4.1,  basic  operation  3. 3.3,  declared  entity  3.1,  nama  4.1,  prefix  4,1,  reserved  word 
2.9,  simple  name  4.1,  atstic  expreailon  4.9,  type  3.3,  universal  expression  4.10 


4.2  Literals 


I  A  literal  is  either  a  numeric  literal,  an  enumeration  literal,  the  literal  null,  or  a  string  literal.  The 
evaluation  of  a  literal  yields  the  corresponding  value. 

}  Numeric  literals  are  the  litorals  of  the  types  urtfversaUnteger  and  universalureal.  Enumeration 
literals  Include  character  literalo  and  yield  values  of  the  corresponding  enumeration  types.  The 
literal  null  yields  a  null  access  value  which  designates  no  objects  at  all. 

3  A  string  literal  Is  a  basic  operation  that  combines  a  sequence  of  characters  Into  a  value  of  a  one- 
dimensional  array  of  a  character  type;  the  bounds  of  this  array  are  determined  according  to  the 
rules  for  positional  array  aggregates  (see  4.3.2),  For  a  null  string  literal,  the  upper  bound  Is  the 
predecessor,  as  given  by  the  PRED  attribute,  of  the  lower  bound.  The  evaluation  of  a  null  string 
literal  raises  the  exception  CONSTRAINT-ERROR  If  the  lower  bound  does  not  have  a  predecesaor 
(see  3.5.5). 

4  The  type  of  o  string  literal  and  likewise  the  type  of  the  literal  null  must  be  determinable  solely  from 
the  context  In  which  this  literal  appt  ars,  excluding  the  literal  Itself,  but  using  the  fact  that  the  literal 
null  is  u  value  of  an  access  type,  and  similarly  that  a  string  literal  Is  a  value  of  a  one-dimensional 
array  type  whoso  component  type  Is  a  character  type. 

5  The  character  litorals  corresponding  to  the  graphic  characters  contained  within  a  string  literal  must 
be  visible  at  the  place  of  the  string  literal  (although  these  characters  themselves  are  not  used  to 
determine  the  type  of  the  string  literal). 
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I 

^  Examptas: 


« 


3.141  59„26536 

1„345 

CLUBS 

'A' 

"SOME  TEXT" 


a  real  literal 
an  Integer  literal 
on  enumeration  literal 
a  character  literal 
a  string  literal 


References:  access  type  3.8,  aggregate  4.3,  array  3.6,  array  bound  3.6,  array  type  3.6,  charactnr  literal  2.6,  character 
type  3.5.2,  component  type  3.3,  conatralnt_arror  exception  11.1,  designate  3.6,  dimension  3.6,  enumeration  literal 
3.6.1.  graphic  character  2.1.  Integer  literal  2.4,  null  accete  value  3.6,  null  literal  3.8,  numeric  litoral  2.4,  object  3.2.1, 
real  literal  2.4.  string  literal  2.6,  type  3.3,  unIveriaIJntegor  type  3.5.4,  unlvoraeLroal  type  3.5.6,  visibility  8.3 


1 


4.3  Aggregatoa 


Ah  aggregate  la  a  baalc  oporatlon  that  combines  component  values  Into  a  composite  value  of  a  t 
record  or  array  type. 

aggregate  i;-^  : 

(component-asaaoiatlon  |,  aomponent_ataoolatlon)) 

component_assoclatlon  iiai 

Icholne  ||  cholcel  ]  axprosslon 

Each  component  association  associates  an  expreaalon  with  components  (possibly  none),  A  compo-  ^ 
nent  association  io  said  to  be  namad  If  the  components  are  specified  explicitly  by  choices;  It  Is 
otherwise  said  to  be  poaltfonal,  For  a  positional  association,  the  (single)  component  Is  Implicitly 
specified  by  position,  In  the  order  of  the  corresponding  component  declarations  for  record  compo¬ 
nents,  In  Index  order  for  array  components, 

Named  associations  can  be  given  In  any  order  (except  for  the  choice  othere),  but  If  both  positional  4 
and  named  associations  are  used  In  the  same  aggregate,  then  positional  essoolatlons  must  occur 
first,  at  their  normal  poultlon.  Hence  once  a  named  esaoclatlon  Is  used,  the  rest  of  the  aggregate 
must  use  only  named  associations.  Aggregates  containing  a  single  component  association  must 
always  be  given  In  named  notation.  Specific  rules  concerning  component  associations  exist  for 
record  aggregates  and  array  aggregotes. 

Choices  In  component  associations  have  the  same  syntax  as  In  variant  parts  (see  3.7.3),  A  choice  s 
that  Is  c  component  simple  name  is  only  allowed  in  a  record  aggregate.  For  a  component  associa¬ 
tion,  a  choice  that  Is  a  simple  expression  or  a  discrete  range  Is  only  allowed  In  an  array  aggregate; 
a  choice  that  Is  a  simple  expression  specifies  the  component  at  the  corresponding  Index  value; 
similarly  a  discrete  range  specifies  the  components  at  the  Index  values  In  the  range.  The  choice 
others  Is  only  allowed  In  a  component  association  If  the  association  appears  last  and  has  thk- 
slngle  choice;  it  speclfios  all  remaining  components.  If  any. 

Each  component  of  the  value  defined  by  an  aggregate  must  be  represented  once  and  only  once  In  0 
the  aggregate.  Hence  each  aggregate  must  be  complete  and  a  given  component  is  not  allowed  to 
be  specified  by  mure  than  one  choice. 

The  type  of  an  aggregate  must  be  determinable  solely  from  the  context  In  which  the  aggregate  7 
appears,  excluding  the  aggregate  Itself,  but  using  the  fact  that  this  type  must  be  composite  and  not 
limited.  The  type  of  an  aggregate  In  turn  determines  the  required  type  for  each  of  its  components. 
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Notes: 

Tho  above  rule  Implies  that  the  determination  of  the  type  of  an  aggrec^ate  cannot  use  any  informa¬ 
tion  from  within  the  aggregate.  In  particular,  this  determination  cannot  use  tfie  type  of  the  expres¬ 
sion  of  B  component  association,  or  the  form  or  the  type  of  a  choice.  An  aggregate  can  always  be 
distinguished  from  an  expression  enclosed  by  parentheses;  this  is  a  consequence  of  the  fact  that 
named  notation  Is  required  for  an  aggregate  with  a  single  component. 

References;  array  aggregate  4.3.2,  array  type  3.6,  basic  operation  3.3.3,  choice  3.7.3.  component  3.3,  uompoalte 
type  3.3.  compoalte  value  3.3,  discrete  range  3.6,  ospresaion  4.4,  Udex  3.6.  Ilinltad  type  7.4.4,  primary  4.4,  record 
aggregntR  4,3.1,  record  type  3.7,  simple  expreaalon  4.4,  aimple  neme  4.1,  typo  3,3,  variant  part  3,7  3 


4.3.1  Record  Aggregates 


If  the  type  of  an  aggregate  Is  a  record  type,  the  component  names  given  as  chnicas  must  denote 
components  (Including  disorlmlnante)  of  the  record  type.  If  the  choice  othem  Is  given  as  a  choice  of 
a  record  aggregate.  It  must  repreaent  at  laast  one  componont.  A  component  aasoclatlon  with  the 
choice  others  or  with  more  than  one  choice  Is  only  allowed  If  the  represented  components  are  ell 
of  the  same  type.  The  expression  of  o  component  association  must  have  tho  type  of  tho  associated 
record  components, 

The  value  specified  for  a  discriminant  that  govsrno  a  variant  part  must  bn  given  by  a  static  exproa- 
alon  (note  that  this  value  determlnea  which  dependent  componanta  must  appear  In  the  record 
valuol. 

For  the  evaluation  of  a  record  aggregate,  tha  expreaalona  given  In  tho  component  aasooiatlons  are 
evaluated  In  some  order  that  la  not  dafinad  by  tho  language.  Tha  expreaalon  of  a  named  associa¬ 
tion  Is  evaluated  once  for  each  aaaoolatad  oumponent.  A  chock  la  made  that  the  value  of  each  sub¬ 
component  of  the  aggregate  belonga  to  tho  subtype  of  this  liiboomponent.  The  exception 
cONSTflAiNT_ERROR  la  raised  If  thli  chock  fallt. 

Example  of  e  record  aggregate  with  positional  essocletlons: 

(4,  JULY,  1776)  -  see  3.7 

Examples  of  record  aggregetes  with  named  associations; 

(DAY  4,  MONTH  ->  JULY.  YEAR  «>  ’778) 

(MONTH  JULY,  DAY  4,  YEAR  «>  1776) 

(DISK,  CLOSED,  TRACK  «>  6,  CYLINDER  »>  12)  •-  see  3.7,3 

(UNIT  ■>  DISK,  STATUS  ->  CLOSED,  CYLINDER  «>  9,  TRACK  «>  1) 

Example  of  component  association  with  severe!  choices; 

(VALUE  .-■>  0,  SUCqPRED  now  CELL'IO.  null,  null))  -  so*  3.81 

--  Tho  allocator  Is  evaluated  twice:  SUCC  and  PRED  designate  different  calls 


Note: 

For  an  aggregate  with  positional  assoclotlona,  diecrimlnant  values  appear  first  since  the  discrimi¬ 
nant  part  is  given  first  In  the  record  xype  deolaretlon;  they  must  bo  In  the  aarne  order  as  Irt  tho  dis¬ 
criminant  part. 


4.3.1  Record  Aggregates 
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RefBrences;  aggregate  4.3,  wllocdtor  4.8,  choice  3,7,3,  component  association  4,3,  comrransnt  name  3,7,  constrain* 
3,3,  constralnt_error  exception  11,1,  depend  on  a  discriminant  3.7.1,  discriminant  3,3,  discriminant  part  3,7,1, 
evaluate  4.B,  expression  4.4,  In  some  order  1 ,6,  program  10,  raising  of  exceptions  1 1 ,  record  component  3,7,  record 
type  3.7,  satisfy  3,3,  static  axpraaslon  4,9,  subcomponent  3,3,  subtype  3.3.2,  type  3,3,  variant  part  3  7,3 


4.3.2  Array  Aggragatat 


If  the  typo  of  an  aggregate  Is  a  one-dimensional  array  typo,  then  each  choice  must  specify  values 
of  the  Index  tvpt,  and  the  expression  of  each  component  association  must  be  of  the  component 
type. 

If  The  type  of  an  aggregate  Is  a  multidimensional  array  type,  an  n-oimenslonal  aggregate  Is  written 
as  n  one-dimenslonal  aggregate,  In  which  the  expression  specified  for  each  component  association 
Is  Itself  written  aa  an  (n-D-dImenalonal  aggregate  which  Is  called  a  subaggregate)  the  Index  sub¬ 
type  of  the  one-dimenslonal  aggregate  la  given  by  the  first  Index  position  of  the  array  type.  The 
same  rule  Is  used  to  write  e  subaggrogete  If  It  Is  again  multidimensional,  using  successive  Index 
positions.  A  string  literal  Is  allowed  In  a  multidimonslonol  aggregate  ai  the  place  of  a  ono- 
dlmonslonal  array  of  a  character  type.  In  what  follows,  the  rules  concerning  array  aggregates  are 
formulated  In  terms  of  ono-dimenslonal  aggregates. 

Apart  from  a  final  component  aisoolatlon  with  the  single  choice  othera,  the  rest  (If  any)  of  the  com- 
portont  asBoolatlona  of  an  array  aggregate  must  be  cither  all  positional  or  all  named.  A  named 
association  of  a.i  array  aggregate  Is  only  allowed  to  have  a  choice  that  is  not  static,  or  likewise  a 
choice  that  Is  a  null  range,  If  the  aggregate  Includes  a  single  component  association  and  this  com¬ 
ponent  association  has  a  single  choice.  An  othera  choice  Is  static  If  the  applicable  Index  constraint 
is  static. 

The  bounds  of  an  array  aggregate  that  haa  an  others  choice  are  determined  by  the  appllouble  Index 
constraint,  An  othere  choice  Is  only  allowed  If  the  aggregate  appears  In  one  of  the  following  con¬ 
texts  (which  defines  the  applicable  Index  constraint): 

(a)  The  aggregate  Is  sn  actual  parameter,  a  generic  actual  parameter,  the  result  expression  of  a 
function,  or  the  oxproailon  that  follows  on  oaslgnment  compound  dallmlter.  Moreover,  the 
subtype  of  the  corresponding  formal  poramoter,  generic  formal  parameter,  function  result,  or 
object  Is  a  constrained  array  aubtypa. 

For  an  aggregate  that  appears  In  such  a  context  and  contains  an  association  with  an  others 
choice,  named  aseoclatlons  are  allowed  for  other  associations  only  in  the  case  of  a 
(nongenoric)  actual  parameter  or  function  result.  If  the  aggregate  Is  a  multidimensional  array, 
this  revtiiotlon  also  applies  to  each  of  Its  subaggregates. 

(b)  The  aggregate  Is  the  operand  of  s  qualified  oxprosslon  whose  typo  murk  denotes  a  con¬ 
strained  array  subtype, 

(c)  The  aggregate  Is  the  expression  of  the  component  a.ssoclatlon  of  an  enclosing  (array  or  record) 
aggregate.  Moreover,  If  this  enclosing  aggregate  Is  a  multldimenalonal  array  aggregate  then  It 
Is  Itself  In  one  of  those  three  contexts. 

The  bounds  of  an  array  aggregate  that  does  not  have  an  others  choice  ore  determined  us  follows. 
For  an  aggregate  that  has  named  associations,  the  bounds  ore  determined  by  the  .smallest  and 
largest  choices  given.  For  a  positional  aggregate,  the  lower  bound  Is  determined  by  the  applicable 
Index  constraint  If  the  aggregate  appears  In  one  of  the  contexts  (a)  through  (c);  otherwise,  the 
lower  bound  Is  giver,  by  S'FIRST  where  S  Is  the  Index  subtype;  In  either  case,  the  upper  bound  is 
determined  by  the  number  of  components, 
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The  evaluation  of  an  array  aggregate  that  Is  not  a  subaggregate  proceeds  In  two  steps.  First,  the 
choices  of  this  aggregate  and  of  its  subaggregates,  if  any,  are  evaluated  In  some  order  that  Is  not 
defined  by  the  language,  Second,  the  expressions  of  the  component  associations  of  the  array 
aggregate  are  evaluated  In  some  order  that  Is  not  defined  by  the  language;  the  expression  of  a 
named  association  is  evaluated  once  for  each  associated  component.  The  evaluation  of  a  subag¬ 
gregate  consists  of  this  second  step  (the  first  step  is  omitted  since  the  choices  have  already  been 
evaluated). 

For  the  evaluation  of  an  aggregate  that  is  not  a  null  array,  a  check  is  made  that  the  index  values 
defined  by  cliolces  belong  to  the  corresponding  index  subtypes,  and  also  that  the  value  of  each 
subcomponent  of  the  aggregate  belongs  to  the  subtyr^e  of  this  subcomponent.  For  an  n- 
dimjnsional  multidimensional  aggregata,  a  check  is  made  that  all  (n-1  l-dimensional  subagyrega- 
tes  have  the  same  bounds.  The  exception  CONSTRAINT_ERROR  Is  raised  If  any  of  these  checks 
fails. 

Note; 

The  allowed  contexts  for  an  array  aggregate  Including  an  others  choice  are  such  that  the  bounds  of 
such  an  aggregate  are  always  known  from  the  context. 

Examples  of  array  aggregates  wUh  positional  associations: 

(7,  9,  6,  1,  3,  2,  4,  8,  6,  0) 

TABLETS,  8,  4,  1,  others  »>  0)  -  see  3.6 

Examples  of  array  aggregates  with  named  associations: 

(1  .  5  =>  (I  ,.  8  =>  0.0))  —  two-dimensional 

(1  ..  N  =>  now  CELL)  —  N  new  calls,  In  particular  for  N  -  o 

TABLET2  I  4  I  10  =>  1,  others  «>  0) 

SCHEDULETMON  ,.  FRI  TRUE,  others  =>  FALSE)  -  see  3.6 

SCHEDULETWED  |  SUN  =>  FALSE,  others  =>  TRUE) 

Examples  of  two-dimensional  array  aggregates: 

-  Three  aggregates  for  the  same  value  of  type  MATRIX  (see  3.6) i 

((1.1,  1.2,  1.3),  (2.1,  2.2,  2.3)) 

(1  =>  (1.1,  12,  1.3),  2  =>  (2.1,  2.2,  2.3)) 

(1  =.->  (1  =>  1,1,  2  =>  1.2,  3  =>  1.3),  2  =>  (1  ->  2.1,  2  =>  2.2,  3  =>  2.3)) 

Examples  of  aggregates  as  Initial  values: 

A  :  TABLE  :■=  (7,  9,  5,  1,  3,  2,  4,  8,  6,  0);  -  A(1,=7.  A(10)=0 

B  :  TABLE  :=  TABLE'(2  |  4  |  10  =>  1,  odiers  =>  0);  -  B(1)=0,  B(10)=1 

C  :  constant  MATRIX  :=  (1  .,  6  =>  (1  ,.  8  =>  0.0));  -  C’FlRSTd  )=1 ,  C'LAST(2)=8 

D  :  BIT_VECTOR(M  ..  N)  :=  (M  ,.  N  =>  TRUE):  -  see  3,6 

E  ;  BIT_VECTOR(M  ,.  N)  (others  =>  TRUE); 

F  ;  STRINGd  ..  1)  ;=  (1  =>  'F');  --  a  one  component  aggregate;  same  as  "F” 

References:  notual  parameter  0.4, 1 ,  aggregate  4.3,  array  type  3,6,  eaaignmont  compound  delimiter  6,2,  choice  3.7,3, 
component  3.3,  component  association  4,3,  component  type  3.3,  constrained  array  subtype  3,6,  constraint  3,3,  con- 
8tralnt_error  exception  11,1,  dimension  3,6,  evaluate  4.6,  expression  4.4,  formal  parameter  6, 1 ,  function  6.B,  in  some 
order  1.6,  index  constraint  ,3,6.1,  Index  range  3.6,  Index  subtype  3.8,  Index  type  3.6,  named  component  association 
4, .3,  null  array  3.6.1,  object  3.2,  positional  component  association  4.3,  qualified  expression  4,7,  raising  of  exceptions 
11,  static  expression  4.9,  subcomponent  3.3,  type  3.3 


4.3,2  Array  Aggregates 
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4.4  Expressions 


An  expression  is  a  formula  that  defines  the  computation  of  a  value.  i 

expression 

relation  (and  relation)  |  relation  land  then  relation)  2 

I  relation  (or  relation)  )  relation  (or  else  relation) 

I  relation  jxor  relation) 

relation  :;= 

simple_expre88lon  [relationaLoperator  simple_expre88ion) 

I  simple.expression  [not]  In  range 
I  simple_expras3ion  [not]  In  tvpe_marl< 

slmple_expression  [unarY-adding„operator]  term  )binarY_adding_operator  term) 

term  factor  jmultlplylng_operator  factor) 

factor  primary  [♦♦  primary)  |  abs  primary  j  not  primary 

primary 

numericjiteral  )  null  )  aggregate  |  stringjiteral  )  name  |  allocator 
I  functlon_call  |  type.converslon  )  quallfied_expre8Sion  )  (expression) 

Each  primary  has  a  value  and  a  type.  The  only  names  allowed  as  primaries  are  named  numbers;  3 
attributes  that  yield  values;  and  names  denoting  objects  (the  value  of  such  a  primary  Is  the  value  of 
the  object)  or  denoting  values.  Names  that  denote  formal  parameters  of  mode  out  are  not  allowed 
as  primaries;  names  of  their  subcomponents  are  only  allowed  In  the  case  of  discriminants. 

The  type  of  an  expression  depends  only  on  the  type  of  its  constituents  and  on  the  operators  4 
applied;  for  an  overloaded  constituent  or  operator,  the  determination  of  the  constituent  type,  or  the 
identification  of  the  appropriate  operator,  depends  on  the  context.  For  each  predefined  operator, 
the  operand  and  result  types  are  given  In  section  4.6. 

Examples  of  primaries: 

4.0 
PI 

(1  ..  10  =>  0) 

SUM 

INTEGER'LAST 
SINE(X) 

COLOR'(BLUE) 

REAL(M*N) 

(LINE_COUNT  +  10) 

Examples  of  expressions: 

VOLUME  --  primary 

not  DESTROYED  -  factor 

2.!^LINE,_C0UNT  --  term 

-4,0  --  simple  expression 

-4.0  +  A  -  simple  expression 

B.i'a.2  -  4.0* A*C  simple  expression 

PASSVYORDd  .,  3)  =  "BWV"  --  relation 

COUNT  in  SMALL_iNT  --  relation 

COUNT  not  In  SMALL_INT  --  relation 

INDEX  0  or  ITEM_HIT  --  expression 

(COLD  and  SUNNY)  or  WARM  --  expression  (parentheses  are  required) 

Ah  TBh  hC)  --  expression  (parentheses  ere  required) 

Expressions  4.4 


-  real  literal 

--  named  number 

--  array  aggregate 

--  variable 

--  attribute 

-  function  call 

-  qualified  expression 

-  conversion 

-  parenthesized  expression 
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References;  aggregate  4.3,  allocator  4.8,  array  aggiegate  4.3.2,  attribute  4.1.4,  binary  adding  operator  4.5  4.5.3, 
context  of  overload  resolution  8.7,  exponentiating  operator  4.5  4.5.6.  function  call  6.4.  multiplying  operator  4.5  4.5.5. 
name  4.1,  named  number  3.2,  null  literal  3.8,  numeric  literal  2.4,  object  3.2,  operator  4.5.  overloading  8.3, 
overloading  an  operator  6.7,  qualified  expression  4.7,  range  3.5,  real  literal  2.4,  relation  4.6.1 ,  relational  operator  4.5 
4.5.2,  result  type  6.1,  string  literal  2.6,  type  3.3,  type  conversion  4,6,  type  mark  3,3.2,  unary  adding  ope.-ator  4.5 
4.5.4,  variable  3.2.1 


4.5  Operators  and  Expression  Evaluation 


The  language  defines  the  following  six  classes  of  operators.  The  corresponding  operator  symbols 
(except  /=),  and  only  those,  can  be  used  as  designators  In  declarations  of  functions  for  user- 
defined  operators.  They  are  given  in  the  order  of  increasing  precedence. 


logicaLoperator 

relatlonaLoperator 

blnarY_adding_operator 

unary..addlng_.operator 

multlplylng_operator 

highesL_procedence_oparator 


=  and 

=  + 

=  + 

=  * 

=  «iti 


or  I  xor 

/=  I  < 

-  I  8. 


<=  I  >  I  >= 


/  I  mod  I  ram 
abs  I  not 


The  short-circuit  control  forms  and  then  and  or  else  have  the  same  precedence  as  logical 
operatoi  s.  The  membership  tests  in  and  not  in  have  the  same  precedence  as  relational  operators. 


For  a  term,  simple  expression,  relation,  or  expression,  operators  of  higher  precedence  are 
associated  with  their  operands  before  operators  of  lower  precedence.  In  this  case,  for  a  sequence 
of  operators  of  the  same  precedence  level,  the  operators  are  associated  In  textual  order  from  left  to 
right;  parentheses  can  be  used  to  Impose  specific  associations. 

The  operands  of  a  factor,  of  a  term,  of  a  simple  expression,  or  of  a  relation,  and  the  operands  of  on 
expression  that  does  not  contain  a  short-circuit  control  form,  are  evaluated  in  some  order  that  Is 
not  defined  by  the  language  (but  before  appllcetion  of  the  corresponding  operator).  The  right 
operand  of  a  short-circuit  control  form  Is  evaluated  if  ard  only  If  the  left  operand  has  a  certain 
valL.'e  (soe  4.5.1). 

For  each  form  of  typo  declarailon,  certnin  of  the  above  operators  ere  predefined,  that  is,  they  are 
implicitly  declared  by  the  type  declaration.  For  each  such  Implicit  operator  declaration,  the  names 
of  the  parameters  are  LEFT  and  RIGHT  for  binary  operators;  the  single  parameter  Is  called  RIGHT 
for  unary  adding  operators  and  for  the  unary  operators  abs  and  not.  The  effect  of  the  predefined 
operators  is  explained  In  subsections  4.5.1  through  4.5.7. 


The  predefined  operations  on  Integer  types  either  yield  the  mathematically  correct  result  or  raise 
the  exception  NUMERIC_ERROR .  A  predefined  operation  that  delivers  a  result  of  an  Integer  type 
(other  than  universalJnteger)  can  only  raise  the  exception  NUMERIC_ERROR  If  the  mathematical 
result  is  not  a  value  of  the  type.  The  predefined  operations  on  real  types  yield  results  whose 
accuracy  is  defined  In  section  4.6,7.  A  predefined  operation  that  delivers  a  result  of  a  real  type 
(other  than  universa/^eaD  can  only  raise  the  exception  NUMERIC_ERROR  if  the  result  Is  not  within 
tfie  range  of  the  safe  numbers  of  the  type,  as  explained  in  section  4.5.7. 


4,5  Operators  and  Expression  Evaluation 
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Examples  of  precedence;  b 

not  SUNNY  or  WARM  --  same  as  {not  SUNNY)  or  WARM 

X  >  4.0  and  Y  >  0.0  --  same  as  (X  >  4.0)  and  (Y  >  0.0) 

-4.0!iAk.i.2  —  same  as  (4.0  * 

abs(1  +  A)  +  B  --  same  as  (aba  (1  +  A))  +  B 

Y!  !!(-3)  --  parentheses  are  necessary 

A  /  B  K  C  —  same  as  (A/B)*C 

A  +  (B  4-  C)  -  evaluate  B  +  C  before  adding  It  to  A 

References;  designator  6.1,  expraiilon  4.4,  factor  4.4,  implicit  declaration  3.1,  In  soma  order  1.6,  Integer  type  3.5.4,  o 
membership  test  4.5.2,  name  4.1,  numerlc_error  exception  11.1,  overloading  6.6  8.7,  raising  of  an  exception  11, 
range  3.5,  real  type  3.5.6,  relation  4.4,  safe  number  3.5.6,  short-circuit  control  form  4.5  4.5.1,  simple  expression  4.4, 
term  4.4,  type  3.3,  type  declaration  3.3.1,  universal-integer  type  3.5.4,  unIversaLreal  type  3.5.6 


4.5.1  Logical  Operators  and  Short-circuit  Control  Forma 


The  following  logical  operators  are  predefined  for  any  boolean  type  and  any  one-dimensional  array 
type  whose  components  are  of  a  boolean  type;  In  either  case  the  two  operands  have  the  same 
type. 


Operator 

Operation 

Operand  type 

Result 

type 

2 

and 

conjunction 

any  boolean  type 

array  of  boolean  components 

same 

same 

boolean  type 
array  type 

or 

Inclusive  disjunction 

any  boolean  type 

array  of  boolean  components 

same 

same 

boolean  type 
array  typo 

xor 

exclusive  disjunction 

any  boolean  type 

array  of  boolean  components 

same 

same 

boolean  type 
array  type 

The  operations  on  arrays  are  performed  on  a  component-by-component  basis  on  matching  compo-  3 
nent.:?,  if  any  (as  for  equality,  see  4.6.2).  The  bounds  of  the  resulting  array  are  those  of  the  left 
operand.  A  check  Is  made  that  for  each  component  of  the  left  operand  there  is  a  matching  compo¬ 
nent  of  the  right  operand,  and  vice  versa.  The  exception  CONSTRAINT-ERROR  Is  raised  If  this 
check  fails. 

The  short-circuit  control  forms  and  than  and  or  else  are  defined  for  two  operands  of  a  boolean  type  4 
and  deliver  a  result  of  the  same  type.  The  left  operand  of  a  short-circuit  control  form  Is  always 
evaluated  first.  If  the  left  operand  of  an  expression  with  the  control  form  and  then  evaluates  to 
FALSE,  the  right  operand  is  not  evaluated  and  the  value  of  the  expression  Is  FALSE.  If  the  left 
operand  of  an  expression  with  the  control  form  or  alee  evaluates  to  TRUE ,  the  right  operand  Is  not 
evaluated  and  the  value  of  the  expression  Is  TRUE.  If  both  operands  are  evaluated,  and  then 
delivers  the  same  result  as  and,  and  or  alee  delivers  the  same  result  as  or. 

Note;  The  conventional  meaning  of  the  logical  operators  Is  given  by  tne  following  truth  table;  5 


A 

B 

A  and  B 

A  or  B 

AxorB 

TRUE 

TRUE 

TRUE 

TRUE 

FALSE 

TRUE 

FALSE 

FALSE 

TRUE 

TRUE 

FALSE 

TRUE 

FALSE 

TRUE 

TRUE 

FALSE 

FALSE 

FALSE 

FALSE 

FALSE 
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Examples  of  logical  operators: 

SUNNY  or  WARM 

FILTER!  1  10)  and  FILTERdS  „  24)  -  see  3.6.1 

Examples  of  short-circuit  control  forms: 

NEXT_CAR.0WNER  /=  null  and  than  NEXT_CAR.OWNER.AGE  >  25  -  see  3,8.1 

N  =  0  or  alia  A(N)  =  HIT_VALUE 

References:  array  type  3,6,  boolean  type  3.6,3,  bound  of  an  Index  range  3,6.1,  component  of  an  array  3.0, 
constraint-error  exception  11.1,dlmanilon  3,6.  false  boolean  value  3.6.3,  Index  subtype  3.6,  matching  component:  of 
arrays  4.6.2,  null  array  3.6.1,  operation  3.3,  operator  4.5,  predefined  opetator  4.5,  raising  of  exceptions  11,  true 
boolean  value  3.6.3,  type  3.3 


4.6.2  Relational  Operators  and  Mamberehip  Teite 


The  equality  and  Inequality  operators  are  predefined  for  any  type  that  is  not  limited.  The  other 
relational  operators  are  the  ordering  operators  <  Hess  than),  <--  (less  than  or  equal),  >  (greater 
than),  and  >=  (greater  than  or  equal).  The  ordering  operators  are  predefined  for  any  scalar  type, 
and  for  any  discrete  array  type,  that  is,  a  ona-dlmensional  array  type  whose  components  are  of  a 
discrete  type.  The  operands  of  each  predefined  relational  operator  have  the  same  type.  The  result 
type  Is  the  predefined  type  BOOLEAN . 

The  relational  operators  have  their  conventional  meaning:  the  result  Is  equal  to  TRUE  If  the 
corresponding  relation  Is  satisfied;  the  result  is  FALSE  otherwise.  The  Inequality  operator  gives  the 
complementary  result  to  the  equality  operator:  FALSE  If  equal,  TRUE  If  not  equal. 


3 

Operator 

Operation 

Operand  type 

Result  type 

/= 

equality  and  Inequality 

ony  type 

BOOLEAN 

A 

A 

I! 

V 

V 

II 

test  for  ordering 

any  scalar  type 
discrete  array  type 

BOOLEAN 

BOOLEAN 

Equality  for  the  discrete  types  Is  equality  of  the  values.  For  real  operands  whose  values  are  nearly 
equal,  the  results  of  the  predefined  relational  operators  are  given  In  section  4.5.7.  Two  access 
values  are  equal  either  If  they  designate  the  same  object,  or  If  both  are  equal  to  the  null  value  of 
the  access  type. 

For  two  array  values  or  two  record  values  of  the  same  type,  the  left  operand  is  equal  to  the  right 
operand  if  and  only  If  for  each  component  of  the  left  operand  there  Is  a  matching  component  of  the 
right  operand  and  vice  versa;  and  the  values  of  matching  components  are  equal,  as  given  by  the 
predefined  equality  operator  for  the  component  type.  In  particular,  two  null  arrays  of  the  same 
type  are  always  equal;  two  null  records  of  the  same  type  are  always  equal. 

For  comparing  two  records  of  the  same  type,  matching  components  are  those  which  have  the 
same  component  identifier. 

For  comparing  two  one-dimenslonal  arrays  of  the  same  typo,  matching  components  are  those  (if 
any)  whoso  index  values  match  in  the  following  sense;  the  lower  bounds  of  the  Index  ranges  are 
defined  to  match,  and  the  successors  of  matching  Indices  are  defined  to  match.  For  comparing  two 
multidimensional  arrays,  matching  components  are  those  whoso  Index  values  match  in  successive 
index  positions. 


4.5.2  Relational  Operators  and  Membership  Tests 
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If  equality  Is  explicitly  defined  for  a  limited  type,  it  does  not  extend  to  composite  types  having  sub¬ 
components  of  the  iimited  type  (explicit  derlnition  of  equality  Is  allowed  for  such  composite  types). 

The  ordering  operators  <,  <=,  >,  and  >=  that  are  defined  for  discrete  array  types  correspond  to 
lexicographic  order  using  the  predefined  order  relation  of  the  component  type.  A  null  array  Is  lex¬ 
icographically  less  than  any  array  having  at  least  one  component.  In  the  case  of  nonnull  arrays,  the 
left  operand  is  lexicographically  less  than  the  right  operand  if  the  first  component  of  the  left 
operand  is  less  than  that  of  the  right;  otherwise  the  left  operand  is  lexicographically  less  than  the 
right  operand  only  If  their  first  components  are  equal  and  the  tail  of  the  left  operand  Is  lex¬ 
icographically  less  than  that  of  the  right  (the  tall  consists  of  the  remaining  components  beyond  the 
first  and  can  be  null). 


The  membership  tests  In  and  not  In  are  predefined  for  all  types.  The  result  type  Is  the  predefined 
type  BOOLEAN.  For  a  membership  test  with  a  range,  the  simple  expression  and  the  bounds  of  the 
range  must  be  of  the  same  scalar  type;  for  a  membership  test  with  a  type  mark,  the  type  of  the 
simple  expression  must  be  the  base  type  of  the  type  mark.  The  evaluation  of  the  membership  test 
in  yields  the  result  TRUE  if  the  value  of  the  simple  expression  Is  within  the  given  range,  or  If  this 
value  belongs  to  the  subtype  denoted  by  the  given  type  mark;  otherwise  this  evaluation  yields  the 
result  FALSE  (for  a  value  of  a  real  type,  see  4.6.7).  The  membership  test  not  In  gives  the 
complementary  result  to  the  membership  test  In. 

Examples: 


X  /.-  Y 


""  <  "A"  and  "A"  <  "AA" 
"AA"  <  "B"  and  "A"  <  "A  " 


TRUE 

TRUE 


MY..CAR  =  null  -  true  If  MY_CAR  has  been  set  !o  null  (see  3.8.1) 

MY_CAR  =  YOUR_CAR  -  true  if  we  both  share  the  same  car 

MY_CAR.all  =  YOUR_CAR.all  -  true  If  the  two  cars  are  Identical 

N  not  In  1  ..  10  —  range  membership  test 

TODAY  In  MON  ..  FRI  --  range  memberehip  test 

TODAY  In  WEEKDAY  --  subtype  membership  teat  (see  3.5.1) 

ARCHIVE  In  DISK_UNIT  -•  subtype  membership  test  (see  3,7.3) 


Notes: 


No  exception  is  ever  raised  by  a  predefined  relational  operator  or  by  a  membership  test,  but  an 
exception  can  be  raised  by  the  evaluation  of  the  operands. 

If  a  record  type  has  components  that  depend  on  discriminants,  two  values  of  this  type  have  mat¬ 
ching  components  If  and  only  If  their  discriminants  are  equal.  Two  nonnull  arrays  have  matching 
components  If  and  only  If  the  value  of  the  attribute  LENGTH(N)  for  each  Index  position  N  is  the 
same  for  both. 


References:  access  value  3.8,  array  type  3,6,  base  type  3,3,  belong  to  a  subtype  3.3,  boolean  predefined  type  3.5.3, 
bound  of  a  range  3,6,  component  3,3,  component  Identifier  3.7,  component  type  3.3,  composite  type  3.3,  designate 
3.B,  dimension  3.6,  discrete  type  3.5,  evaluation  4.6,  exception  1 1,  Index  3.6,  Index  range  3.6,  limited  type  7.4.4,  null 
access  value  3.B,  null  array  3.6,1,  null  recoru  3.7,  object  3.2.1,  operation  3.3.  operator  4.5,  predefined  operator  4.5, 
raising  of  exceptions  1 1,  range  3,5,  record  typo  3,7,  scalar  typo  3.5,  simple  expression  4,4,  subcomponent  3,3,  suc¬ 
cessor  3.5.5,  type  3.3,  type  mark  3.3.2 
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4.5.3  Binary  Adding  Oparatora 


The  binary  adding  operators  +  and  -  are  predefined  for  any  numeric  type  and  have  their  conven¬ 
tional  meaning.  The  catenation  operators  St  are  predefined  for  any  one-dimensional  array  type  that 
is  not  limited. 


3 

Operator 

Operation 

Left  operand  type 

Right  operand  type 

Result 

type 

4 

addition 

any  numeric  type 

same  numeric  type 

same 

numeric  type 

- 

subtraction 

any  numaric.  type 

same  numeric  type 

same 

numeric  type 

& 

catenation 

any  array  type 
any  array  type 
the  component  type 
the  component  type 

same  array  type 
the  component  type 
any  array  type 
the  component  type 

same  array  type 
same  array  type 
same  array  type 
any  array  type 

3  For  real  types,  the  accuracy  of  the  result  Is  determined  by  the  operand  typo  (see  4.5.7). 


4  If  both  operands  are  one-dimanalor.al  arrays,  the  result  of  the  catenation  is  a  one-dimensional 
array  whose  length  is  the  sum  of  the  lengths  of  Its  operands,  and  whose  components  comprise  the 
components  of  the  left  operand  followed  by  the  components  of  the  right  operand.  The  lower  bound 
of  this  result  Is  the  lower  bound  of  the  left  operand,  unless  the  left  operand  Is  a  null  airay.  In  which 
case  the  result  of  the  catenation  Is  the  right  operand. 


s 


i 


7 


B 


If  either  operand  is  of  the  component  type  of  an  array  type,  the  result  of  the  catenation  Is  given  by 
the  above  rules,  using  In  place  of  this  operand  an  array  having  this  operand  as  Its  only  component 
and  having  the  lower  bound  of  the  Index  subtype  of  the  array  type  as  its  lower  bound. 


The  exception  CONSITRAINV-ERROR  Is  raised  by  catenation  If  the  upper  bound  of  the  result 
exceeds  the  range  of  the  Index  subtype,  unless  the  result  Is  a  null  array.  This  exception  is  also 
raised  If  any  operand  Is  of  the  component  type  but  has  a  value  that  does  not  belong  to  the  compo¬ 
nent  subtype, 

Examples: 

Z  4  0.1  -  Z  must  be  of  a  real  type 


"A"  &  "BCD"  "  catenation  of  two  string  literals 

A'  &  "BCD"  -  catenation  of  a  character  literal  and  a  string  literal 

A'  &  'A'  -  catenation  of  two  character  literals 


References:  array  type  3.8,  character  literal  2.B.  component  type  3.3,  oonetralnL-orror  exception  11.1,  dimension  3,0, 
index  subtype  3.0,  length  of  an  array  3.6.2,  limited  type  7.4.4,  null  array  3,6,1,  numaric  type  3,B,  operation  3,3, 
operatoi  4,6.  predefined  operator  4.B,  raising  of  exceptions  1 1,  range  of  an  Index  subtype  3,0.1,  real  type  3.6,6,  string 
literal  2.6,  type  3.3 


4.6.4  Unary  Adding  Opsrators 


The  unary  adding  operators  +  and  -  are  predefined  for  any  numeric  type  and  have  their  conven¬ 
tional  meaning.  For  each  of  these  operators,  the  operand  and  the  result  have  the  same  type. 


4. €.4  Unary  Adding  Operators 


4-16 


Names  and  Expressions 


Oper/ftor  Operation 

+  Identity 

negation 


Operand  type 
any  numeric  type 
any  numeric  type 


Result  type 
same  numeric  type 
same  numeric  type 


References;  numeric  type  3.5,  operation  3.3,  operator  4.6,  predefined  operator  4.6,  type  3.3 


2 


.1 


4.5.5  Multiplying  Oparatora 


The  operators  ♦  and  /  are  predefined  for  any  Integer  and  any  floating  point  typo  am  have  their  con¬ 
ventional  moaning;  the  operators  mod  and  rom  are  predefined  for  any  integer  type.  For  each  of 
these  operators,  the  operands  and  the  •'esult  have  the  same  base  type.  For  floating  point  typos,  the 
accuracy  of  the  result  is  determined  by  the  operand  type  (see  4.b.7|. 


Operator 

Operation 

Operand  type 

Result  type 

I!' 

rnultlpllottlon 

any  integer  type 
any  floating  point  type 

same  Integer  typo 
same  floating  point 

type 

/ 

Integer  division 
fli  sting  division 

any  Integer  type 
any  floating  point  typo 

seme  Integer  type 
same  floating  t  Mnt 

type 

mod 

modulus 

any  Integer  type 

same  Integer  typo 

rem 

remainder 

any  Integer  type 

same  Integer  type 

Integer  division  and  remainder  are  defined  by  the  relation  a 

A  e  (A/B)«B  t-  (A  rein  B) 

where  (A  rem  B)  has  the  sign  of  A  and  an  absolute  value  less  than  the  absolute  vulue  of  B.  Integer  < 
division  satisfies  the  identity 

(-A)/B  -  -(A/B>  -  A/(-B) 

The  result  of  the  modulus  operation  Is  such  that  (A  mod  B)  has  the  sign  of  B  and  an  absolute  value  » 

less  than  the  absolute  value  of  B;  In  addition,  for  some  Integer  value  N,  this  result  must  satisfy  the 
relation 


A  =  BhN  +  (A  mod  B) 

For  each  fixed  point  type,  the  following  multiplication  and  division  operators, 
the  predefined  type  INTEGER ,  are  predefined. 

Operator  Operation  Left  operand  type  Hifsht  operand  type 

t  multiplication  any  fixed  pi^Int  typp  INTEGER 

INTEGER  any  fixed  point  type 

/  division  any  fixed  point  type  INTEGER 


with  an  operand  of 


Result  type 

same  as  left 
same  as  right 

same  as  left 
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e  Integer  multiplication  of  fixed  point  values  Is  equivalent  to  repeated  addition.  Division  of  a  fixed 
point  value  by  un  Integer  does  not  Involve  a  change  in  type  but  Is  approximate  (see  4.5.7). 

t  Finally,  the  following  multiplication  and  division  operators  are  declared  In  the  predefined  package 
SI'ANDARD.  These  two  special  operators  apply  to  operands  of  all  fixed  point  types  (It  Is  a  conse¬ 
quence  of  other  rules  that  they  cannot  be  renamed  or  given  as  generic  actual  parameters). 


10 

Operator 

Operation 

Left  operand  type 

Right  operand  type 

Result  type 

«■ 

multiplication 

any  fixed  point  type 

any  fixed  point  type 

unlverseLJIxed 

1 

division 

any  fixed  point  type 

any  fixed  point  typo 

universal,  fixed 

II  Multiplication  of  operands  of  the  same  or  of  different  fixed  point  types  Is  exact  and  delivers  a  result 
of  the  anonymous  predefined  fixed  point  type  urt/verseLZ/xed  whose  delta  Is  arbitrarily  small.  The 
result  of  any  such  multiplication  must  always  be  explicitly  converted  to  some  numeric  type.  This 
ensures  explicit  control  of  the  accuracy  of  the  computation.  The  same  considerations  apply  to  divi¬ 
sion  of  a  fixed  point  value  by  another  fixed  point  value.  No  other  operators  are  defined  for  the  type 
unlvBrsaUtxad, 

11  The  exception  NUMERIC_ERROR  Is  raised  by  Integer  division,  rem,  and  mod  If  the  right  operand  Is 
zero. 


II  Examplas: 

I  !  INTEGER  >  1; 

J  :  INTEGER  2; 

K  1  INTEGER  >  3: 

X  ;  REAL  digits  9  :«  1.0; 
y  ;  REAL  digits  0  ;«  2.0; 

F  ;  FRACTION  delta  0.0001  ;-  0.1; 
G  ;  FRACTION  dsHa  0.0001  ;»  0.1; 


Expression 

Value 

Result 

Type 

l.'J 

2 

same 

as 

1 

and 

J,  that  Is,  INTEGER 

y/j 

1 

same 

as 

K 

and 

J,  that  Is.  INTEGER 

K  mod  J 

1 

same 

as 

K 

and 

J,  that  Is,  INTEGER 

X/Y 

0.6 

same 

as 

X 

and 

Y,  that  Is,  REAL 

F/2 

0.06 

asms 

as 

F, 

that 

Is,  FRACTION 

3*F 

0.3 

same 

as 

F, 

that 

Is,  FRACTION 

F.I.Q 

0.01 

unIverseUIxed,  oonvorslon  needed 

FRACTION(F*Q> 

0.01 

FRACTION, 

as  stated  by  the  conversion 

HFALUIxY 

4.0 

REAL, 

the  type  i 

of  both  operands  after  convorslori  of  J 

see  3.5.7 
see  3.6.9 
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Notes; 

For  positive  A  and  B,  A/B  is  the  quotient  and  A  rem  B  is  the  remainder  when  A  Is  divided  by  B.  The 
following  relations  are  satisfied  by  the  rent  operator: 

A  rent  (-B)  =  A  rem  B 
(-A)  rem  B  =  -(A  rem  B) 

For  any  integer  K,  the  following  Identity  holds: 

A  mod  B  (A  +  K*B)  mod  B 

The  relations  between  Integer  division,  remainder,  and  modulus  are  illustrated  by  the  following 
table; 


A 

B 

A/B 

AremB 

AmodB 

A 

B 

A/B 

AremB 

A  mod 

10 

5 

2 

0 

0 

-10 

6 

-2 

0 

0 

1 1 

5 

2 

1 

1 

-11 

5 

-2 

-1 

4 

12 

5 

2 

2 

2 

-12 

5 

-2 

-2 

3 

13 

5 

2 

3 

3 

-13 

5 

-2 

-3 

2 

14 

5 

2 

4 

4 

-14 

5 

-2 

-4 

1 

10 

-5 

-2 

0 

0 

-10 

-B 

2 

0 

0 

1 1 

-6 

-2 

1 

-4 

-11 

-5 

2 

-1 

-1 

12 

-6 

-2 

2 

-3 

-12 

-6 

2 

-2 

-2 

13 

-5 

-2 

3 

-2 

-13 

-B 

2 

-3 

-3 

14 

*6 

-2 

4 

-1 

-14 

-B 

2 

■4 

■4 

References;  actual  parumetsr  6,4.1 ,  bass  typn  3.3,  daclarstlon  3.1,  dsita  of  a  fixed  point  typo  3.5.9,  fixed  point  type 
3.6.9.  floating  point  type  3.6.7,  gsnerlo  formal  subprogram  12.1,  Integer  type  3.6.4,  numeric  type  3.6,  numerlo..arror 
exception  11.1,  pradsfirisd  opsrator  4.6,  railing  of  axcaptlons  11,  rsnamlng  declaration  8.6,  standard  predefined 
pscKage  6.6,  type  convaralon  4.6 


4.6.6  Highest  Preoedenoe  Operators 


The  highest  precedence  unan/  operator  abs  Is  predefined  for  any  numeric  type.  The  highest 
precedence  unary  operator  not  la  predefined  for  any  boolean  type  and  any  one-dimenslonal  array 
typo  whose  components  have  a  boolean  type. 


Operator 

Operation 

Operend  type 

Result 

type 

obi 

obaoluta  value 

any  numeric  type 

earns 

numeric  typo 

not 

logical  negation 

any  boolean  type 

array  of  boolean  componenta 

same 

same 

boolean  type 
array  typo 

The  operator  not  that  applies  to  a  one-dlmenaionai  array  of  boolean  components  yields  a  one- 
dlmenslonal  boolean  array  with  the  same  bounds;  each  component  of  the  result  Is  obtained  by 
logical  negation  of  the  corresponding  component  of  the  operand  (that  la,  the  component  that  has 
the  same  Index  value). 
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The  highest  precedence  exponentiating  operator  *111  Is  predefined  for  each  Integer  type  and  for 
each  floating  point  type.  In  either  case  the  right  operand,  colled  the  exponent,  In  of  the  predefined 
type  INTEGER. 

Operator  Operation  Left  operand  type  Right  operand  type  Result  type 

H.C  exponentiation  any  Integer  typo  INTEGER  same  as  left 

any  floating  point  type  INTEGER  same  as  left 

Exponentiation  with  a  positive  exponent  Is  equivalent  to  repeated  multiplication  of  the  left  operand 
by  itself,  as  indicated  by  the  exponent  and  from  loft  to  right.  For  an  operand  of  a  floating  point  type, 
the  exponent  can  be  negative,  in  which  case  the  value  Is  the  reciprocal  of  the  value  with  the 
positive  exponent.  Exponentiation  by  a  zero  exponent  delivers  the  alue  one.  Exponentiation  of  a 
value  of  a  floating  point  type  Is  approximate  (see  4.6.7),  Exponentiation  of  an  Integer  raises  the 
exception  CONSTRAINT„ERROR  for  a  negative  exponent. 

References:  array  type  3.6,  boolean  typn  3.6.3,  bound  of  an  array  3.6.1,  componont  of  an  array  3.6,  conatralnt-srror 
exception  1 1.1,  dimenalonallty  3.6,  floating  point  type  3.6.6,  Index  3.6,  Integer  type  3.6.4,  multiplication  operation 
4.6.6,  predefined  operator  4.6,  ralaing  of  exueptlona  1 1 


4.5.7  Accuracy  of  Oparatlona  with  Real  Oparanda 


A  real  subtype  specifies  a  set  of  model  numbers.  Both  the  accuracy  required  from  any  basic  or 
predefined  operation  giving  a  real  result,  and  the  result  of  any  predefined  relation  between  real 
operands  are  defined  In  terms  of  these  model  numbers. 

A  model  Interval  of  a  aubtype  Is  any  Interval  whose  bounds  are  model  numbers  of  the  subtype.  The 
model  Interval  associated  with  a  value  that  belongs  to  a  real  subtype  la  the  smalloat  model  Interval 
(of  the  subtype)  that  Includes  the  value.  (The  model  Interval  associated  with  a  model  number  of  a 
subtype  consists  of  that  number  only.) 

For  any  basic  operation  or  predefined  operator  that  yields  a  result  of  a  real  subtype,  the  required 
bounds  on  the  result  are  given  by  a  model  Interval  defined  as  follows: 

•  The  result  model  interval  Is  the  smallest  model  Interval  (of  the  result  subtype)  that  Includes 
the  minimum  and  the  maximum  of  all  the  values  obtained  by  applying  the  (exact) 
mathematical  operation,  when  each  operand  is  given  any  value  of  the  model  Interval  (of  the 
operand  subtype)  defined  for  the  operand. 

•  The  model  Interval  of  an  operand  that  Is  Itself  the  result  of  an  operation,  oti.er  than  an  Implicit 
conversion.  Is  the  result  model  Interval  of  this  operation. 

•  The  model  interval  of  an  operand  whose  value  is  obtained  by  Implicit  conversion  of  a  universal 
expression  Is  the  model  Interval  associated  with  this  value  within  the  operand  subtype. 

The  result  model  Interval  is  undefined  If  the  absolute  value  of  one  of  the  above  mathematical 
results  exceeds  the  largest  safe  number  of  the  result  type.  Whenever  the  result  model  Interval  Is 
undefined,  It  is  highly  desirable  that  the  exception  NUMERIC,.EHROR  bo  raised  If  the 
Implementation  cannot  produce  an  actual  result  that  Is  In  the  range  of  safe  numbers,  This  Is, 
however,  not  required  by  the  language  rules.  In  recognition  of  the  fact  that  certain  target  machines 
do  not  permit  easy  detection  of  overflow  situations.  The  vhIub  of  the  .uttrlbuto 
MACHINE...OVERFLOWS  Indicates  wh.ither  the  target  machine  raises  the  exception 
NUMERIC^ERROR  In  overflow  situations  (see  13.7,3). 
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The  safe  numbers  of  a  real  type  are  defined  (see  3.6,0)  as  a  superset  of  the  model  numbers,  for 
which  error  bounds  follow  the  same  rules  as  for  model  numbers.  Any  definition  given  In  this  sec¬ 
tion  In  terms  of  model  intervals  can  therefore  be  extended  to  safe  Intervals  of  safe  numbers,  A 
consequence  of  this  extension  is  that  an  Implementation  Is  not  allowed  to  raise  the  exception 
NUMERIC..ERROR  when  ihe  result  Interval  la  a  safe  interval. 

For  the  result  of  exponentiation,  the  model  Interval  defining  the  bounds  on  the  result  Is  obtained  by 
applying  the  above  rules  to  tl.v'  sequence  of  multiplications  defined  by  the  exponent,  and  to  the 
final  division  in  the  case  of  a  negative  exponent. 

For  the  result  of  a  relation  between  two  real  operands,  consider  for  each  operand  the  model  Inter¬ 
val  (of  the  operand  subtype)  defined  for  the  operand;  the  result  can  bo  any  value  obtained  by 
applying  the  mathematical  comparison  to  values  arbitrarily  chosen  in  the  corresponding  operand 
model  intervals.  If  either  or  both  of  the  operand  model  Intervals  is  undefined  (and  If  neither  of  the 
operand  evaluations  raises  an  exception)  then  the  result  of  the  comparison  Is  allowed  to  be  any 
possible  value  (that  Is,  either  TRUE  or  FALSE ). 

The  result  of  a  memberchlp  test  Is  defined  In  terms  of  comparisons  of  the  operand  value  with  the 
lower  and  upper  bounds  of  the  given  range  or  type  mark  (the  usual  rules  apply  to  these  com¬ 
parisons). 

Afore.' 

For  a  floating  point  type  the  numbers  1 6.0,  3.0,  and  6.0  are  always  model  numbers.  Hence  X/V 
where  X  equals  1 6.0  and  Y  equals  3.0  yleldc  exactly  6.0  according  to  the  above  rules.  In  the 
general  case,  division  does  not  yield  model  numbers  and  In  consequence  one  cannot  assume  that 
(1.0/X).kX  =  1.0. 

R9faronc0S!  attribute  4.1,4,  btalo  operation  3.3.3,  bound  of  a  ranpe  3.6,  error  bound  3,6,6,  exponentletlon  operation 
4.6.8,  falee  boolean  value  3,6.3,  floetino  point  type  .‘^,6,0,  mechlne>overflowe  attribute  13,7.1,  memberihip  teel 
4,6.2,  model  number  3.6.8,  mul'tipllcatlon  operation  4,6,6,  numarlo_arror  exception  1 M,  predefined  operation  3.3.3, 
railing  of  axceptlont  1 1,  range  3.6,  reel  type  3.6.6,  relation  4.4,  relational  operator  4,8.2  4.6,  lefa  number  3,6,6,  lub- 
tvpe  3.3,  true  boolean  value  3.6.3,  type  oonvarilon  4.8,  type  mark  3,3.2,  univeriel  expreeilon  4,10 


4.6  Type  Conversions 


The  evalustlan  of  an  explicit  type  conversion  evaluates  the  expression  given  as  the  operand,  and 
converts  the  resulting  value  to  a  epecified  target  type.  Explicit  type  conversions  are  allowed 
between  closely  related  types  as  defined  below. 

lypa-oonverelon  ::=*  tvpe_mark(expreeelon) 

The  target  type  of  a  type  conversion  la  the  base  type  of  the  type  mark,  The  type  of  the  operand  of  s 
type  conversion  must  be  determinable  Independently  of  the  context  (In  particular.  Independently  of 
the  target  type).  Furthermore,  the  operand  of  e  type  converelon  Is  not  allowed  to  be  a  literal  null,  an 
allocator,  an  aggregate,  or  a  string  literal;  an  exproaalon  enoloaed  by  parentheses  is  allowed  as  tha 
operand  of  a  type  converelon  only  If  the  expression  alone  Is  allowed. 

A  conversion  to  a  subtype  consists  of  a  conversion  to  the  target  type  followed  by  a  check  that  the 
result  of  the  conversion  belongs  to  the  subtype.  A  conversion  of  an  operand  of  a  given  type  to  the 
type  itself  Is  allowed. 
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The  other  allowed  explicit  type  converelons  correspond  to  the  following  thres  oases; 
la)  Numerip  types 

Tho  operand  can  be  of  any  numeric  type;  the  value  of  tha  operand  is  converted  to  the  target 
type  which  must  also  be  a  numeilc  type.  For  conversions  involving  reai  types,  the  result  Is 
within  the  accuracy  of  the  specified  subtype  (see  4.5,7).  The  conversion  of  a  real  vilue  to  an 
Integer  type  rounds  to  the  nearest  Integer;  if  the  operand  Is  halfway  between  two  integers 
(within  the  accuracy  of  the  real  subtype)  rounding  may  be  either  up  or  down, 

(b)  Derived  types 

The  conversion  Is  allowed  if  one  of  the  target  type  and  the  operand  type  la  derived  from  the 
other,  directly  or  Indirectly,  or  If  there  exists  a  third  type  from  which  both  typos  are  derived, 
directly  or  Indirectly. 

(c)  Array  types 

The  conversion  Is  allowed  If  the  operand  type  and  the  target  type  are  array  types  that  satisfy 
the  following  conditions:  both  types  must  have  the  seme  dimeri.iionBllty;  fui'  each  index  posi'- 
tion  the  Index  types  must  either  be  the  same  or  be  convertible  to  each  other;  the  component 
types  must  be  the  same;  finally,  If  the  component  type  is  a  type  wit.'  discriminants  or  an 
access  type,  the  component  subtypes  must  be  either  both  constrained  or  both  unconstiolned. 
If  the  type  mark  denotes  an  unconstrained  array  type,  then,  for  each  Index  position,  tho 
bounds  of  the  result  are  obtained  by  converting  the  bounds  of  the  operand  to  the  cor¬ 
responding  Index  type  of  the  target  type.  If  the  type  mark  denotes  a  const) alnod  array  sub¬ 
type,  then  the  bounds  of  the  result  are  those  Imposed  by  the  type  mark.  In  either  case,  the 
value  of  each  component  of  the  result  Is  that  of  tho  matching  component  of  ^he  operand  (see 
4.5,2). 


In  the  case  of  oonversiona  of  numeric  types  and  derived  types,  tho  exception  CONSTRAlNT„ERhCR 
Is  raised  by  the  evaluation  of  a  type  oonverilon  If  the  result  of  the  conversion  falls  to  satisfy  e  oor>- 
stralnt  Imposed  by  tne  type  mark. 

In  the  case  of  array  types,  a  chock  la  made  that  any  constraint  on  the  componont  subtyi  >  ia  tho 
same  for  tho  operand  array  typo  as  for  the  target  array  type,  If  the  type  mark  denotes  an 
unconstrained  array  type  and  If  the  operand  Is  not  a  null  array,  then,  for  each  Index  position,  a 
check  Is  made  that  the  bounds  of  the  result  belong  to  the  corresponding  Index  subtype  of  thu 
targe*  type,  If  the  type  mark  denotes  a  constralnod  arrey  subtype,  s  chock  Is  made  that  for  each 
comvjonent  of  the  operand  there  Is  a  matching  componont  of  the  target  subtype,  .ind  vice  versa. 
The  exception  CONSTRAINT.ERROR  Is  raised  If  any  of  these  checks  falls. 

If  a  conversion  Is  allowed  from  one  type  to  another,  tho  reverse  conversion  Is  elso  allowed,  This 
reverse  conversion  Is  used  where  an  actual  parameter  of  mode  In  out  or  out  has  tho  form  of  a  type 
conversion  of  a  (variable)  name  as  explained  in  section  6.4.1. 

Apart  from  tho  explicit  type  converaloria,  the  only  allowed  form  of  type  conversion  Is  tha  Implicit 
conversion  of  a  value  of  the  type  unIvarsaUntspar  or  universelwaal  Into  onoth'-r  numeric  type.  An 
Implicit  conversion  of  an  operand  of  type  un/varsaUntayar  to  another  Intejjui  type,  or  of  an 
operand  of  type  onlvarsal.j’aal  \o  another  real  type,  can  only  bo  applied  If  thf  jp^rand  is  either  a 
numeric  literal,  u  named  number,  or  an  attribute:  such  an  operand  is  Ca.iud  a  convertible  universal 
operand  In  this  section.  An  Implicit  conversion  of  a  convertible  universal  operand  is  applied  If  and 
only  If  the  Innermost  complete  context  (see  8.7)  determines  a  unique  (numeric)  target  typo  for  tho 
Implicit  conversion,  and  there  Is  no  legal  Interpretation  of  this  context  without  this  conversion, 


4.6  Type  Conversions 


4-22 


Notes: 


Tta  rules  for  implicit  conversions  Imply  that  no  Implicit  conversion  Is  ever  applied  to  the  operand  of 
an  eKpllcit  type  conversion.  Similarly,  Implicit  conversions  are  not  applied  if  both  operands  of  a 
predefined  relational  operatei  are  convertible  univaraal  operands. 

The  language  allows  Implicit  subtype  conversions  In  the  case  of  array  types  (see  S.2.1 ).  explicit 
typo  conversion  can  have  the  effect  of  a  change  of  representation  (In  particular  see  13.6).  Explicit 
conversions  are  also  used  for  actual  parameters  (sae  6.4). 

Examples  of  numeric  type  conversion: 


REAlIZ'kJ)  "  value  is  converted  to  floating  point 

INTEGER!  1.6)  -•  value  Is  2 

INTEQER(*0.4)  »  value  li  0 

Example  or  conversion  between  derived  types: 

type  A..FORM  Is  now  B.FORM; 

X  I  A^FORMi 

Y  :  B„rORM; 

X  A.-FORM(V): 

Y  i«--  B.>'ORM(X|;  --  the  reverse  oonvarelon 

Examples  of  conversions  between  array  types; 


typo  SEQUENCE  It  sway  (INTEGER  range  <»  of  INTuUER: 
subtype  002EN  is  SEQUENCE!  1  ,.  12); 

LEDGER  I  array!  1  ..  100)  of  INIbQER; 


SEQUENCEILEDQER) 
SEQUENCEILEDGER01  ..  42)) 
D0ZEN!LEDGER!31  ..  42)) 

Examples  of  Implicit  convf>rslona; 


»  bounds  are  those  of  LEDGER 
•«  bounds  ere  31  and  42 
-  bounds  ere  those  of  DOZEN 


X  ;  INTEGER  2; 

X  +  1  »•  2 

1  +  2  ■  X 

X  -4  (1  4.  2) 

2  (1  f  1) 

A'LENGTH  -  B'LENQTH 
C  :  oottstant  3  4  2; 

X  "»  3  and  1  <«  2 


Implicit  conversion  of  each  Integer  literal 
Implicit  conversion  of  each  Integer  literal 
Implicit  conversion  of  each  Integer  literal 

no  Implicit  conversion:  the  type  Is  unIvarsaIJntagar 

no  Implicit  conversion;  the  type  Is  universaijntager 

no  Implicit  •  '^version!  the  type  Is  unIvarsaIJntagar 

Implicit  conversion  of  3,  but  not  of  1  end  2 


Paferanvas;  actual  porsmeter  0.4,1,  array  type  3.0,  attribute  4.1.4.  hjse  type  3.3,  belong  to  u  nubtypn  3.3. 
component  3.3.  oonitrslncd  errsy  subtype  3.0,  uonstrsInL-error  exception  11.1,  derived  type  3.4,  dlmenelon  3.0, 
expreislon  4.4,  floating  point  typo  3.0.7,  Indtx  3,0,  Indix  aubtype  3.6.  Index  type  3.6,  Integer  type  3.0.4,  miitchlng 
component  4.6.2,  mode  0.1,  neme  4.1,  nemod  number  3.2,  null  array  3.0.1,  numeric  literal  2.4,  numeric  type  3.6,  rein 
Ing  ot  exceptions  11,  real  type  3.5,0,  representetlon  13,1,  itetemeni  6,  lubtype  3.3,  type  3.3.  type  mark  3.3.2. 
unconitrolnod  array  type  3.0,  unlveriaLInteger  type  3.6.4,  unlvereaLreel  type  3.6.0,  verloble  3.2.1 


4-23 


Type  Conversions  4.6 


ANSI/MIL-STD-  181SA  Ada  Reference  Manual 


4.7  Qualified  Expreatlont 


1  A  qualified  expression  ie  used  to  state  explicitly  the  type,  and  possibly  the  subtype,  of  an  operand 
that  is  the  given  expression  or  aggregate. 

3  qualifled_expression 

tYpe_mark'<expres8ion)  |  type_mark'aggregate 

3  The  operand  must  have  the  same  type  as  the  base  type  of  the  type  mark.  The  value  of  a  qualified 
expression  is  the  value  of  the  operand.  The  evaluation  of  a  qualified  expression  evaluates  the 
operand  and  checks  that  its  value  belongs  to  the  subtype  denoted  by  the  type  mark,  The  exception 
CONSTRAINT.ERROR  is  raised  if  this  check  fails. 

4  Examples: 

type  MASK  is  (FIX,  DEC,  EXP,  SIGNIF); 
type  CODE  is  (FIX,  CU,  DEC,  TNZ.  SUB); 

PRINT  (MASK'(DEC));  -  DEC  Is  of  type  MASK 
PRINT  (CODt'(DEC));  -  DEC  Is  of  type  CODE 

for  J  in  CODE'IFIX)  ..  CODE'(DEC)  loop  ...  --  qualification  needed  for  either  FIX  or  DEC 

for  J  in  CODE  range  FIX  ..  DEC  loop  ...  —  qualification  unnecessary 

for  J  in  CODE'IFIX)  ..  DEC  loop  ...  --  qualification  unnecessary  for  DEC 

DOZEN'd  I  3  I  5  I  7  =■>  2,  others  «>  0)  -  see  4.6 

Notes: 

s  Whenever  the  type  of  an  enumeration  literal  or  aggregate  is  not  known  from  the  context,  a  quali¬ 
fied  expression  can  be  used  to  state  the  type  explicitly.  For  example,  an  overloaded  enumeration 
literal  must  be  qualified  in  the  following  cases:  whan  given  as  a  parameter  In  a  subprogram  call  to 
an  overloaded  subprogram  that  cannot  otherwise  be  Identified  on  the  basis  of  remaining  parame¬ 
ter  or  result  types,  in  a  relational  expression  where  both  operands  are  overloaded  enumeration  lite¬ 
rals,  or  In  an  array  or  loop  parameter  range  where  both  bounds  are  overloaded  enumeration  lite¬ 
rals.  Explicit  qualification  is  also  used  to  specify  which  one  of  a  set  of  overloaded  parameterless 
functions  Is  meant,  or  to  constrain  a  value  to  a  given  subtype. 

e  References:  aggregate  4.3,  array  3.6,  base  type  3.3,  bound  of  a  range  3.6,  conatralnUerror  exception  11.1,  context  of 
overload  resolution  8.7,  enumeration  literal  3.6.1,  expreeelon  4.4,  function  6,6,  loop  parameter  5.5,  overloading  8.5, 
raising  of  exceptions  1 1 ,  range  3,3,  relation  4.4,  aubprogram  6,  subprogram  cell  6.4,  subtype  3.3.  type  3.3,  type  mark 
3.3.2 


4.B  Allocators 


1  The  evaluation  of  an  allocator  creates  an  object  and  yields  an  access  value  that  designates  the 

object. 

2  allocator  ;;= 

new  subtypejndication  |  new  quallfied_expre88ion 


4.8  Allocators 
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The  type  of  the  object  created  by  an  allocator  Is  the  base  type  of  the  type  mark  given  In  either  the 
subtype  Indication  or  the  qualified  expression.  For  an  allocator  with  a  qualified  expression,  this 
expression  defines  the  initial  value  of  the  created  object.  The  type  of  the  access  value  returned  by 
an  allocator  must  be  determinable  solely  from  the  context,  but  using  the  fact  that  the  value 
returned  is  of  an  access  type  having  the  named  designated  type. 

The  only  allowed  forms  of  constraint  in  the  subtype  Indication  of  an  allocator  are  index  and  dis¬ 
criminant  constraints.  If  an  allocator  includes  a  subtype  indication  and  if  the  type  of  the  object 
created  is  an  array  type  or  a  type  with  discriminants  that  do  not  have  default  expressions,  then  the 
subtype  indication  must  either  denote  a  constrained  subtype,  or  include  an  explicit  index  or  dis¬ 
criminant  constraint. 

If  the  type  of  the  created  object  Is  an  array  type  or  a  typo  with  discriminants,  then  the  created 
object  Is  always  constrained.  If  the  allocator  includes  a  subtype  Indication,  the  created  object  Is 
constrained  either  by  the  subtype  or  by  the  default  discriminant  values.  If  the  allocator  Includes  a 
qualified  expression,  the  created  object  Is  constrained  by  the  bounds  or  discriminants  of  the  Initial 
value.  For  other  types,  the  subtype  of  the  created  object  is  the  subtype  defined  by  the  subtype 
indication  of  the  access  type  definition. 

For  the  evaluation  of  an  allocator,  the  elaboration  of  the  subtype  indication  or  the  evaluation  of  the 
qualified  expression  is  performed  first.  The  new  object  is  then  created.  Initializations  are  then  per¬ 
formed  as  for  a  declared  object  (see  3.2. 1 );  the  Initialization  is  considered  explicit  in  the  case  of  a 
qualified  expression;  any  initializations  are  implicit  in  the  case  of  a  subtype  Indication.  Finally,  an 
access  value  that  designates  the  created  object  is  returned. 

An  implementation  must  guarantee  that  any  object  created  by  the  evaluation  of  an  allocator 
remains  allocated  for  as  long  as  this  object  or  one  of  its  subcomponents  Is  accessible  directly  or 
indirectly,  that  is,  as  long  as  It  nan  be  denoted  by  some  name.  Moreover,  if  an  object  or  one  of  Its 
subcomponents  belongs  to  a  task  type,  it  is  considered  to  be  accessible  as  long  as  the  task  Is  not 
terminated.  An  Implementation  may  (but  need  not)  reclaim  the  storage  occupied  by  an  object 
created  by  an  allocator,  once  this  object  has  become  inaccessible. 

When  an  application  needs  closer  control  over  storage  allocation  for  objects  designated  by  values 
of  an  access  type,  such  control  may  be  achieved  by  one  or  more  of  the  following  means; 

(a)  The  total  amount  of  storage  available  for  the  collection  of  objects  of  an  access  type  can  be  set 
by  means  of  a  length  clause  (see  13.2). 

(b)  The  pragma  CONTROLLED  Informs  the  Implementation  that  automatic  storage  reclamation 
must  not  be  performed  for  objects  designated  by  values  of  the  access  typo,  except  upon  leav¬ 
ing  the  innermost  block  statement,  subprogram  body,  or  task  body  that  encloses  the  access 
type  declaration,  or  after  leaving  the  main  program. 

pragma  CONTROLLED  (access-fy/oe-simple-name); 

A  pragma  CONTROLLED  for  a  given  access  type  is  allowed  at  the  same  places  as  a 
representation  clause  for  the  type  (see  1 3.1 ).  This  pragma  Is  not  allowed  for  a  derived  type. 

(c)  The  explicit  deallocation  of  the  coject  designated  by  an  access  value  can  be  achieved  by  call¬ 
ing  a  procedure  obtained  by  instantiation  of  the  predefined  generic  library  procedure 
UNCHECKED.DEALLOCATION  (see  13,10.1). 

The  exception  STORAGE_ERROR  Is  raised  by  an  allocator  if  there  is  not  enough  storage.  Note  also 
that  the  exception  CONSTRAINT_ERROR  can  be  raised  by  the  evaluation  of  the  qualified 
expression,  by  the  elaboration  of  the  subtype  indication,  or  by  the  Initialization. 
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Examples  (for  access  types  declared  In  section  3.8); 


new  CELLIO,  null,  nulll  --  initialized  explicitly 

new  CELL'IVALUE  =>  0,  SUCC  =>  null,  FRED  =>  null)  -  Initialized  explicitly 

new  CELL  --  not  initialized 

new  MATRIX!  1  .,  10,  1  ..  20)  --  tlie  bounds  only  are  given 

new  MATRIX'd  10  =>  (1  .,  20  =>  0,0))  -  initialized  explicitly 

new  BUFFER!  100)  --  the  discriminant  only  is  given 

new  BUFFER'!SI7r  --=>  80,  POS  =>  0,  VALUE  =>  |1  80  =>  A'))  -  Initialized  explicitly 

References;  access  type  3,8,  access  type  definition  3.8,  access  value  3.8,  array  type  3.6,  block  statement  5.6,  bound 
of  an  array  3.6.1,  collection  3.8,  conatialned  subtype  3.3,  constraint  3.3,  constralnt_error  exception  11.1,  context  of 
overload  resolution  8.7,  derived  type  3.4,  designate  3,8,  discriminant  3.3,  discriminant  constraint  3.7.2,  elaboration 
3.9,  evaluation  of  a  qualified  expression  4.7,  generic  procedure  12.1,  Index  constraint  3.6.1,  initial  value  3,2.1, 
Initialization  3.2.1,  Instantiation  12.3,  length  clauue  13.2,  library  unit  10.1,  main  program  10.1,  name  4.1,  object 
3.2.1,  object  declaration  3.2.1,  pragma  2.8,  procedure  6,  qualified  expression  4.7,  raising  of  exceptions  1 1,  represen¬ 
tation  clause  1 3.1,  simpio  name  4.1,  storage_error  exception  11.1,  subcomponent  3.3,  subprogram  body  6.3,  subtype 
3.3.  subtype  Indication  3.3.2,  task  body  9.1  task  type  9.2,  terminated  task  9.4.  type  3.3,  type  declaration  3.3.1 ,  type 
mark  3.3.2  type  with  discriminants  3.3 


4.9  Static  Expraaslont  and  Static  Subtypos 


Certain  expressions  of  a  scaiar  type  are  said  to  be  static.  Similarly,  certain  discrete  ranges  are  said 

to  be  static,  and  the  type  marks  of  certain  scalar  subtypes  are  said  to  denote  static  subtypes. 

An  expression  of  a  scalar  type  Is  said  to  be  static  If  and  only  if  every  primary  is  one  of  those  listed  in 

!a)  through  (h)  below,  every  operator  denotes  a  predefined  operator,  and  the  evaluation  of  the 

expression  delivers  a  value  (that  Is,  it  does  not  raise  an  exception); 

!a)  An  enumeration  literal  (Including  a  character  literal). 

(b)  A  numeric  literal. 

(c)  A  named  number. 

(d)  A  constant  explicitly  declared  by  a  constant  declaration  with  a  static  subtype,  and  Initialized 
with  a  static  expression. 

(e)  A  function  call  whose  function  name  is  an  operator  symbol  that  denotes  a  predefined 
operator,  Including  a  function  name  that  is  an  expanded  name;  each  actual  parameter  must 
also  be  a  static  expression. 

(f)  A  language-defined  attribute  of  a  static  subtype;  for  an  attribute  that  Is  a  function,  the  actual 
parameter  must  also  be  a  static  expression. 


4.9  Static  Expressions  and  Static  Subtypes 
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(g)  A  qualified  expression  whose  type  mark  denotes  n  static  subtype  and  whose  operand  is  a 
static  expression. 

(h)  A  static  expression  enclosed  in  parentheses. 

A  static  range  is  a  range  whose  bounds  are  static  oxpresslons.  A  static  range  constraint  is  a  range 
constraint  whose  range  is  static,  A  static  subtype  Is  either  a  scalar  base  type,  other  than  a  generic 
formal  type;  or  a  scalar  subtype  formed  by  imposing  on  a  static  subtype  either  a  static  range  con¬ 
straint,  or  a  floating  or  fixed  point  constraint  whose  range  constraint,  if  any,  is  static.  A  static  dis¬ 
crete  range  is  either  a  static  subtype  or  a  static  range.  A  static  index  constraint  is  an  index  con¬ 
straint  for  which  each  index  subtype  of  the  corresponding  array  type  is  static,  and  in  which  each 
discrete  range  is  static.  A  static  discriminant  constraint  Is  a  discriminant  constraint  for  which  the 
subtype  of  each  discriminant  Is  static,  and  In  which  each  expression  Is  static. 

Notfis: 

The  accuracy  of  the  evaluation  of  a  static  expression  having  a  real  type  is  defined  by  the  rules  given 
in  section  4.6.7.  If  the  result  la  not  a  model  number  (or  a  safe  number)  of  the  type,  the  value 
obtained  by  this  evaluation  at  compilation  time  need  not  be  the  same  as  the  value  that  would  be 
obtained  by  an  evaluation  at  run  time. 

Array  attributes  are  not  static;  in  particular,  the  RANGE  attribute  is  not  static. 

Reforencas!  actual  parameter  6.4.1,  attribute  4,1.4,  base  type  3.3,  bound  of  a  tange  3.5,  character  literal  2.5, 
constant  3.2.1,  constant  declaration  3.2.1,  discrete  range  3.6,  diecrete  type  3.5,  enumeration  literal  3.5.1,  exception 
11,  expression  4,4,  function  6.5,  generic  actual  parameter  12.3,  generic  formal  type  12.1.2,  Implicit  declaration  3.1, 
Initialize  3.2.1,  model  number  3.5.6,  named  number  3.2,  numeric  literal  2.4,  predefined  operator  4.5,  qualified  expres¬ 
sion  4.7,  raising  of  exceptions  1 1,  range  constraint  3.5,  safe  number  3.5.6.  scalar  typo  3.5,  subtype  3.3,  type  mark 
3.3.2 


4.10  Universal  Expressions 


A  universa/^expresslon  is  either  an  expression  that  deiivers  a  rosuit  of  type  universalJnteger  or 
one  that  delivers  a  result  of  type  un/versa/u’eaf. 

The  same  operations  are  predefined  for  the  typo  universaUnteger  as  for  any  Integer  type,  The 
same  operations  are  predefined  for  the  type  unlversa/^aal  as  for  any  floating  point  type.  In  addi¬ 
tion,  these  operations  Include  the  following  multiplication  and  division  operators: 


Operator  Operation 


Left  operand  type  Right  operand  type 


Result  type 


multiplication  unIversaLreal 

universalJnteger 


universaUnteger 

unIveraaLreal 


universal-real 

universal-real 


/ 


division 


universal-real 


universalJnteger  universal-real 


The  accuracy  of  the  evaluation  of  a  universal  expression  of  type  universalu-eal  Is  at  least  as  good 
as  that  of  the  most  accurate  predefined  floating  point  type  supported  by  the  implementation,  apart 
from  unlversal^eal  Itself.  Furthermore,  If  a  universal  expres.sion  Is  a  static  expression,  then  the 
evaluation  must  be  exact. 
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For  the  evaluation  of  an  operation  of  a  nonatatic  universal  expression,  an  Implementation  Is 
allowed  to  raise  the  exception  NUMERIC_ERROR  only  if  the  result  of  the  operation  is  a  real  value 
whose  absolute  value  exceeds  the  largest  safe  number  of  the  most  accurate  predefined  floating 
point  type  (excluding  unfversa/weaf),  or  an  Integer  value  greater  than  SYSTEM  .MAX_INT  or  less 
than  SYSTEM.MINJNT. 

Note: 

It  is  a  consequence  of  the  above  rules  that  the  type  of  a  universal  expression  is  universeUnteger  if 
every  primary  contained  in  the  expression  is  of  this  type  (excluding  actual  parameters  of  attributes 
that  are  functions,  and  excluding  right  operands  of  exponentiation  operators)  and  that  otherwise 
the  type  Is  universal jreaL 

Examples: 

1  +  1  -  2 
ebs(-10)«3  -  30 

KILO  :  ooflstant  :»  1000: 

MEGA  :  constant  >  KILO+KILO;  -  1_000_000 

LONG  :  constant  PL0Ar0IQITS*2: 

HALF.PI  ;  constant  PI/2;  --  see  3.2.2 

DEQ_TO_RAD  :  constant  HALF_PI/90; 

RAD_TO_DEQ  !  constant  :=  1 .0/DEQ_T0_RAD;  -  equivalent  to  1.0/1(3.141  B9_26536/2)/90) 

References:  actual  parameter  6.4.1,  attribute  4.1.4,  evaluation  of  an  axpreialon  4.6,  floating  point  type  3.5.9, 

function  6.5,  Integer  type  3.5.4,  multiplying  operator  4.5  4.6.6,  predefined  operation  3.3.3,  primary  4.4,  real  type 
3.6,6,  safe  number  3,6.6,  ayatem.max-lnt  13,7,  ayitem.mlnJnt  13.7,  typo  3.3,  unlvoraaUntegor  type  3,6.4,  unlvor- 
saLreal  type  3,6.6 


4. 1 0  Universal  Expressions 
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A  statement  defines  an  action  to  be  performed:  the  process  by  which  a  statement  achieves  its 
action  is  called  execution  of  the  statement. 

This  chapter  describes  the  general  rules  applicable  to  all  statements.  Some  specific  statements  are 
discussed  In  later  chapters.  Procedure  call  statements  are  described  in  Chapter  6  on  subprograms. 
Entry  call,  delay,  accept,  select,  and  abort  statements  are  described  in  Chapter  9  on  tr  iks.  Raise 
statements  are  described  In  Chapter  1 1  on  exceptions,  and  code  statements  In  Chapter  13.  The 
remaining  forms  of  statements  are  presented  In  this  chapter. 

References;  abol  statement  9.10,  accept  statement  9.5,  coda  statement  13.8,  delay  statement  9.6,  entry  call 
statement  9.5,  procedure  call  statement  6.4,  raise  statement  11.3,  select  statement  9.7 


5.1  Simple  and  Compound  Statements  <  Sequences  of  Statements 


A  statement  Is  either  simple  or  compound.  A  simple  statement  encloses  no  other  statement.  A 
compound  statement  can  enclose  simple  statements  and  other  compound  statements. 

8equence_.of_8tatement8  ;!=  statement  {statementl 

statement 

I  Isbell  slmple^statement  |  (labell  compound-statement 


simple-statement  null-statement 

I  assignment-statement  |  procedure-cell-stetement 


exit-statement 

goto-statament 

delsy-statament 

ralse-ststement 


return_jitatement 

entry-cell-Statement 

abort-statement 

code-statoment 


compound-statement  : 
If-statemsnt 
I  loop-statement 
I  accept-stetement 


I  case-statement 
I  block-statement 
I  Select-Statement 


label  <</adff/-slmple-nama>> 


null-statement  ;;=3  null; 

A  statement  Is  said  to  be  labeled  by  the  label  name  of  any  label  of  the  statement.  A  label  name, 
and  similarly  a  loop  or  block  name,  is  Implicitly  declared  at  the  end  of  the  declarative  part  of  the 
innermost  block  statement,  subprogram  body,  package  body,  task  body,  or  generic  body  that 
encloses  the  labeled  statement,  the  named  loop  statement,  or  the  named  block  statement,  as  the 
case  may  be.  For  a  block  statement  without  a  declarative  part,  an  Implicit  declarative  part  (and 
preceding  declare)  Is  assumed. 


5-1 


Simple  and  Compound  Statements  -  Sequences  of  Statements  5. 1 


ANSIIMIL-STD-1 81 5A  Ada  Reference  Manual 


i  The  implicit  deciarations  for  different  label  names,  loop  names,  and  block  names  occur  in  the  same 
order  as  the  beginnings  of  the  corresponding  labeled  statements,  loop  statements,  and  block  state¬ 
ments.  Distinct  identifiers  must  be  used  for  ail  label,  loop,  and  block  names  that  ere  impliultly 
declared  within  the  body  of  a  program  unit,  Including  within  block  statements  enclosed  by  this 
body,  but  excluding  within  other  enclosed  program  units  (a  program  unit  is  either  a  subprogram,  a 
package,  a  task  unit,  or  a  generic  unit). 

5  Execution  of  a  null  statement  has  no  other  effect  than  to  pass  to  the  next  actir'  , 

6  The  execution  of  a  sequence  of  statements  consists  of  the  execution  of  the  individual  statementp 
in  succession  until  the  sequence  is  completed,  or  a  transfer  of  control  takes  place,  A  transfer  of 
control  is  caused  either  by  the  execution  of  an  exit,  return,  or  goto  statement;  by  the  selection  of  a 
terminate  alternative;  by  the  raising  of  an  exception;  or  (Indirectly)  by  the  execution  of  an  abort 
statement. 

T  Examples  of  labeled  statements; 

<<HERE>>  <<ICI>>  <<AQUI>>  <<HIER>>  null; 

<<AFTER>>  X  :=  1; 

Note: 

B  The  scope  of  a  declaration  starts  at  the  place  of  the  declaration  Itself  (see  8.2).  In  the  case  of  a 
label,  loop,  or  block  name.  It  follows  from  this  rule  that  the  scope  of  the  Implicit  declaration  starts 
before  the  first  explicit  occurrence  of  the  corresponding  name,  since  this  occurrence  Is  either  In  a 
statement  label,  a  loop  statement,  a  block  statement,  or  a  goto  statement.  An  implicit  declaration 
In  a  block  statement  may  hide  a  declaration  given  In  an  outer  program  unit  or  block  statement  (ac¬ 
cording  to  the  usual  rules  of  hiding  explained  in  section  8.3). 

0  References;  abort  statemant  9.10,  aooapt  ttatamant  9.5,  aatlgnmant  itatoment  6.2,  block  name  5.6,  block 
statement  5.6,  case  atatsment  6.4,  cods  statement  13.8,  declaration  3.1,  declarative  part  3.9,  delay  statement  9.6, 
entry  call  statement  9.5,  exception  1 1,  exit  statement  5.7,  generic  body  12.1,  generic  unit  12,  goto  statement  6.9, 
hiding  6.3,  Identifier  2.3,  If  statement  5.3,  Implicit  declaration  3.1,  loop  name  6.5,  loop  statement  6.5,  package  7, 
package  body  7.1,  procedure  cell  statement  6.4,  program  unit  6,  raise  atatement  1 1.3,  raising  of  exceptions  1 1,  return 
statement  5.B,  scops  8.2,  select  atatsment  9.7,  simple  name  4.1,  subprogram  6.  subprogram  body  6.3,  task  9,  task 
body  9,1,  task  unit  9.1,  terminate  alternative  9.7.1,  terminated  task  9,4 


5.2  Assignment  Statement 


I  .An  assignment  statement  repiaces  the  current  value  of  a  variable  with  a  new  value  specified  by  on 
expression,  The  named  variable  and  the  right-hand  side  expression  must  be  of  the  same  type;  this 
type  must  not  bo  a  limited  type. 

j  a89lgnmont_Btalement  ::=* 

varlable^mme  :=  expression; 

)  For  the  execution  of  an  assignment  statement,  the  variable  name  and  the  expression  are  first 
evaluated,  in  some  order  that  Is  not  defined  by  the  language.  A  check  Is  then  made  that  the  value 
of  the  expression  belongs  to  the  subtype  of  the  variable,  except  in  the  case  of  a  variable  that  Is  an 
array  (che  assignment  then  Involves  a  subtype  conversion  as  described  In  sectfon  5.2.1).  Finally, 
the  value  of  the  expression  becomes  the  new  value  of  the  variable. 


5.2  Assignment  Statement 
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The  exception  CONSTRAINT_ERROR  Is  raised  if  the  above-mentioned  subtype  check  fails;  in  such  a  < 
case  the  current  value  of  the  variable  Is  left  unchanged.  If  the  variable  is  a  subcomponent  that 
depends  on  discriminants  of  an  unconstrained  record  variable,  then  the  execution  of  the  assign¬ 
ment  is  erroneous  if  the  value  of  any  of  these  discriminants  Is  changed  by  this  execution. 

Examples:  **■  5 

VALUE  .=  MAX_VALUE  -  1; 

SHADE  BLUE; 

NEXT_FRAME(F)(M,  N)  :=  2,5;  -  see  4.1.1 

U  DOT_PRODUCT(V,  W);  -  see  6.6 

WRITER  (STATUS  =>  OPEN,  UNIT  =>  PRINTER,  LINE-COUNT  =>  60);  -  see  3.7.3 

NEXT-CAR, all  (72074,  null);  -  see  3,8.1 

Examples  of  constraint  checks:  » 

I,  J  :  INTEGER  range  1  ,.  10; 

K  ;  INTEGER  range  1  ..  20; 


I  J;  -  Identical  ronges 

K  J;  -  compatible  ranges 

J  K:  -  will  raise  the  exception  CONSTRAINT-ERROR  If  K  >  10 

Notes: 

The  values  of  the  discriminants  of  an  object  designated  by  an  access  value  cannot  be  changed  (not  t 
even  by  assigning  a  complete  value  to  the  object  Itself)  since  such  objects,  created  by  allocators, 
are  always  constrained  (see  4.8);  however,  subcomponents  of  such  objects  may  be  unconstialned. 

if  the  right-hand  side  expression  Is  either  a  numeric  literal  or  named  number,  or  an  attribute  that  » 
yields  a  result  of  type  unlversalJnteger  or  unlversel-j-eal.  then  an  Implicit  type  conversion  Is  per¬ 
formed,  as  describud  In  section  4.6. 

The  determination  of  the  type  of  the  variable  of  an  assignment  statement  may  require  considoia-  9 
tion  of  the  expression  if  the  variable  name  can  be  Interpreted  as  the  name  of  a  variable  designated 
by  the  access  value  returned  by  a  function  call,  and  similarly,  as  a  component  or  slice  of  such  a 
variable  (see  section  8.7  for  the  context  of  overload  resolution). 


References:  access  type  3,8,  allocator  4,8,  array  3,6,  array  assignment  B,2,1,  component  3.6  3,7,  oonstralnUerror  id 
exception  11.1,  designate  3.8,  discriminant  3,7,1,  erroneous  1.6,  evaluation  4.5,  expression  4,4,  function  cull  0,4, 

Implicit  type  conversion  4,0,  name  4.1,  numeric  literal  2,4,  object  3.2,  overloading  6.6  8,7,  slice  4,1 ,2,  subcomponent 
3.3,  subtype  3.3,  subtype  conversion  4.6,  type  3.3,  unlversalJnteger  typo  3.5.4,  unlversaLreal  type  3.5.6,  variable 
3.2.1 


5.2.1  Array  Assignments 


If  the  variable  of  an  assignment  statement  Is  an  array  variable  (including  a  slice  variable),  the  value 
of  the  expression  la  implicitly  converted  to  the  subtype  of  the  array  variable;  the  result  of  this  sub- 
type  conversion  becomes  the  new  value  of  the  array  variable. 
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This  means  that  the  new  value  of  each  component  of  the  array  variable  is  specified  by  the 
matching  component  in  the  array  value  obtained  by  evaluation  of  the  expression  (see  4.5.2  for  the 
definition  of  matching  components).  The  subtype  conversion  checks  that  for  each  component  of 
the  array  variable  there  Is  a  matching  component  in  the  array  value,  and  vice  versa.  The  exception 
CONSTRAINT_EPROR  is  raised  If  this  check  falls;  In  such  a  case  the  value  of  each  component  of 
the  array  variable  is  left  unchanged. 

Examples: 

A  ;  STRINGd  ..  .31); 

B  ;  STRINGO  ..  33); 


A  B;  --  same  number  of  components 
All  .,  9)  :=  "tar  sauce"; 

A(4  ..  12)  A(1  ..  9);  -■  A(1  ..  12)  ■  "tartar  sauce" 

Notes: 

Array  assignment  Is  defined  even  In  the  case  of  overlapping  slices,  because  the  expression  on  the 
right-hand  side  is  evaluated  before  performing  any  component  assignment,  in  the  above  example, 
an  implementation  yielding  A(1  ..  12)  «  "tartartartar"  would  be  iiicorrect. 

The  implicit  subtype  conversion  described  above  for  assignment  to  an  array  variable  Is  performed 
only  for  the  value  of  the  right-hand  side  expression  as  a  whole;  it  is  not  performed  for  subcompo¬ 
nents  that  are  array  values. 

References:  array  3.6,  aislgnment  6.2,  oon«tralr\t_arror  exception  11.1,  matching  eriey  components  4.5.2,  slice 
4.1.2.  subtype  conversion  4.6,  type  3.3,  variable  3.2.1 


6.3  If  Statements 


An  if  statement  selects  for  execution  one  or  none  of  the  enclosed  sequences  of  statements, 
depending  on  the  (truth)  value  of  one  or  more  corresponding  conditions. 

If_stotoment 

if  condition  then 
sequence..of_Btatement8 
I  elsif  condition  then 
oequ6nce_of._8tatements| 

I  else 

8equence_of_stntement8| 
end  If; 

condition  6oo/san_expre8slon 

An  expression  specifying  a  condition  must  be  of  a  boolean  type. 

For  the  execution  of  an  if  statement,  the  condition  specified  after  If,  and  any  conditions  specified 
after  elsif,  are  evaluated  in  8ii.'cces8lon  (treating  a  final  else  as  elsif  TRUE  then),  until  one  evaluates 
to  TRUE  or  all  conditions  are  evaluated  and  yield  FALSE .  If  one  condition  evaluates  to  TRUE ,  then 
the  corresponding  sequence  of  statements  Is  executed;  otherwise  none  of  the  sequences  of  state¬ 
ments  is  executed. 


5.J  If  Statements 
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Examples: 


if  MONTH  DECEMBER  «nd  DAY  »  31  than 
MONTH  :=  JANUARY; 

DAY  :=  1 ; 

YEAR  YEAR  +  1; 
and  if; 

if  LINE_TOO_SHORT  than 
raisa  LAYOUT_ERROR; 
eliif  LINE^FULL  than 
NEW_LINE; 

PUT(ITEM); 

alaa 

PUT(ITEM): 

and  If; 

If  MY_CAR.OWNER.VEHICLE  h  MY_CAR  than  -  see  3,8 

REPORT  (“Incorrect  data“): 
and  if; 

ftafarencas;  boolean  type  3.5.3,  evaluation  4,6,  exprataion  4.4,  aaquence  of  atatennantB  5.1 


6.4  Gate  Statamanta 


A  case  statement  selects  for  execution  one  of  a  number  of  alternative  sequences  of  statements; 
the  chosen  alternative  Is  defined  by  the  value  of  an  expression. 

ca8e_statamant 
oaaa  axprasalon  la 

caae_statamant.alternatlva 
I  ca8o,.atatamant.altarnatlva) 

and  cata; 

ca8u_statament_altarnatlva  :;>• 
whan  ohoica  ||  choice  |  »> 

8squence_of_statemants 

The  expression  must  be  of  a  diacrete  type  which  must  be  determinable  Independently  of  the  con¬ 
text  In  which  the  expression  occurs,  but  uaing  the  fact  that  the  expression  must  be  of  a  discrete 
type.  Moreover,  the  type  of  this  expression  must  not  be  e  generic  formal  type.  Each  choice  In  a 
case  statement  alternative  must  be  of  the  same  type  as  the  expression;  the  list  of  choices  specifies 
for  which  values  of  the  expression  the  alternative  Is  chosen. 

If  the  expression  is  the  name  of  an  object  whose  subtype  Is  static,  then  each  value  of  this  subtype 
must  be  represented  once  and  only  once  In  the  sat  of  choices  of  the  cose  statement,  and  no  other 
value  Is  allowed;  this  rule  Is  likewise  applied  If  the  expression  Is  a  qualified  expression  or  type  con¬ 
version  whose  type  mark  denotes  a  static  subtype.  Otherv/lse,  for  other  forms  of  expression,  each 
value  of  the  (base)  type  of  the  expression  must  be  represented  once  and  only  once  In  the  set  of 
choices,  and  no  other  value  la  allowed. 
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6  The  simple  expressions  and  discrete  ranges  given  as  choices  in  a  case  statement  must  be  static.  A 
choice  defined  by  a  discrete  range  stands  for  all  values  in  the  corresponding  range  (none  if  a  null 
range).  The  choice  others  Is  only  allowed  for  the  last  alternative  and  as  its  only  choice;  It  stands 
for  all  values  (possibly  none)  not  given  In  the  choices  of  previous  alternatives.  A  component  simple 
name  is  not  allowed  as  a  choice  of  a  case  statement  alternative. 


«  The  execution  of  a  case  statement  consists  of  the  evaluation  of  the  expression  followed  by  the 
execution  of  the  chosen  sequence  of  statements. 

7  Excimplus: 


cune  SENSOR  li 
whan  ELEVATION 
whan  AZIMUTH 
whan  DISTANCE 
whan  others 
and  case; 


=  >  RECORD_ELEVATION  (SENSOR_VALUE) 
RECORD_AZIMUTH  (SENSOR_VALUE) 
•=>  RECORD.DISTANCE  (SENSOR_.VALUE) 
=  ■>  null; 


cnse  TOD.AY  Is 
whan  MON 
whan  FRI 
whan  TUE  .,  THU 
whan  SAT  ..  SUN 
and  case; 


COMPUTE_INITIAL_BAUNCE; 
COMPUTE_CLOSING_BALANCE: 
=  >  QENERATE_REPORT(TODAY); 
null; 


cima  BIN._NUMBER(COUNT!  It 
whan  1  =>  UPDATE.BINd); 

whan  2  UPDATE_BIN(2): 

whan  3  |  4  -->> 

EMPTY..BIN(1); 

EMPTY...BIN(2I; 

whan  others  rels#  ERROR; 

and  case; 

Notfts: 


«  The  execution  of  a  case  statement  chooses  one  and  only  one  alternative,  since  the  choices  are 
exhaustive  and  mutually  exclusive,  Quallficatlor'  of  the  expression  of  a  case  statement  by  a  static 
subtype  can  often  be  used  to  limit  the  number  of  choices  that  need  be  given  explicitly. 

n  An  others  choice  Is  required  In  a  case  statement  If  the  type  of  the  expression  Is  the  type  un/ver- 
saUntsgor  (for  example,  if  the  expression  la  an  Integer  litoral),  since  this  Is  the  only  way  to  cover 
all  values  of  the  type  un(v»rsaUnteg9r 


ID  Hehironcffs:  huso  typo  3, .3,  choice  3.7.3,  context  of  overload  resolution  B.7,  discrete  typo  3.B,  expression  4,4, 
(unction  cull  H.4,  fionerlc  formal  typo  12. 1,  conversion  4,6,  discrete  tyt)o  3.5,  otnimeietlon  lltarel  3,5,1 ,  expression  4.4, 
niinni  4.1.  iil)|uct  3.2.1.  overloading  6.6  8.7,  qualified  expression  4.7,  sequence  of  statements  5.1,  static  discrete 
raniio  4.9.  static  subtypo  4,9,  subtype  3,3,  typo  3,3,  type  conversion  4.6,  typo  mark  3,3.2 


5.4  Cn.se  StntBinenfs 
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5.5  Loop  Statomantt 


A  loop  statement  Includes  a  sequence  of  statements  that  Is  to  be  executed  repeatedly,  zero  or  i 
more  times. 

loop_statomont  s 

[/oop..slmpl0_name:l 
I  iteratlon_9cheme|  loop 
8equonc0_of_8tatemant8 
and  loop  [/oop_slmple_name); 

iteratioa-schema  while  condition 
I  for  Ioop_parameter._9p0clfloatlon 

loop_parameter_speclflcation 

Identifier  In  [reversal  dlscrete.ranoa 

If  a  loop  statement  has  a  loop  simple  name,  this  simple  name  must  be  given  both  at  the  beginning  3 
and  at  the  end. 

A  loop  statement  without  an  iteration  scheme  specifies  repeated  execution  of  the  sequence  of  4 
statements.  Execution  of  the  loop  statement  Is  complete  when  the  loop  is  left  as  a  consequence  of 
the  execution  of  an  exit  statement,  or  as  a  consequence  of  some  other  transfer  of  control  (see  5.1), 

For  a  loop  statement  with  a  while  iteration  scheme,  the  condition  Is  evaluated  before  each  execu-  s 
tion  of  the  sequence  of  statements;  If  the  value  of  the  condition  Is  TRUE,  the  sequence  of 
statements  Is  executed,  If  FALSE  the  execution  of  the  loop  statement  Is  complete. 

For  a  loop  statement  with  a  for  Iteration  scheme,  the  loop  parameter  specification  Is  the  declare-  « 
tion  of  the  loop  parameter  with  the  given  Identifier,  The  loop  parameter  is  an  obief;t  whose  type  Is 
the  base  type  of  the  discrete  range  (see  3.6.1).  Within  the  sequence  of  statements,  the  loop 
parameter  Is  a  constant.  Hence  a  loop  parameter  Is  not  allowed  as  the  (left-hand  side)  variable  of 
an  assignment  statement,  Similarly  the  loop  parameter  must  not  be  given  as  an  out  or  In  out 
parameter  of  a  procedure  or  entry  call  statement,  or  as  an  In  out  parameter  of  a  generic  Instantia¬ 
tion, 

For  the  execution  of  a  loop  statement  with  a  for  iteration  scheme,  the  loop  parameter  specification  1 
Is  first  elaborated.  This  elaboration  creates  the  loop  parameter  and  evaluates  the  discrete  range. 

If  the  discrete  range  Is  a  null  range,  the  execution  of  the  loop  statement  Is  complete.  Otherwise,  u 
the  sequence  of  statements  Is  executed  once  for  each  value  of  the  discrete  range  (subject  to  ilin 
loop  not  being  left  as  a  consequence  of  the  execution  of  an  exit  statement  or  as  a  consequence  of 
some  other  transfer  of  control),  Prior  to  each  such  Iteration,  the  corresponding  value  of  the  discrete 
range  Is  assigned  to  the  loop  parameter,  These  values  are  assigned  In  increasing  order  unless  the 
reserved  word  reverse  Is  present.  In  which  case  the  values  are  assigned  In  decreasing  order. 

Example  of  a  loop  statement  without  an  Iteration  scheme:  « 

loop 

GET(CURRENT_CHARACTER); 
exit  when  CURRENT-CHARACTER  = 
end  loop; 
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Example  of  a  hop  statement  with  a  while  iteration  scheme: 

whilo  BID(N:, PRICE  <  CUT_OFF.PRICE  loop 
RECORD_BID(BID(N),PRICE); 

N  N  +  1; 
end  loop; 


Example  of  a  hop  statement  with  a  for  iteration  scheme: 


for  J  in  BUFFF.R'RANGE  loop  --  legal  even  with  a  null  range 
if  BUFFER(J)  /=  SPACE  than 
PUT(BUFFER(J)); 

end  if; 
end  loop; 


Exampie  of  a  hop  statement  with  a  loop  simple  name: 
SUMMATION: 

while  NEXT  1^  HEAD  loop  -  see  3.8 

SUM  :=  SUM  +  NEXT.VALUE; 

NEXT  NE.XT.SUCC; 
end  loop  SUMMATION; 


Notes: 

The  scope  of  a  loop  parameter  extends  from  the  loop  parameter  specification  to  the  end  of  the  loop 
statement,  and  the  visibility  rules  are  such  that  a  loop  parameter  is  only  visible  within  the  sequence 
of  statements  of  the  loop. 

The  discrete  range  of  a  for  loop  is  evaluated  just  once.  Use  of  the  reserved  word  reverse  does  not 
alter  the  discrete  range,  so  that  the  following  iteration  schemes  are  not  equivalent;  the  first  has  a 
null  range. 

for  J  in  reverse  1  0 

for  J  In  0  ..  1 

Loop  names  are  also  used  in  exit  statements,  and  in  expanded  names  (in  a  prefix  of  the  loop 
parameter). 


References:  actual  parameter  6.4.1,  assignment  statement  5.2,  base  type  3.3,  bound  of  a  range  3.5,  condition  6.3, 
constant  3.2.1,  context  of  overload  resolution  8.7,  conversion  4.6,  declaration  3.1,  discrete  range  3.6.1,  elaboration 
3.1,  entry  call  statement  9.5,  evaluation  4.6,  exit  statement  6.7,  expanded  name  4.1.3,  false  boolean  value  3,5.3, 
generic  actual  parameter  12.3,  generic  Instantiation  12.3,  goto  statement  6.9,  identifier  2,3,  integer  type  3.6.4,  null 
range  3,5,  object  3.2.1,  prefix  4,1,  procedure  call  6.4,  raising  of  exceptions  1 1,  reserved  word  2.9,  return  statement 
6.8.  scope  8.2,  sequence  of  statements  6,1,  simple  name  4.1,  terminate  alternative  9.7  1,  true  boolean  value  3.6,3 
3.5.4,  visibility  8,3 
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5.6  Block  Statements 


A  block  statement  encloses  a  sequence  of  statements  optionally  preceded  by  a  declarative  part 
and  optionally  followed  by  exception  handlers. 

block_statoment 

[6/ocAr_simple_nama:l 
I  declare 

declar8tlve_part] 

begin 

ssquence.of_statsments 
I  exception 

exceptlon_handler 
I  exceptlon_handler|] 
and  [P/oc/r_jiimple_name]; 

If  a  block  statement  has  a  block  simple  name,  this  simple  name  must  be  given  both  at  the  beginn¬ 
ing  and  at  the  end. 

The  execution  of  a  block  statement  consists  of  the  elaboration  of  Its  declarative  part  (if  any)  fol¬ 
lowed  by  the  execution  of  the  sequence  of  statements.  If  the  block  statement  has  exception 
handlers,  these  service  corresponding  exceptions  that  are  raised  during  the  execution  of  the 
sequence  of  statements  (see  1 1.2). 

Example; 

SWAP; 

declare 

TEMP  :  INTEGER; 
begin 

TEMP  V;  V  !=  Ui  U  TEMP; 
and  SWAP; 


Notes; 

If  task  objects  are  declared  within  a  block  statement  whose  execution  Is  completed,  the  block 
statement  is  not  left  until  all  its  dependent  tasks  are  terminated  (see  9.4).  This  rule  applies  also  to 
a  completion  caused  by  an  exit,  return,  or  goto  statement;  or  by  the  raising  of  an  exception. 

Within  a  block  statement,  the  block  name  can  be  used  in  expanded  names  denoting  local  entitles 
such  as  SWAP  .TEMP  in  the  above  example  (see  4.1.3  (f)). 

References;  declarative  part  3.9,  dependent  task  9.4,  exception  handler  1 1.2,  exit  statement  5.7,  expanded  name 
4.1.3,  goto  statement  5.9,  raising  of  exceptions  1 1,  return  statement  5.B,  aequence  of  statements  6.1,  simple  name 
4.1,  task  object  9.2 
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5.7  Exit  Statemanta 


An  exit  statement  is  used  to  complete  the  execution  of  an  enclosing  loop  statement  (called  the 
loop  in  what  follows);  the  completion  is  conditional  if  the  exit  statement  includes  a  condition. 

Bxit_statement 

exit  [/cop_name]  [when  condition); 

An  exit  statement  with  ^  loop  name  is  only  allowed  within  the  named  loop,  and  applies  to  that 
loop;  an  exit  statement  without  a  loop  name  is  only  allowed  within  a  loop,  and  applies  to  the 
innermost  enclosing  loop  (whether  named  or  not).  Furthermore,  an  exit  statement  that  applies  to  a 
given  loop  must  not  appear  within  a  subprogram  body,  package  body,  task  body,  generic  body,  or 
accept  statement,  if  this  construct  Is  itself  enclosed  by  the  given  loop. 

For  the  execution  of  an  exit  statement,  the  condition.  If  present,  is  first  evaluated.  Exit  from  the 
loop  then  takes  place  If  the  value  is  TRUE  or  if  there  is  no  condition. 

Examples: 

for  N  In  1  ..  .VIAX.NUMJTEMS  loop 
GET_NEWJTEM(NEW_ITEM); 

MERGE_ITEM(NEW_ITEM,  STORAGE-FILE); 
exit  when  NEWJTEM  =  TERMINAUTEM; 
end  loop; 

MAIN-CYCLE: 

loop 

"  initial  statements 

exit  MAIN-CYCLE  when  FOUND; 

--  final  statements 
end  loop  MAIN-CYCLE; 


Note; 

Several  nested  loops  can  be  exited  by  an  exit  statement  that  names  the  outer  loop. 

References;  accept  statement  9.5,  condition  6.3,  evaluation  4.6.  generic  body  12.1,  loop  name  5.5.  loop  statement 
5.5,  package  body  7.1,  subprogram  body  6.3,  true  boolean  value  3.5.3 


5.8  Return  Statements 


A  return  statement  Is  used  to  complete  the  execution  of  the  innermost  enclosing  function, 
procedure,  or  accept  statement. 

return_statement  :;=  return  [expression]; 

A  return  statement  is  only  allowed  within  the  body  of  a  subprogram  or  generic  subprogram,  or 
within  an  accept  statement,  and  applies  to  the  innermost  (enclosing)  such  construct;  a  return 
statement  Is  not  allowed  within  the  body  of  a  task  unit,  package,  or  generic  package  enclosed  by 
this  construct  (on  the  other  hand,  it  Is  allowed  within  a  compound  statement  enclosed  by  this  con 
struct  and,  in  particular.  In  a  block  statement). 


5.8  Return  Statements 
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Statements 


A  return  statement  for  an  accept  statement  or  for  the  body  of  a  procedure  or  generic  procedure  4 
must  not  include  an  expression.  A  return  statement  for  the  body  of  a  function  or  generic  function 
must  include  an  expression. 

The  value  of  the  expression  defines  the  result  returned  by  the  function.  The  type  of  this  expression  5 

must  be  the  base  type  of  the  type  mark  given  after  the  reserved  word  return  in  the  specification  of 
the  function  or  generic  function  (this  type  mark  defines  the  result  subtype), 

For  the  execution  of  a  return  statement,  the  expression  (if  any)  is  first  evaluated  and  a  check  Is  e 
made  that  the  value  belongs  to  tne  result  subtype.  The  execution  of  the  return  statement  is  thereby 
completed  if  the  check  succeeds;  so  also  is  the  execution  of  the  subprogram  or  of  the  accept 
statement.  The  exception  CONSTRAINT_ERROR  is  raised  at  the  place  of  the  return  statement  if  the 
check  fails. 

Examples:  7 

return;  -•  in  a  procedure 

return  KEY_\/ALUE(LAST_INDEX);  —  In  a  hmction 

Note: 

If  the  expression  Is  either  a  numeric  literal  or  named  number,  or  an  attribute  that  yields  a  result  of  s 
type  universaijnteger  or  universafweal,  then  an  implicit  conversion  of  the  result  is  performed  as 
described  In  section  4.6. 


References:  accept  statement  9.6,  attribute  A,  block  statement  5.6,  constraint-error  exception  1 1.1,  expression  4.4, 
function  body  0.3,  function  call  8.4,  generic  body  12.1,  Implicit  type  conversion  4,8,  named  number  3.2,  numeric 
literal  2.4,  package  body  7.1,  procedure  body  8.3,  reserved  word  2.9.  result  subtype  6.1,  subprogram  body  8.3,  sub¬ 
program  specification  6.1,  subtype  3.3,  task  body  9.1,  type  mark  3.3.2,  universaijnteger  type  3.5.4,  unlversaLreal 
type  3.5.6 


5.9  Goto  Statamanta 


A  goto  statement  specifies  an  explicit  transfer  of  control  from  this  statement  to  a  target  statement  1 
named  by  a  label. 

goto-statement  label-name'.  3 

The  innermost  sequence  of  statements  that  encloses  the  target  statement  must  also  enclose  the  3 
goto  statement  (note  that  the  goto  statement  can  be  a  statement  of  an  Inner  sequence).  Further¬ 
more,  if  a  goto  statement  Is  enclosed  by  an  accept  statement  or  the  body  of  a  program  unit,  then 
the  target  statement  must  not  be  outside  this  enclosing  construct;  conversely,  it  follows  from  the 
previous  rule  that  If  the  target  statement  Is  enclosed  by  such  a  construct,  then  the  goto  statement 
cannot  be  outside. 

The  execution  of  a  goto  statement  transfers  control  to  the  named  target  statement.  4 
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Note: 

The  above  rules  allow  transfer  of  control  to  a  statement  of  an  enclosing  sequence  of  statements 
but  not  the  reverse.  Similarly,  they  prohibit  transfers  of  control  such  as  between  alternatives  of  a 
case  statement,  if  statement,  or  select  statement;  between  exception  handlers;  or  from  an  excep¬ 
tion  handler  of  a  frame  back  to  the  sequence  of  statements  of  this  frame. 

Bxemple: 


<<COMPARE>> 

if  A(l)  <  ELEMENT  then 
If  LEFT(I)  /=>  0  then 
I  LEFT(I): 
goto  COMPARE; 
end  if; 

-  some  statements 
and  d; 


References:  accept  statement  9.5,  block  statement  5.8,  case  statement  5.4,  compound  statement  5.1,  exception 
handler  1 1.2.  frame  1 1.2,  generic  body  12.1,  If  statement  6.3,  label  5.1,  package  body  7.1,  program  unit  6,  select 
statement  9.7,  sequence  of  statements  5.1,  statement  5.1,  subprogram  body  6.3,  task  body  9.1 ,  transfer  of  control 
5.1 


5.9  Goto  Statements 
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6.  Subprograms 


Subprograms  are  one  of  the  four  forms  oi  program  unit,  of  which  programs  can  be  composed.  The 
other  forms  are  packages,  task  units,  and  generic  units. 

A  subprogram  Is  a  program  unit  whose  execution  Is  Invoked  by  a  subprogram  call.  There  are  two 
forms  of  subprogram:  procedures  and  functions.  A  procedure  call  is  a  statement;  a  function  call  is 
an  expression  and  returns  a  value.  The  definition  of  a  subprogram  can  be  given  in  two  parts:  a  sub  ¬ 
program  declaration  defining  its  calling  conventions,  and  a  subprogram  body  defining  its  execu¬ 
tion. 

Refarartcos;  function  6.6,  function  call  6.4,  ganaric  unit  1 2,  package  7,  procedure  6. 1 ,  procedure  call  6.4,  lubprogram 
body  6.3,  subprogram  call  6.4,  subprogram  declaration  6.1,  task  unit  9 


6.1  Subprogram  Dselsrstiona 


A  subprogram  declaration  declares  a  procedure  or  a  function,  as  Indicated  by  the  initial  reserved 
word. 


8ubprogram..deolaration  subprooram^peclflcatlon; 

8ubprooram...speclflcatlon 

prooedure  Identifier  (formal-part] 

I  funetion  designator  (formal-part)  return  type_mark 

designator  identifier  |  operetor-symbol 

operator^symbol  strIngJIterel 

formal-part 

(parameter-specification  |;  parameter-specificationj) 
parameter-specification 

identIfiarJIat  :  mode  type_mark  (:»  expreasionj 
mode  (In)  |  In  out  |  out 


The  specification  of  a  procedure  specifies  Its  Identifier  end  its  formal  parameters  (if  any).  The 
specification  of  a  function  specifies  its  designator.  Its  formal  parameters  (if  any)  and  the  suhtype  of 
the  returned  value  (the  result  subtype).  A  designator  that  is  an  operator  symbol  is  used  for  the 
overloading  of  an  operator.  The  sequence  of  characters  represented  by  an  operator  symbol  must 
be  an  operator  belonging  to  one  of  the  six  classes  of  overloadable  operators  defined  In  section  4.5 
(extra  spaces  are  not  allowed  and  the  case  of  tetters  Is  not  significant). 
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A  parameter  specification  with  several  identifiers  is  equivalent  to  a  sequence  of  single  parameter 
specifications,  as  explained  In  section  3.2.  Each  single  parameter  specification  declares  a  formal 
parameter.  If  no  mode  Is  explicitly  given,  the  mode  in  Is  assumed.  If  a  parameter  specification 
ends  with  an  expression,  the  expression  Is  the  default  expression  of  the  formal  parameter.  A 
default  expression  is  only  allowed  In  a  parameter  specification  if  the  mode  is  In  (whether  this  mode 
is  indicated  explicitly  or  implicitly).  The  type  of  a  default  expression  must  be  that  of  the  cor¬ 
responding  formal  parameter. 

The  uso  of  a  name  that  denotes  a  formal  parameter  is  not  allowed  In  default  expressions  of  a  for¬ 
mal  part  If  the  specification  of  the  parameter  is  itself  given  in  this  formal  part. 

The  elaboration  of  a  subprogram  declaration  elaborates  the  corresponding  formal  part.  The 
elaboration  of  a  formal  part  has  no  other  effect. 

Examples  of  subprogram  declarations; 

procedure  TRAVERSE_TREE; 

procedure  INCREMENTIX  :  in  out  INTEGER); 

procedure  RIQHTJNOENTIMARGIN  ;  out  UNE_SIZE);  -  see  3  B.4 

procedure  SWITCHIFROM,  TO  :  in  out  LINK);  -  see  3.8.1 

function  RANDOM  return  PROBABILITY;  -  see  3.5.7 

function  MIN-CELUX  ;  LINK)  return  CELL;  -  see  3.8.1 

function  NEXT.FRAMEIK  :  POSITIVE)  return  FRAME;  -  see  3.8 

function  DOT.PRODUCTILEFTRIGHT:  VECTOR)  return  REAL;  -  see  3.6 

function  "^''ILEFT, RIGHT  ;  MATRIX)  return  MATRIX;  -  see  3.6 

Examples  of  in  parameters  with  default  expressions: 


procedure  PRINT.HEADERl  PAGES 

HEADER 

CENTER 


In  NATURAL; 

In  LINb  :=  (1  ..  LINE'LAST  => 

in  BOOLEAN  TRUE); 


see  3.6 


Notes: 


The  evaluation  of  defoult  expressions  Is  caused  by  certain  subprogram  calls,  as  described  In  sec¬ 
tion  6.4.2  (default  expressions  are  not  evaluated  during  the  elaboration  of  the  subprogram  declara¬ 
tion). 

All  subprograms  can  be  called  recursively  and  are  reentrant. 


References:  declaration  3.1,  elaboration  3,9,  evaluation  4.6.  enpreeelon  4,4,  formal  parameter  6,2,  function  6.B, 
Idontlfior  2.3,  identifier  llet  3,2,  mode  6,2.  name  4,1,  elaboration  haa  r.o  other  effect  3,9,  operator  4. B,  overloading  6,6 
8.7.  procedure  6,  string  literal  2,6,  subprogram  call  6.4,  type  mark  3.3.2 


6. 1  Subprogram  Declarations 
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6.2  Formal  Paramatar  Modas 

The  value  of  an  object  Is  said  to  be  read  when  this  value  Is  evaluated;  It  Is  also  said  to  be  read  \ 

when  one  of  its  subcomponents  is  read.  The  value  of  a  variable  Is  said  to  be  updated  when  an 
assignment  Is  performed  to  the  variable,  and  also  (Indirectly)  when  the  variable  is  used  as  actual 
parameter  of  a  subprogram  call  or  entry  call  statement  that  updates  Its  value;  it  is  also  said  to  be 
updated  when  one  of  Its  subcomponents  Is  updated. 

A  formal  parameter  of  a  subprogram  has  one  of  the  three  following  modes:  ? 

in  The  formal  parameter  Is  a  constant  and  permits  only  reading  of  the  value  of  the  3 

associated  actual  parameter. 

in  out  The  formal  parameter  Is  a  variable  and  permits  both  reading  and  updating  of  the  value  of  the  4 
associated  actual  parameter. 

out  The  formal  parameter  Is  a  variable  and  permits  updating  of  the  value  of  the  associated  actual  5 

parameter. 

The  value  of  a  scalar  parameter  that  is  not  updated  by  the  call  la  undefined  upon  return;  the 
same  holds  for  the  value  of  a  scalar  subcomponent,  other  than  a  discriminant.  Reading 
the  bounds  and  dlactimlnants  of  the  formal  parameter  and  of  Its  subcomponents  Is  allowed, 
but  no  other  reading. 

For  a  scalar  parameter,  the  above  effacts  are  achieved  by  copy:  at  the  start  of  each  call.  If  the  mode  a 
is  In  or  In  out,  the  value  of  the  actual  parameter  Is  copied  Into  the  associated  formal  parameter; 
then  after  normal  completion  of  the  subprogram  body.  If  the  mode  is  In  out  or  out,  the  value  of  the 
formal  parameter  is  copied  back  Into  the  associated  actual  parameter.  For  a  parameter  whose 
type  Is  an  access  type,  copy-ln  is  used  for  all  three  modes,  and  copy-back  for  the  modes  In  out  and 
out. 

For  a  parameter  whose  type  Is  an  array,  record,  or  task  type,  an  implementation  may  likewise  1 
achieve  the  above  effects  by  copy,  as  for  scalar  types.  In  addition.  If  copy  is  used  for  a  parameter  of 
mode  out,  then  copy-ln  Is  required  at  least  for  the  bounds  and  discriminants  of  the  actual 
parameter  and  of  Its  subcomponents,  and  also  for  each  subcomponent  whose  type  Is  an  access 
type.  Alternatively,  an  implementation  may  achieve  these  effects  by  reference,  that  Is,  by  arranging 
that  every  use  of  the  formal  parameter  (to  read  or  to  update  its  value)  be  treated  as  a  use  of  the 
associated  actual  parameter,  throughout  the  execution  of  the  subprogram  call.  The  language  does 
not  define  which  of  these  two  mechanisms  Is  to  be  adopted  for  parameter  passing,  nor  whether 
different  calls  to  the  same  subprogram  are  to  use  the  same  mechanism.  The  execution  of  a 
program  Is  erroneous  If  Its  effect  depends  on  which  mechanism  Is  selected  by  the  Implementation. 

For  a  parameter  whose  type  Is  a  private  type,  the  above  effects  are  achieved  according  to  the  rule  b 
that  applies  to  the  corresponding  full  type  declaration. 

Within  the  body  of  a  subprogram,  a  formal  parameter  Is  subject  to  any  constraint  resulting  from  0 
the  type  mark  given  in  Its  parameter  specification.  For  a  formal  parameter  of  an  unconstrained 
array  type,  the  bounds  are  obtained  from  the  actual  parameter,  and  the  formal  parameter  is  con¬ 
strained  by  these  bounds  (see  3.6.1).  For  a  formal  parameter  whose  declaration  specifies  an 
unconstrained  (private  or  record)  type  with  discriminants,  the  discriminants  of  the  formal 
parameter  are  initialized  with  the  values  of  the  corresponding  discriminants  of  the  actual 
parameter;  the  formal  parameter  Is  unconstrained  If  and  only  If  the  mode  is  In  out  or  out  and  the 
variable  name  given  for  the  actual  parameter  denotes  on  unconstrained  variable  (see  3.7.1  and 
6.4.1). 

If  the  actual  parameter  of  a  subprogram  call  is  a  subcomponent  that  depends  on  discriminants  of  10 
an  unconstrained  record  variable,  than  the  execution  of  the  call  is  erroneous  If  the  value  of  any  of 
the  discriminants  of  the  variable  is  changed  by  this  execution;  this  rule  does  not  apply  If  the  mode 
is  in  and  the  type  of  the  subcomponent  Is  a  scalar  type  or  an  access  type. 
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Notes: 

For  parameters  of  array  and  record  types,  the  parameter  passing  rules  have  these  consequences: 

a  If  the  execution  of  a  subprogram  is  abandoned  as  a  result  of  an  exception,  the  final  value  of  an 
actual  parameter  of  such  a  type  can  be  either  its  value  before  the  call  or  a  value  assigned  to 
the  formal  parameter  during  the  execution  of  the  subprogram. 

e  If  no  actual  parameter  of  such  a  type  is  accessible  by  more  than  one  path,  then  the  effect  of  a 
subprogram  call  (unless  abandoned)  is  the  same  whether  or  not  the  implementation  uses 
copying  for  parameter  passing.  If,  however,  there  are  multiple  access  paths  to  such  a 
parameter  (for  example.  If  a  global  variable,  or  another  formal  parameter,  refers  to  the  same 
actual  parameter),  then  the  value  of  the  formal  is  undefined  after  updating  the  actual  other 
than  by  updating  the  formal.  A  proprcm  using  such  an  undefined  value  is  erroneous. 

The  same  parameter  modes  are  defined  fc'  formal  parameters  of  entries  (see  9.5)  with  the  same 
meaning  as  for  subprograms.  Dift'erent  parameter  modes  are  defined  for  generic  formal 
parameters  (see  12.1.1). 

For  all  modes,  If  an  actual  parameter  designates  a  task,  the  associated  formal  parameter 
designates  the  same  task;  the  same  holds  for  a  subcomponent  of  an  actual  parameter  and  the  cor¬ 
responding  subcomponent  of  the  associated  formol  parameter. 

References:  acceii  type  3.8,  actual  paramatar  0.4.1,  array  type  3.6,  aaslgnmant  5.2,  bound  of  an  array  3.B.1, 
constraint  3.3,  dapand  on  a  discriminant  3.7.1,  diacrimlnant  3.7.1,  entry  call  atatamant  8.5,  erroneous  1.6,  evaluation 
4.5,  exception  11,  axpreaslon  4.4,  formal  paramatar  6.1,  ganaric  formal  parameter  12.1,  global  8.1,  mode  6.1,  null 
access  value  3.8,  object  3.2.  parameter  speolflcatlon  6.1,  private  typo  7.4,  record  type  3.7,  scalar  type  3.5,  subcompo¬ 
nent  3.3,  subprogram  body  6.3,  aubprogram  call  atatamant  6.4,  teak  9,  task  type  9.2,  type  mark  3.3.2,  unconstrained 
array  type  3.6,  unconstrained  type  with  discriminants  3.7.1,  unconstrsined  variable  3.2.1,  variable  3,2,1 


6.3  Subprogram  Bodies 


A  subprogram  body  specifies  the  execution  of  a  subprogram. 

8ubprogram_body  :;= 

subprogram_speclflcation  is 
(  daclaratlva_part] 
begin 

sequence_of_atatamonta 
I  exception 

excoptlon.handler 
I  exceptlon_hBndlor|) 
end  Idesignatorj; 

The  declaration  of  a  subprogram  is  optional.  In  the  absence  of  such  a  declaration,  the  subprogram 
specification  of  the  subprogram  body  (or  body  stub)  acts  as  the  declaration.  For  each  subprogram 
declaration,  there  must  be  a  corresponding  body  (except  for  a  subprogram  written  In  another 
language,  as  explained  in  section  1 3.9).  If  both  e  declaration  and  a  body  are  given,  the  subprogram 
specification  of  the  body  must  conform  to  the  subprogram  specification  of  the  declaration  (see 
section  6.3.1  for  conformance  rules). 


6.3  Subprogram  Bodies 
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If  a  designator  appears  at  the  end  of  a  subprogram  b  Jy,  it  must  repeat  the  designator  of  the  sub¬ 
program  specification. 

The  eiaboration  of  a  subprogram  body  has  no  other  effect  than  to  estabiish  that  the  body  can  from 
then  on  be  used  for  the  execution  of  caiis  of  the  subprogram. 

The  execution  of  a  subprogram  body  is  invoked  by  a  subprogram  call  (see  6.4).  For  this  execution, 
after  estabiishing  the  association  between  formal  parameters  and  actual  parameters,  the 
declarative  part  of  the  body  Is  elaborated,  and  the  sequence  of  statement^  of  the  body  Is  then 
executed.  Upon  completion  of  the  body,  return  is  made  to  the  caller  (and  any  necessary  copying 
back  of  formal  to  actual  parameters  occurs  (see  6.2)).  The  optional  exception  handlers  at  the  end 
of  a  subprogram  body  handle  exceptions  raised  during  the  execution  of  the  sequence  of  state¬ 
ments  of  the  subprogram  body  (see  1 1 .4). 

Note: 

it  follows  from  the  visibility  rules  that  If  a  subprogram  declared  in  a  package  is  to  be  visible  outside 
the  package,  a  subprogram  specification  must  be  given  In  the  visible  part  of  the  package.  The  same 
rules  dictate  that  a  subprogram  declaration  must  bo  given  If  a  call  of  the  subprogram  occurs  tex- 
tually  before  the  subprogram  body  (the  declaration  must  then  occur  earlier  than  the  call  In  the 
program  text).  The  rules  given  In  sections  3.9  and  7.1  imply  that  a  subprogram  declaration  and  the 
corresponding  body  must  both  occur  Immediately  within  the  seme  declarative  region. 

Bxemple  of  subprogram  body: 

prooedure  PUSH(E  ;  In  ELEMENT-TVPE;  S  ;  In  out  STACK)  Is 
begin 

If  S.INDEX  S.SIZE  then 
raise  STACK_OVF.RFLOW; 

else 

S.INDEX  >  S.INDEX  +  1; 

S.SPACE(S.INDEX)  :»  E; 
end  If; 
end  PUSH; 

Refererjces;  actual  paramatar  6.4.1.  body  stub  10.2,  conform  6.3.1,  declaration  3.1,  declarative  part  3.9,  declarative 
region  8.1,  designator  6.1,  elaboration  3.9,  elaboration  haa  no  other  effect  3.1,  exception  1 1,  exception  handler  1 1.2, 
formal  parameter  0,1,  occur  Immediately  within  8.1,  package  7,  sequence  of  itatementi  B,1,  lubprogram  6,  sub¬ 
program  call  0,4,  lubprogram  declaration  6,1,  subprogram  epoclflcailon  6,1,  vlalblllty  8.3,  visible  part  7,2 


6.3.1  Conformanot  Rulas 


Whenever  the  language  rules  require  or  allow  the  specification  of  a  given  subprogram  to  be 
provided  in  more  than  one  place,  the  following  variations  are  allowed  at  each  place; 

e  A  numeric  literal  can  be  replaced  by  a  different  numeric  literal  if  and  only  If  both  have  the 
same  value. 

e  A  simple  name  can  be  replaced  by  an  expanded  name  In  which  this  simplu  name  Is  the  selec¬ 
tor,  If  and  only  If  at  both  places  the  meaning  of  the  simple  name  is  given  by  the  same  declara¬ 
tion. 

e  A  string  literal  given  as  an  operator  symbol  can  be  replaced  by  a  different  string  literal  If  and 
only  If  both  represent  the  same  operator. 
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Two  subprogram  specifications  are  said  to  conform  if,  apart  from  comments  and  the  above 
allowed  variations,  both  specifications  are  formed  by  the  seme  sequence  of  lexical  elements,  and 
corresponding  lexical  elements  are  given  the  same  meaning  by  the  visibility  and  overloading  rules. 

Conformance  is  likewise  defined  for  formal  parts,  discriminant  parts,  and  type  marks  (for  deferred 
constants  and  for  actual  parameters  that  have  the  form  of  a  type  conversion  (see  6,4.1)), 

Notes: 

A  simple  name  can  bo  replaced  by  an  expanded  name  oven  If  the  simple  name  is  itself  the  prefix  of 
a  selected  component.  For  example,  Q.R  can  bo  replaced  by  P.Q.R  if  Q  Is  declared  immediately 
within  p. 

The  following  specifications  do  not  conform  since  they  are  not  formed  by  the  same  sequence  of 
lexical  elements: 

procedure  P|X,Y  :  INTEGER) 
procedure  P(X  :  INTEGER;  Y  ;  INTEGER) 
procedure  P(X,Y  ;  In  INTEGER) 


References;  actual  parameter  6.4  6.4.1,  allow  1.6,  comment  2.7,  declaration  3.1,  deferred  constant  7,4.3,  direct 
vlalbillty  8.3,  diacrlmlnant  part  3.7.1,  expanded  name  4.1.3,  formal  part  6.1,  lexical  element  2,  name  4.1,  numeric 
literal  2.4.  operator  symbol  6.1,  overloading  8.6  8.7,  prefix  4.1,  selected  component  4.1.3,  selector  4.1.3,  simple 
name  4.1,  subprogram  specification  6.1,  type  convaralon  4,6,  visibility  6.3 


6.3.2  Inlina  expansion  of  Subprograms 


,  The  pragma  INLINE  Is  used  to  Indicate  that  Inline  expansion  of  the  subprogram  body  Is  desired  for 
every  call  of  each  of  the  named  subprograms.  The  form  of  this  pragma  Is  as  follows: 

I  pragma  INLINE  (name  |,  name)); 

Each  name  Is  either  the  name  of  a  subprogram  or  the  name  of  a  generic  subprogram.  The  pragma 
INLINE  Is  only  allowed  at  thu  place  of  a  declarative  Item  In  a  declarative  part  or  package  specifica¬ 
tion,  or  after  a  library  unit  in  a  compilation,  but  before  any  subsequent  compilation  unit. 

3  If  the  pragma  appears  at  the  place  of  a  declarative  Item,  each  name  must  denote  a  subprogram  ur 
a  generic  subprogram  declared  by  an  earlier  declarative  Item  of  the  samo  declarative  part  or 
package  specification.  If  several  (overloaded)  subprograms  satisfy  this  requirement,  the  pragma 
applies  to  all  of  them.  If  the  pragma  appears  after  a  given  library  unit,  the  only  name  allowed  Is  the 
name  of  this  unit.  If  the  name  of  a  generic  subprogram  Is  mentioned  In  the  pragma,  this  indicates 
that  inline  expansion  Is  desired  for  calls  of  all  subprogrems  obtained  by  instantiation  of  the  named 
generic  unit. 

4  The  meaning  of  a  subprogram  Is  not  changed  by  the  pragma  INLINE.  For  each  call  of  the  named 
subprograms,  an  Implementation  la  free  to  follow  or  to  Ignore  the  recommendation  expressed  by 
the  pragma.  (Note,  In  particular,  that  the  recommendation  cannot  generally  be  followed  for  a 
recursive  subprogram.) 

5  References;  allow  1.6,  compilation  10,1,  compilation  unit  10.1,  declarative  Item  3.9,  declarative  pert  3,9,  generic 
subprogram  12,1,  generic  unit  12  12,1,  Instantiation  12,3,  library  unit  10,1,  name  4,1 ,  overloading  6,6  8,7,  package 
specification  7,1,  pragma  2.8,  subprogram  6,  subprogram  body  6,3,  subprogram  call  6.4 


6,3.2  Inline  Expansion  of  Subprograms 
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6.4  Subprogram  Calla 


A  subprogram  oall  is  either  a  procedure  call  statement  or  a  function  call;  it  invokes  the  execution 
of  the  corresponding  subprogram  body.  The  call  specifies  the  association  of  the  actual  parameters, 
if  any,  with  formal  parameters  of  the  subprogram. 

procedur0._calL8tatement  !;= 

procadure_name  |aotuaLparameter_partl; 

functlon_call 

functlon^name  (actual_paramat0r_partl 
actual_4iarameter_part 

(parameter_a8aoclatlon  |,  parameter_«i*scc!atlonl) 

parameter_as80clation 

I  formal-parameter  a>>)  actual-parameter 

formal-parameter  para/nefer-slmple-name 

actual-parameter  ::= 

expression  |  var/aa/e-name  |  type_mark{var/ab/a_name) 

Each  parameter  association  associates  an  actual  parameter  with  a  corresponding  formal 
parameter,  A  parameter  association  la  said  to  be  named  if  the  formal  parameter  Is  named  explicit¬ 
ly;  It  is  otherwise  said  to  be  positional.  For  a  positional  association,  the  actual  parameter  corres¬ 
ponds  to  the  formal  parameter  with  the  same  position  In  the  formal  part. 

Named  associations  can  be  given  In  any  order,  but  If  both  positional  and  named  associations  are 
used  in  the  same  call,  positional  associations  must  occur  first,  at  their  normal  position.  Hence 
once  a  named  association  Is  used,  the  rest  of  the  cell  must  use  only  named  associations. 

For  each  formal  parameter  of  a  subprogram,  a  subprogram  call  muat  specify  exactly  one  cor¬ 
responding  actual  parameter.  This  actual  parameter  Is  specified  either  explicitly,  by  a  parameter 
association,  or.  In  the  absence  of  such  an  association,  by  a  default  expression  (see  6.4,2). 

The  parameter  associations  of  a  subprogram  cell  are  evaluated  In  some  order  that  Is  not  defined  by 
the  language.  Similarly,  the  language  rules  do  not  define  In  which  order  the  values  of  In  out  or  out 
parameters  are  copied  back  Into  the  corresponding  actual  parameters  (when  this  Is  done). 


Examples  of  procedure  calls; 


TRAVERSE-TREE; 
TABLE-MANAQER.INSERT(E); 
PRINT_HEADER(128,  TITLE,  TRUE); 


see  6.1 
■ee  7.5 
see  6.1 


SWITCHIFROM  =.>  X,  TO  ->  NEXT);  -  see  6,1 

PRINT-HEADER!  128,  HEADER  =>  TITLE,  CENTER  TRUE);  -  aea  6.1 

PRINT-HEADER(HEADER  =•>  TITLE,  CENTER  «>  TRUE,  PAGES  =>  128);  -  see  6,1 


Examples  of  function  calls; 


DOT-PRODUCT(U,  V)  -  see  6.1  and  6,5 
CLOCK  -  see  9.6 
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References:  default  expression  for  a  formal  parameter  6.1,  erroneous  1.6,  expression  4.4,  formal  parameter  6.1, 
formal  part  6.1,  name  4.1,  timple  name  4.1,  subprogram  6,  type  mark  3.3.2,  variable  3.2.1 


6.4.1  Paramater  Aiaoolatlona 


Each  actual  parameter  must  have  the  same  type  as  the  corresponding  formal  parameter. 

An  actual  parameter  associated  with  a  formal  parameter  of  mode  in  must  be  an  expression;  It  Is 
evaluated  before  the  call. 

An  actual  parameter  asaoolated  with  a  formal  parameter  of  mode  in  out  or  out  must  be  either  the 
name  of  a  variable,  or  of  the  form  of  a  type  conversion  whose  argument  Is  the  name  of  a  variable. 
In  either  case,  for  the  mode  In  out,  the  variable  muat  not  be  a  formal  parameter  of  mode  out  or  a 
subcomponent  thereof.  For  an  actual  paramater  that  has  the  form  of  a  type  conversion,  the  type 
mark  muat  conform  (see  6.3.1)  to  the  type  mark  of  the  formal  paiameter;  the  allowed  operand  and 
target  types  are  the  same  as  for  type  converalona  (see  4.6), 

The  variable  name  given  for  an  actual  parameter  of  mode  In  out  or  out  Is  evaluated  before  the  call. 
If  the  actual  parameter  has  the  form  of  a  type  conversion,  then  before  the  call,  for  a  parameter  of 
mode  In  out,  the  variable  la  converted  to  the  specified  type;  after  (normal)  completion  of  the  sub¬ 
program  body,  for  a  parameter  of  mode  In  out  or  out,  the  formal  parameter  Is  converted  back  to  the 
type  of  the  variable.  (The  type  specified  In  the  conversion  must  be  that  of  the  formal  parameter.) 

The  following  constraint  checks  are  performed  for  parameters  of  scalar  and  access  types; 

e  Before  the  call;  for  a  parameter  of  mode  in  or  In  out,  it  Is  checked  that  the  value  of  the  actual 
parameter  belongs  to  the  subtype  of  the  formal  parameter. 

e  After  (normal)  completion  of  the  eubprogrem  body;  for  a  parameter  of  mode  In  out  or  out,  it  Is 
checked  that  the  value  of  the  formal  parameter  belongs  to  the  subtype  of  the  actual  variable. 
In  the  case  of  a  type  conversion,  the  value  of  the  formal  parameter  Is  converted  back  and  the 
check  applies  to  the  result  of  the  conversion. 

In  each  of  the  above  oases,  the  execution  of  the  program  Is  erroneous  If  the  checked  value  Is 
undefined. 

For  other  types,  for  all  modes,  a  check  is  made  before  the  call  as  for  scaler  and  access  types;  no 
check  Is  made  upon  return, 

The  exception  CONSTRAINT^ERROR  Is  raised  at  the  place  of  the  subprogram  call  If  either  of  these 
checks  falls. 

Note: 

For  array  types  and  for  typos  with  discriminants,  the  check  before  the  call  Is  sufficient  (a  check 
upon  return  would  be  redundant)  If  the  type  mark  of  the  formal  parametor  denotes  a  constrained 
subtype,  since  neither  array  bounds  nor  discriminants  con  then  vary, 


6.4. 1  Parameter  Associations 
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If  this  type  mark  denotes  an  unconstrained  array  type,  the  formal  parameter  is  constrained  with  the  i? 
bounds  of  the  corresponding  actual  parameter  and  no  check  (neither  before  the  call  nor  upon 
return)  is  needed  (see  3,6.1).  Similarly,  no  check  is  needed  if  the  type  mark  denotes  an 
unconstrained  type  with  discriminants,  since  the  formal  parameter  is  then  constrained  exactly  as 
the  corresponding  actual  parameter  (see  3.7.1). 

References:  actual  parameter  6.4,  array  bound  3.6,  array  type  3.6.  call  of  a  subprogram  6.4.  conform  6.3.1.  i:i 
constrained  subtype  3.3,  constraint  3.3,  con8tralnt_error  exception  1 1.1,  discriminant  3.7,1,  erroneous  1.6,  evaluation 
4.5,  Bvaluntlort  of  a  name  4.1 ,  expression  4.4,  formal  parambtar  6.1,  mode  6.1 ,  name  4.1 ,  parameter  association  6.4, 
subtype  3.3,  type  3.3,  type  conversion  4,6,  typo  mark  3,3.2,  unconstrained  array  type  3.6,  unconstrainod  typo  with 
discriminants  3.7.1,  undaflnad  value  3,2,1,  variable  3,2.1 


6.4.2  Default  Paramateri 


If  a  parameter  specification  Includes  a  default  expression  for  a  parameter  of  mode  In,  then  cor-  i 
responding  subprogram  calls  need  not  Include  a  parameter  association  for  the  parameter.  If  a 
parameter  assorlatio'.  Is  thus  omitted  from  a  call,  then  the  rest  of  the  call,  follovying  any  Initial 
positional  associations,  must  use  only  named  associations. 

For  any  omitted  parameter  association,  the  default  expression  is  evaluated  before  the  call  and  the  i 
resulting  value  Is  used  as  an  Implicit  actual  parameter. 

Examples  of  procedures  with  default  values:  a 

procedure  ACTIVATE!  PROCESS  ;  In  PROCESS-NAME; 

AFTER  !  In  PROCESS-NAME  :=  NO-PROCESS: 

WAIT  I  In  DURATION  ;•  0.0; 

PRIOR  :  In  BOOLEAN  FALSE); 

procedure  PAIR(LEFT,  RIGHT  ;  PERSON-NAME  new  PERSON); 

Examples  of  their  calls,'  i 

ACTIVATE(X); 

ACTIVATEIX,  AFTER  -.=>  Y); 

ACTIVATEIX,  WAIT  =>  00.0,  PRIOR  «>  TRUE); 

ACTIVATEIX,  Y,  10,0,  FALSE); 

PAIR; 

PAIRILEFT  =«>  new  PERSON,  RIGHT  ->  new  PERSON); 

Note: 

If  a  default  expression  Is  used  for  two  or  more  parameters  In  e  multiple  prsiameter  specification,  i 
the  default  expression  Is  evaluated  once  for  each  omitted  parameter.  Hence  In  the  above  exam¬ 
ples,  the  two  calls  of  PAIR  are  equivalent. 


References:  actual  paromstar  8.4.1,  default  axpraislort  for  a  formal  parameter  6.1 ,  evaluation  4.5,  formal  parameter  n 
8  1,  mode  6,1,  named  parameter  aaaoolatlon  6,4,  parameter  aeeoolatlon  6,4,  parameter  apoclflcatlon  6.1,  positional 
parameter  aaaoclatlon  6.4,  subprogram  call  6,4 
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6.5  Function  Subprograms 


A  function  is  a  subprogram  that  returns  a  vaiue  (the  resuit  of  the  function  call).  The  specification  of 
a  function  starts  with  the  reserved  word  function,  and  the  parameters,  if  any,  must  have  the  mode 
in  (whether  this  mode  is  specified  expiicitiy  or  implicitiy).  The  statements  of  the  function  body  (ex¬ 
cluding  statements  of  program  units  that  are  inner  to  the  function  body)  must  inciude  one  or  more 
return  statements  specifying  the  returned  value. 

The  exception  PROQRAM_ERROR  is  raised  if  a  function  body  is  left  otherwise  than  by  a  return 
statement.  This  does  not  apply  if  the  execution  of  the  function  is  abandoned  as  a  result  of  an 
exception. 

Example: 

function  DOT_PRODUCT(LEFT,  RIGHT  ;  VECTOR)  return  REAL  it 
SUM  :  REAL  0.0; 
begin 

CHECK(LER'FIRST  =  RIGHT'FIRST  and  LEFT  LAST  =  RIGHTLAST); 
for  J  in  LEFT'RANQE  loop 

SUM  :=  SUM  +  LEFT(J)*RIGHT(J): 
end  loop; 
return  SUM; 
end  DOT.PRODUCT; 

References;  exception  11,  formal  parameter  6.1,  function  6.1,  function  body  6.3,  function  call  6.4,  function 
specification  6.1 ,  mode  6.1,  program_crror  exception  1 1.1,  raising  of  exceptions  1 1,  return  statement  6.8,  statement 
5 


6.6  Parameter  and  Result  Type  Profile  -  Overloading  of  Subprograms 


Two  formal  parts  are  said  to  have  the  same  parameter  type  profile  If  and  only  If  they  have  the  same 
number  of  parameters,  and  at  each  parameter  position  corresponding  parameters  have  the  same 
base  type.  A  subprogram  or  entry  has  the  same  parameter  and  result  type  profile  as  another  sub¬ 
program  or  entry  If  and  only  if  both  have  the  same  parameter  typo  profile,  and  either  both  are  func¬ 
tions  with  the  same  result  base  type,  or  neither  of  the  two  is  a  function. 

The  same  subprogram  identifier  or  operator  symbol  can  be  used  in  several  subprogram  specifica¬ 
tions.  The  Identifier  or  operator  symbol  is  then  said  to  be  overloaded',  the  subprograms  that  have 
this  identifier  or  operator  symbol  are  also  said  to  be  ovei;loaded  and  to  overload  each  other.  As 
explained  in  section  8.3,  if  two  subprograms  overload  each  other,  one  of  them  can' hide  the  other 
only  if  both  subprograms  have  the  same  parameter  and  result  type  profile  (see  section  8.3  for  the 
other  requirements  that  must  be  met  for  hiding). 

A  call  to  an  overloaded  subprogram  Is  ambiguous  (and  therefore  Illegal)  If  the  name  of  the  sub- 
progr-m,  the  number  of  parameter  associations,  the  types  and  the  order  of  the  actual  parameters, 
the  names  of  the  formal  parameters  (If  named  associations  are  used),  and  the  result  type  (for  func¬ 
tions)  are  not  sufficient  to  determine  exactly  one  (overloaded)  subprogram  specification. 


6.6  Parameter  and  Result  Type  Profile  -  Overloading  of  Subprograms 
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Examples  of  overloaded  subprograms', 

procedure  PUT(X  :  INTEGER); 
procedure  PUT(X  :  STRING); 
procedure  SETITINT  :  COLOR); 
procedure  SETISIGNAL  ;  LIGHT); 

Examples  of  calls: 

PUT(28); 

PUTC'no  possible  ambiguity  here"); 

SETITINT  =>  RED); 

SETISIGNAL  =>  RED); 

SETICOLOR'IRED)); 

-  SET  (RED)  would  be  ambiguous  since  RED  may 

-  denote  a  value  either  of  type  COLOR  or  of  type  LIGHT 


Notes: 

The  notion  of  parameter  and  result  type  profile  does  not  Include  parameter  names,  parameter 
modes,  parameter  subtypes,  default  expressions  and  their  presence  or  absence. 

Ambiguities  may  (but  need  not)  arise  when  actu,ai  parameters  of  the  call  of  an  overloaded  sub¬ 
program  are  themselves  overloaded  function  calls,  literals,  or  aggregates.  Ambiguities  may  also 
(but  need  not)  arise  when  aeverel  overloaded  subprograms  belonging  to  different  packages  are 
visible.  These  ambiguities  can  usually  be  resolved  In  several  ways:  qualified  expressions  can  be 
used  for  some  or  all  actual  parameters,  and  for  the  result,  If  any;  the  name  of  the  subprogram  can 
be  expressed  more  explicitly  as  an  expanded  name;  finally,  the  subprogram  can  be  renamed. 

References:  actual  parameter  6.4.1,  aggregate  4.3,  base  type  3,3,  default  expreaalon  fur  a  formal  parameter  6.1, 
entry  9.5,  formal  parameter  6.1,  function  6.5,  function  coll  6.4,  hiding  8.3,  Identifier  2.3,  Illegal  1 ,6,  literal  4.2,  mode 

6.1,  named  parameter  association  6,4,  operator  symbol  6. 1 ,  overloading  8.7,  package  7,  parameter  of  a  subprogram 

6.2,  qualified  expression  4,7,  renaming  declaration  8.6,  result  subtype  6.1,  subprogram  6,  subprogram  specification 
6,1,  subtype  3,3,  type  3,3 


6.7  Overloading  of  Operators 


The  declaratiot)  of  a  function  whose  designator  Is  an  operator  symbol  Is  used  to  overload  an 
operator.  The  sequence  of  characters  of  the  operator  symbol  must  be  either  a  logical,  a  relational,  a 
binary  adding,  a  unary  adding,  a  multiplying,  or  a  highes'  precedence  operator  (sea  4,5),  Neither 
membership  teats  nor  the  short-circuit  control  forms  are  allowed  as  function  designators. 

The  subprogram  specification  of  a  unary  operator  must  have  a  single  parameter.  The  subprogram 
specification  of  a  binary  operator  must  have  two  parameteru;  for  each  use  of  this  operator,  the  first 
parameter  takes  the  left  operand  as  actual  parameter,  the  second  parameter  takes  the  right 
operand.  Similarly,  a  generic  function  instantiation  whose  designator  is  an  operator  symbol  Is  only 
allowed  if  the  specification  of  the  generic  function  has  the  corresponding  number  of  parameters. 
Default  expressions  are  not  allowed  for  the  parameters  of  an  ooerator  (whether  the  operator  Is 
declared  with  an  explicit  subprogram  specification  or  by  a  generic  instantiation). 
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For  each  of  the  operators  and  overloading  is  allowed  both  as  a  unary  and  as  a  binary 
operator. 

The  explicit  declaration  of  a  function  that  overloads  the  equality  operator  other  than  by  a 
renaming  declaration,  Is  only  allowed  if  both  parameters  are  of  the  same  limited  type.  An 
overloading  of  equality  must  deliver  a  result  of  the  predefined  type  BOOLEAN ;  it  also  implicitly 
overloads  the  inequality  operatoi  7-"  so  that  this  still  gives  the  complementary  result  to  the 
equality  opemtor.  Explicit  overloading  of  the  Im-quality  operator  Is  not  allowed. 

A  renaming  declaration  whose  designator  is  the  equality  operator  Is  only  allowed  to  rename 
another  equality  operator.  (For  example,  such  a  renaming  declaration  can  be  used  when  equality  is 
visible  by  selection  but  not  directly  visible.) 

Note; 

Overloading  of  relational  operators  does  not  affect  basic  comparisons  such  as  testing  for 
membership  In  a  range  or  the  choices  in  a  case  statement. 

Examples; 

function  (LEFT,  RIGHT  ;  MATRIX)  return  MATRIX; 

function  "+"  (LEFT,  RIGHT  :  VECTOR)  return  VECTOR: 

-  assuming  that  A,  B,  and  C  are  of  the  type  VECTOR 

-  the  three  following  assignments  are  equivalent 

A  B  +•  C; 

A  :=  ''+"(B,  C); 

A  :=  ''+"(LEFT  B,  RIGHT  =>  C); 

References;  allow  1.6,  actual  parameter  6,4.1,  binary  adding  operator  4.5  4.5.3,  boolean  predefined  type  3.5.3, 
character  2.1,  complementary  rsault  4.5.2,  declaration  3.1,  default  expreaslon  for  a  formal  parameter  6,1,  designator 
6.1,  directly  visible  8.3,  equality  opera'ar  4.5,  formal  parameter  6,1,  function  declaration  6.1,  highest  precedence 
operator  4.5  4.5.6,  Implicit  declaration  3.1,  Inequality  operator  4.5.2,  limited  type  7.4.4,  logical  operator  4,5  4,5,1, 
membership  test  4.5  4.5.2,  multiplying  operator  4.5  4.5.5,  operator  4,5,  operator  symbol  6.1,  overloading  6.6  8.7, 
relational  operator  4.6  4.5.2,  short-circuit  control  form  4.6  4,6.1,  type  definition  3.3.1,  unery  adding  operator  4.5 
4.5.4,  visible  by  selection  6.3 
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Packages  are  one  of  the  four  forms  of  prograrr.  unit,  of  which  programs  can  be  composed.  The 
other  forms  are  subprograms,  task  units,  and  generic  units. 

Packages  allow  the  specification  of  groups  of  logically  related  entities.  In  their  simplest  form  pac¬ 
kages  specify  pools  of  common  object  and  type  declarations.  More  generally,  packages  can  be 
used  to  specify  groups  of  related  entities  Including  also  subprograms  that  can  be  called  from  outsi¬ 
de  the  package,  while  their  Inner  workings  remain  concealed  and  protected  from  outside  users. 


ReferencBs;  generic  unit  ’  %  program  unit  6,  eubprogram  6,  taak  unit  9,  type  declaration  3.3. 1 


7.1  Package  Structure 


A  package  is  generally  provided  In  two  parts;  a  package  specification  end  a  package  body,  Every 
package  has  a  package  specification,  but  not  all  packages  have  a  package  body. 

packnga-declaratlon  package_speolflcatlon; 

package_8peGlftostion 
psokage  Identifier  Is 
|ba8lc_deolaratlveJtem| 

[  private 

(ba8lc_declarativeJtem )] 
end  [pec^eye-Blmple-namel 

package_body 

package  body  p«c/repe.jBimple_nama  la 
I  declaratlva^art] 

( begin 

eoquence_of_statement8 
[  exception 

exceptlon_hsndler 
I  exceptlonjiandlerl)] 
end  Lnec/lr«jre_slmple-namo],' 

The  simple  nemo  at  the  start  of  a  package  body  must  repeat  the  package  identifier.  Similarly  if  a 
simple  name  appears  at  the  end  of  the  package  specification  or  body,  it  must  repeat  the  package 
identifier. 

If  a  subprogram  declaration,  a  package  declaration,  a  taak  declaration,  or  a  generic  declaration  Is  a 
declarative  Item  of  a  given  package  specification,  then  the  body  (if  there  Is  one)  of  the  program  unit 
declared  by  the  declaratlva  (tern  must  Itself  be  a  declarative  Item  of  the  declarative  part  of  the  body 
of  the  given  package. 
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Notes: 

5  A  simple  form  of  package,  specifying  a  pool  of  objects  and  types,  does  not  require  a  package  body. 
One  of  the  possible  uses  of  the  sequence  of  statements  of  a  package  body  Is  to  Initialize  such 
objects.  For  each  subprogram  declaration  there  must  be  a  corresponding  body  (except  for  a  sub¬ 
program  written  in  another  language,  as  explained  In  section  1 3.9).  If  the  body  of  a  program  unit 
is  a  body  stub,  then  a  separately  complied  subunit  containing  the  corresponding  proper  body  is 
required  for  the  program  unit  (sea  10.2).  A  body  is  not  a  basic  declarative  Item  and  so  cannot 
appear  in  a  package  specification. 

«  A  package  declaration  Is  either  a  library  package  (see  10.2)  or  a  declarative  item  declared  within 
another  program  unit. 


References;  basic  declarative  Item  3,9,  body  stub  10.2,  declarative  Item  3,9,  declarative  part  3.9,  exception  handler 
11.2,  generic  body  12.2,  generic  declaration  12.1,  Identifier  2.3,  library  unit  10.1,  object  3.2,  package  body  7.3,  pro¬ 
gram  unit  6,  proper  body  3,9,  sequence  of  statements  6.1,  simple  name  4.1,  aubprogram  body  6.3,  subprogram  decla¬ 
ration  6.1,  subunit  10.2,  task  body  9.1,  task  declaration  9.1,  type  3.3 


7.2  Paokag*  Spaolfloations  and  Daolaratlons 


1  The  first  list  of  declarative  items  of  a  package  specification  Is  called  the  visible  part  of  the  packa¬ 
ge.  The  optional  list  of  declarative  Items  after  the  reeerved  word  private  Is  called  the  private  part  of 
the  package. 

2  An  entity  declared  in  the  private  part  of  a  package  Is  not  visible  outside  the  package  Itself  (a  name 
denoting  such  an  entity  Is  only  possible  within  the  package).  In  contrast,  expanded  names  deno¬ 
ting  entities  declared  In  the  visible  part  can  be  used  even  outside  the  package;  furthermore,  direct 
visibility  of  such  entitles  can  be  achieved  by  means  of  use  clauses  (see  4.1,3  and  8.4). 

3  The  elaboration  of  a  package  declaration  consists  of  the  elaboration  of  its  basic  declarative  items 
in  the  given  order, 

Notes; 

4  The  visible  part  of  a  package  contains  all  the  Information  that  another  program  unit  is  able  to  know 
about  the  package.  A  package  consisting  of  only  a  package  specification  (that  Is,  without  a  packa¬ 
ge  body)  can  bo  used  to  represent  a  group  of  common  constants  or  variables,  or  a  common  pool  of 
objects  and  types,  as  In  the  examples  below. 

s  Example  of  a  package  describing  a  group  of  common  variables; 

peokage  PLOTTING.DATA  Is 

PEN_UP  :  BOOLEAN: 

CONVERSION.FACTOR, 

X_OFFSET,  Y_OFFSET, 

X_MIN,  Y_MIN, 

X-.MAX,  Y_MAX:  REAL;  -  see  3.5.7 

X-VALUE  :  array  (1  ..  600)  of  REAL: 

Y_VALUE  :  array  (1  ,.  BOO)  of  REAL; 
and  PLOTTINQ_DATA: 


7.2  Package  Specifications  and  Declarations 
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Example  of  a  package  describing  a  common  pool  of  objects  and  types: 


paokaga  WORICOATA  ia 

type  DAY  la  (MON,  TUE,  WED,  THU,  FRI,  SAT,  SUN); 
type  HOURS-SPENT  It  delta  0.26  rang*  0.0  ..  24.0; 
type  TIME_TABLE  It  array  (DAY)  of  HOURS_SPENT: 

WORK_HOURS  :  TIME_TABLE; 

NORMAL.HOURS  :  constant  TIME_TABLE  ;= 

(MON  .,  THU  =>  8.25,  FRI  =>  7.0,  SAT  |  SUN  =>  0,0); 

and  WORK_DATA; 


References:  basic  daclarativa  Itam  3.9,  constant  3.2.1,  dsclarativa  Itsm  3.9,  direct  vlrlblllty  8.J,  slaboratlon  3.9. 
expanded  nama  4.1.3,  nama  4.1,  number  dsolaratlon  3.2.2,  ob|act  declaration  3.2.1,  package  7,  package  doclerotlon 
7.1,  package  identifier  7.1,  package  apaclfleatlon  7.1,  scope  8.2,  eimpis  name  4,1,  type  declaration  3.3.1,  use  clauaa 
8.4.  variable  3.2.1 


7.3  Paokago  Bodlac 


In  contrast  to  the  entitles  declared  In  the  visible  part  of  a  package  specification,  the  entitles  decla¬ 
red  In  the  package  body  are  only  visible  within  the  package  body  Itself.  As  a  consequence,  a  packa¬ 
ge  with  a  package  body  can  be  used  for  the  construction  of  a  group  of  related  subprograms  (a  pac¬ 
kage  In  the  usual  sense).  In  which  the  logical  operations  available  to  the  users  are  clearly  isolated 
from  the  internal  entitles. 

For  the  elaboration  of  a  package  body,  Its  declarative  part  Is  first  elaborated,  and  Its  sequence  of 
statements  (if  any)  Is  then  executed.  The  optional  exception  handlers  at  the  end  of  a  package  body 
service  exceptions  raised  during  the  execution  of  the  sequence  of  statements  of  the  package  body. 


Notes: 

A  variable  declared  in  the  body  of  a  package  is  only  visible  within  this  body  and,  consequently,  Its 
value  can  only  be  changed  within  the  package  body.  In  the  absence  of  local  tasks,  the  value  of 
such  a  variable  remains  unchanged  between  calls  issued  from  outside  the  package  to  subprograms 
declared  In  the  visible  part.  The  propeiHes  of  such  a  variable  are  similar  to  those  of  an  "own" 
variable  of  Algol  60. 

The  elaboration  of  the  body  of  a  subprogram  declared  In  the  visible  part  of  a  package  is  caused  by 
the  elaboration  of  the  body  of  the  package.  Hence  a  call  of  such  a  subprogram  by  an  outside  pro¬ 
gram  unit  raises  the  exception  PROGRAM.ERROR  If  the  call  takes  place  before  the  elaboration  of 
the  package  body  (see  3.9), 


I 


7-3 


Package  Bodies  7.3 


ANSIIMIL-STD-1815A  Ada  Reference  Manual 


Example  of  a  package; 


peohage  RATIONAL.NUMBERS  la 

type  RATIONAL  la 
record 

NUMERATOR  :  INTEGER; 
DENOMINATOR  :  POSITIVE; 
and  record; 


function 

EQUAL 

(X,Y 

;  RATIONAL) 

return 

BOOLEAN; 

function 

H 

(X,Y  : 

:  INTEGER) 

return 

RATIONAL;  --  to  construct  a  rational  number 

function 

** 

(X,Y  ! 

I  RATIONAL) 

return 

RATIONAL: 

function 

M  H 

(X,Y  1 

i  RATIONAL) 

return 

RATIONAL: 

function 

(X,Y  1 

1  RATIONAL) 

return 

RATIONAL: 

function 

(X.Y  ! 

1  RATIONAL) 

return 

RATIONAL; 

and; 


package  body  RATIONAL_NUMBERS  la 

procedure  SAME-DENOMINATOR  (X.Y  ;  In  out  RATIONAL)  la 
begin 

-  reducaa  X  and  Y  to  the  aame  denontlnator: 


and; 

(unction  EQUAMX.Y  i  RATIONAL)  returrt  BOOLEAN  la 
U,V  :  RATIONAL; 
begin 

U  ;«  X; 

V  ;=>  Y; 

SAME-DENOMINATOR  (U,V); 
return  U.NUMERATOR  =«  V.NUMERATOH; 
and  EQUAL; 

(unction  r  IX, Y  :  INTEGER)  return  RATIONAL  la 
begin 

If  Y  >  0  then 

return  (NUMERATOR  =>  X,  DENOMINATOR  =>  Y); 

elec 

return  (NUMERATOR  =.  -X,  DENOMINATOR  Y); 
end  If; 
end  7"; 


function 

|X,Y 

(X,Y 

RATIONAL) 

return 

RATIONAL 

is  .. 

end 

function 

>1  (» 

RATIONAL) 

return 

RATIONAL 

Is  .. 

and 

H  ri  1 

function 

(X,Y 

RATIONAL) 

return 

RATIONAL 

la  .. 

and 

function 

7" 

(X,Y 

RATIONAL) 

return 

RATIONAL 

is  .. 

and 

7":' 

end  RATIONAL-NUMBERS; 


Referances:  declaration  j.1,  declarative  part  3.9,  elaboration  3.1  3.9,  exception  1 1,  exception  handler  1 1.2,  name 
4.1,  package  specification  7.1,  program  unit  6,  progr8m_«rror  exception  11,1,  sequence  of  statements  5,1,  subpro¬ 
gram  e.  variable  3.2.1,  visible  part  7.2 
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7.4  Privats  Typa  and  Dafarrad  Conitant  Daolarationa 


The  declaration  of  a  type  as  a  private  type  in  the  visible  part  of  a  package  sen/es  to  separate  the  i 
characteristics  that  can  be  used  directly  by  outside  program  units  (that  is,  the  logical  properties) 
from  other  characteristics  whose  direct  use  is  confined  to  the  package  (the  details  of  the  definition 
of  the  type  itself).  Deferred  constant  declarations  declare  constants  of  private  types. 

private_typo..deolaratlon  ;!«  j 

type  Identifier  [dl8crimlnant_.partl  la  [limited]  private; 

deferred_constent_deolar8tlon 

IdentiflerJIst  :  oonatant  type_mark; 

A  private  typo  declaration  la  only  allowed  as  a  declarative  item  of  the  visible  part  of  a  package,  or  .1 
as  the  generic  parameter  declaration  for  a  generic  formal  type  In  a  generic  formal  part. 

The  type  mark  of  a  deferred  conatant  declaration  must  denote  a  private  type  or  a  subtype  of  a  pri-  < 
vate  type;  a  deferred  conatant  declaration  and  the  declaration  of  the  corresponding  private  type 
must  both  be  declarative  items  of  the  visible  part  of  the  same  package.  A  deferred  constant  decla¬ 
ration  with  several  identifiers  Is  equivalent  to  a  sequence  of  single  deferred  constant  declarations 
as  explained  in  section  3.2. 

Examples  of  private  type  declarations:  & 

type  KEY  Is  private; 

type  FILE_NAME  Is  limited  private; 

Example  of  deferred  constant  declaration;  t 

NULL_KEY  :  oonstant  KEY; 


References:  constant  3.2.1,  dsclsrstlon  3.1,  declsrstlve  item  3.9,  deferred  conitant  74.3,  dlicrlmlnent  pert  3.7,1,  1 

generic  formal  part  12.1,  generic  formal  type  12.1,  generic  parameter  declaration  12.1,  Identifier  2.3,  identifier  Hat 
3.2.  limited  type  7.4.4,  package  7,  private  type  7.4.1,  program  unit  0,  lubtype  3.3.  type  3.3,  type  mark  3.3.2,  vlalble 
part  7,2 


7.4.1  Private  Typaa 


If  a  private  type  declaration  Is  given  In  the  visible  part  of  a  package,  then  a  corresponding  declara¬ 
tion  of  a  type  with  the  same  Identifier  must  appear  as  a  declarative  Item  of  the  private  part  of  the 
package.  The  corresponding  declaration  must  be  either  a  full  type  declaration  or  the  declaration  of 
a  task  type.  In  the  rest  of  this  section  explanations  are  given  In  terms  of  full  type  declarations;  the 
same  rules  apply  also  to  declarations  of  task  types. 
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j  A  private  typo  declaration  and  the  corresponding  full  type  declaration  define  a  single  typo.  The 
private  type  declaration,  together  with  the  visible  part,  define  the  operations  that  are  available  to 
outside  program  units  (see  section  7.4.2  on  the  operations  that  are  available  for  private  types).  On 
the  other  hand,  the  full  type  declaration  defines  other  operations  whose  direct  use  is  only  possible 
within  the  package  itself. 

3  If  the  private  type  declaration  Includes  a  discriminant  part,  the  full  declaration  must  include  a  dis¬ 
criminant  part  that  conforms  (see  6.3.1  for  the  conformance  rules)  and  its  type  definition  must  be  a 
record  type  definition.  Conversely,  If  the  private  type  declaration  does  not  include  a  discriminant 
part,  the  type  declared  by  the  full  type  declaration  (the  fult  type)  must  not  be  an  unconstrained  type 
v/ith  discriminants,  The  full  type  must  not  ho  an  unconstrained  array  type.  A  limited  type  (in  par¬ 
ticular  a  task  type)  Is  allowed  for  the  full  type  only  if  the  reserved  word  limited  appears  in  the 
private  typo  declaration  (see  7.4.4). 

4  Within  the  specification  of  the  package  that  declares  a  private  type  and  before  the  end  of  the  cor¬ 
responding  full  type  declaration,  a  restriction  applies  to  the  use  of  a  name  that  denotes  the  private 
type  or  a  subtype  of  the  private  type  and,  likewise,  to  the  use  of  a  nnme  that  denotes  any  type  or 
subtype  that  has  a  subcomponent  of  the  privote  type.  The  only  allowed  occurrences  of  such  a 
name  are  In  a  deferred  constant  declaration,  a  typo  or  subtype  declaration,  a  subprogram  specifica¬ 
tion,  or  an  entry  declaration;  moreover,  occurrences  within  derived  type  definitions  or  within  sim¬ 
ple  expressions  are  not  allowed. 

s  The  elaboration  of  a  private  type  declaration  creates  a  private  type.  If  the  private  type  declaration 
has  a  discriminant  part,  this  elaboration  Includes  that  of  the  discriminant  part,  The  eiaboration  of 
the  fuil  type  declaration  consists  of  the  eiaboration  of  the  type  definition;  the  discriminant  part,  if 
any.  Is  not  elaborated  (since  the  conforming  discriminant  part  of  the  private  type  declaration  has 
already  been  elaborated). 

Notes; 

t  It  follows  from  the  given  rules  that  neither  the  declaration  of  a  variable  of  a  private  type,  nor  the 
creation  by  an  allocator  of  an  object  of  the  private  type  are  allowed  before  the  full  declarntlon  of 
the  type.  Similarly  before  the  full  declaration,  the  name  of  the  private  type  cannot  be  used  In  a 
generic  Instantiation  or  In  a  representation  clause. 


;  References;  allocator  4,0,  array  typa  3.6,  conform  6,3.1,  declarative  Item  3.9,  deferred  constant  declaration  7,4,3, 
derived  typo  3.4,  discriminant  part  3,7.1,  elaboration  3.9,  entry  declaration  9.6,  espresalon  4.4,  full  type  declaration 
3,3,1 .  generic  Instantiation  12.3,  Identifier  2,3,  Incomplete  type  declaration  3.8.1 ,  limited  type  7.4.4,  name  4.1 ,  opora- 
tion  3.3,  package  7,  packago  specification  7.1,  private  part  7.2,  private  type  7.4,  private  typo  declaration  7.4,  record 
type  definition  3.7,  representation  clause  13.1,  reserved  word  2.9,  subcomponent  3,3,  subprogram  specification  6.1, 
subtype  3.3,  subtype  declaration  3.3,2,  type  3.3,  type  declaration  3.3.1.  type  definition  3.3.1,  unconstrained  array 
type  3.6,  variable  3.2.1,  visible  part  7.2 


7.4.2  Opsratlons  of  a  Privato  Typ* 


The  operations  that  are  implicitly  declared  by  a  private  type  declaration  Include  basic  operations. 
These  are  the  operations  involved  In  assignment  (unless  the  reserved  word  limited  appears  in  the 
declaration),  membership  tests,  selected  components  for  the  selection  of  any  discriminant, 
qualification,  and  explicit  conversions. 
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For  a  private  type  T,  the  basic  operations  also  Include  the  attributes  T'BASE  (see  3,3.3)  and  T'SIZE 
(see  13.7.2).  For  an  object  A  of  a  private  type,  the  basic  operations  include  the  attribute 
A’CONSTRAINED  If  the  private  type  has  discriminants  (sea  3.7.4),  and  in  any  case,  the  attributes 
A'SIZE  anH  A'ADDRESS  (see  13.7.2). 

Finally,  the  operations  Implicitly  declared  by  a  private  type  declaration  include  the  predefined  com¬ 
parison  for  equality  and  Inequality  unless  the  reserved  word  limited  appears  in  the  private  type 
declaration. 

The  above  operations,  together  with  subprograms  that  have  a  parameter  or  result  of  the  private 
type  and  that  are  declared  In  the  visible  part  of  the  package,  are  the  only  operations  from  the 
package  that  are  available  outside  the  package  for  the  private  type. 

Within  the  package  that  declares  the  private  type,  the  additional  operations  Implicitly  declared  by 
the  full  type  declaration  are  also  available.  However,  the  redefinition  of  these  Implicitly  declared 
operations  Is  allowed  within  the  same  declarative  region,  including  between  the  private  type 
declaration  and  the  corresponding  full  declaration.  An  explicitly  declared  subprogram  hides  an 
implicitly  declared  operation  that  has  the  same  parameter  and  result  type  profile  (this  Is  only  possi¬ 
ble  if  the  implicitly  declared  operation  Is  a  derived  subprogram  or  a  predefined  operator). 

If  a  composite  type  has  subcomponents  of  a  private  type  and  Is  declared  outside  the  package  that 
declares  the  private  type,  then  the  operations  that  are  Implicitly  declared  by  the  declaration  of  the 
composite  type  include  all  operations  that  only  depend  on  the  characteristics  that  result  from  the 
private  type  declaration  alone.  (For  example  the  operator  <  Is  not  Included  for  a  one-dimenslonal 
array  type.) 

If  the  composite  type  la  Itself  declared  within  the  package  that  declares  the  private  type  (Including 
within  an  inner  package  or  generic  package),  then  additional  operations  that  depend  on  tfie 
characteristics  of  the  full  type  are  Implicitly  declared,  as  required  by  the  rules  applicable  to  the 
composite  type  (for  example  the  operator  <  Is  declared  for  a  one-dimenslonal  array  type  If  the  full 
type  is  discrete).  These  additional  operations  are  Implicitly  declared  at  the  earliest  place  within  the 
immediate  scope  of  the  composite  type  and  after  the  full  type  declaration. 

The  same  rules  apply  to  the  operations  that  are  implicitly  declared  for  an  access  type  whose 
designated  type  is  a  private  type  or  a  type  declared  by  an  Incomplete  type  declaration. 

For  every  private  type  or  subtype  T  the  following  attribute  Is  defined; 

T'CONSTRAINED  Yields  the  value  FALSE  If  T  denotes  an  unconstrained  nonformal  private  type 
with  discriminants;  also  yields  the  value  FALSE  If  T  denotes  a  generic  formal 
private  type,  and  the  associated  actual  subtype  is  either  an  unconstrained  type 
with  discriminants  or  an  unconstrained  array  type;  yields  the  value  TRUE 
otherwise.  The  value  of  this  attribute  is  of  the  predefined  type  BOOLEAN . 


Note; 

A  private  type  declaration  and  the  corresponding  full  type  declaration  define  two  different  views  of 
one  and  the  same  type.  Outside  of  the  defining  package  the  cheracteristics  of  the  type  are  those 
defined  by  the  visible  part.  Within  these  outside  program  units  the  type  is  just  a  private  type  and 
any  language  rule  that  applies  only  to  another  class  of  typos  does  not  apply.  The  fact  that  (he  full 
declaration  might  Implement  the  private  type  with  a  typo  of  a  particular  class  (for  example,  as  an 
array  type)  Is  only  relevant  within  the  package  Itself. 
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The  consequences  of  this  actual  Implementation  are,  however,  valid  everywhere.  For  example: 
any  default  initialization  of  components  takes  place;  the  attribute  SIZE  provides  the  size  of  the  full 
type;  task  dependence  rules  still  apply  to  components  that  are  task  objects. 

Example; 

package  KEY_MANAQER  It 
typa  KEY  it  private; 

NULL.KEY  :  constant  KEY; 
procedure  GET.KEYIK  ;  out  KEY); 
function  "<“  (X.  '  KEY)  return  BOOLEAN: 

private 

type  KEY  it  new  NATURAL: 

NULL.KEY  ;  conatant  KEY  0; 
end; 

package  body  KEY_MANAGER  la 
LAST._KEY  i  KEY  0; 
procedure  QET_KEY(K  ;  out  KEY)  it 
begin 

LAST.KEY  LAST.KEY  +  1; 

K  LAST-KEY; 
and  GET-KEY; 

function  X"  (X,  Y  !  KEY)  return  BOOLEAN  la 
begin 

return  INTEQER(X)  <  INTEQERIY); 
end  X": 

end  KEY-MANAGER; 

Notes  on  the  example; 

Outside  of  the  package  KEY-MANAGER ,  the  operations  available  for  objects  of  type  KEY  Include 
assignment,  the  comparison  for  equality  or  Inequality,  the  procedure  GET-KEY  and  the  operator 
"<";  they  do  not  Include  other  relational  operators  such  as  or  arithmetic  operators. 

The  explicitly  declared  operator  "<"  hides  the  predefined  operator  "<"  Implicitly  declared  by  the 
full  type  declaration.  Within  the  body  of  the  function,  an  explicit  conversion  of  X  and  Y  to  the  type 
INTEGER  is  necessary  to  Invoke  the  "<"  operator  of  this  typo.  Alternatively,  the  result  of  the  func¬ 
tion  could  be  written  as  not  (X  >=  Y),  since  the  operator  ">="  Is  not  redefined. 

The  value  of  the  variable  LAST-KEY,  declared  In  the  package  body,  remains  unchanged  between 
calls  of  the  procedure  QET_KEY .  (See  also  the  Notes  of  section  7.3.) 

Referancas;  nislonmant  B,2,  ottrlbuts  4.1,4,  bttlo  optratlon  3.3.3.  componsnt  3.3,  compotita  tyna  3.3,  convartlon 
4.6.  declaration  3.1,  declarativa  region  8.1,  derived  lubprogram  3.4,  derived  type  3.4,  dlmentilon  3.6.  discriminant 
3.3.  equality  4.B.2,  full  type  7.4.1 ,  full  type  declaration  3.3.1,  hiding  0.3,  Immediate  scope  6.2,  Implicit  doclarailon  3.1 , 
Incomplotn  type  doclarivtion  3.8.1,  membership  teat  4.6.  operation  3.3.  package  7,  parameter  of  a  subprogram  6.2, 
predefined  function  8,6,  predefined  operator  4.6,  private  typo  7.4,  private  type  declaration  7,4,  program  unit  6, 
quallficntinn  4.7.  relational  oparator  4.6,  selected  component  4.1.3,  subprogram  6,  task  dependence  9.4,  visible  part 
7  2 


7.4.2  Operations  of  a  Private  Type 
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Packages 


7.4.3  Dafarrsd  Constanta 


If  a  deferred  constant  declaration  Is  given  In  the  visible  part  of  a  package  then  a  constant  declara¬ 
tion  (that  Is,  an  object  declaration  declaring  a  constant  object,  with  an  explicit  Initialization)  with 
the  same  identifier  must  appear  as  a  declarative  item  of  the  private  pert  of  the  package.  This 
object  declaration  is  called  the  full  declaration  of  the  deferred  constant,  The  type  mark  given  In  the 
full  declaration  must  conform  to  that  given  In  the  deferred  constant  declaration  (see  6.3.1 ).  Multi¬ 
ple  or  single  declarations  are  allowed  for  the  deferred  and  the  full  declarations,  provided  that  the 
equivalent  single  declarations  conform. 

Within  the  specification  of  the  package  that  declares  a  deferred  constant  and  before  the  end  of  the 
corresponding  full  declaration,  the  use  of  a  name  that  denotes  the  deferred  constant  is  only 
allowed  In  the  default  expression  for  a  record  component  or  for  a  formal  parameter  (not  fur  a 
generic  formal  parameter). 

The  elaboration  of  a  deferred  constant  declaration  has  no  other  effect. 

The  execution  of  a  program  Is  erroneous  if  It  attempts  to  use  the  value  of  a  deferred  constant 
before  the  elaboration  of  the  corresponding  full  declaration. 

Note; 

The  full  declaration  for  a  deferred  constant  that  has  a  given  private  type  must  not  appear  before 
the  corresponding  full  type  declaration.  This  Is  a  consequence  of  the  rules  defining  the  allowed 
uses  of  a  name  that  denotes  a  private  type  (see  7,4,1). 

References;  conform  6.3,1,  constant  declaration  3.7..1,  daoleratlva  Item  3.0,  defoult  expression  for  a  discriminant 
3.7.1.  deferred  oonatant  7.4,  deferred  oonatent  declaration  7.4,  elaboration  has  no  other  effect  3.1,  torniel  parameter 
e.1,  generic  formal  parameter  12.1  12.3,  Identifier  2.3,  ob|ect  deeleretlon  3.2.1,  package  7,  package  epeolfloatlon  7.1, 
private  part  7.2,  record  component  3.7,  type  mark  3.3.2,  visible  part  7.2 


7.4.4  Limitsd  Typos 

A  limited  type  is  a  type  for  which  neither  assignment  nor  the  predefined  comparison  for  equality 
and  Inequality  Is  Implicitly  declared, 

A  private  type  declaration  that  Includes  the  reserved  word  limitod  declares  a  limited  type.  A  task 
type  Is  a  limited  type,  A  type  derived  from  a  limited  type  Is  Itself  a  limited  typo.  Finally,  a  com¬ 
posite  type  is  limited  If  the  type  of  any  of  Its  subcomponents  is  limited. 

The  operations  available  for  a  private  typo  that  la  limited  are  es  given  In  section  7.4.2  for  private 
types  excopt  for  the  absence  of  assignment  and  of  a  predefined  comparison  for  equality  and  Ine¬ 
quality. 

For  a  formal  parameter  whose  type  Is  limited  and  whose  declaration  occurs  In  an  explicit  sub¬ 
program  declaration,  the  mode  out  Is  only  allowed  If  this  type  is  private  and  the  subprogram 
declaration  occurs  within  the  visible  pert  of  the  packege  that  declares  the  private  type.  The  same 
holds  for  formal  parameters  of  entry  declarations  and  of  generic  procedure  declarations.  The  cor¬ 
responding  full  type  must  not  be  limited  If  the  mode  out  Is  used  for  any  such  formal  parameter. 
Otherwise,  the  corresponding  full  type  Is  allowed  (but  not  required)  to  be  c  limited  type  (In  par¬ 
ticular,  It  Is  allowed  to  be  a  task  type).  If  the  full  type  corresponding  to  a  limited  private  type  Is  not 
Itself  limited,  then  assignment  for  the  type  Is  available  within  the  package,  but  not  outside. 
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The  followinn  are  consequences  of  the  rules  for  limited  types; 

•  An  explicit  initialization  Is  not  allowed  In  an  object  declaration  If  the  type  of  the  object  is 
limited. 

•  A  default  expression  Is  not  allowed  In  a  component  declaration  If  the  type  of  the  record  com¬ 
ponent  Is  limited. 

•  An  explicit  initial  value  Is  not  allowed  In  an  allocator  If  the  designated  type  Is  limited. 


•  A  generic  formal  parameter  of  mode  in  must  not  be  of  a  limited  type. 

Notes; 

The  above  rules  do  not  exclude  a  default  expression  for  a  formal  parameter  of  a  limited  type;  they 
do  not  exclude  a  deferred  constant  of  a  limited  type  If  the  full  type  is  not  limited.  An  explicit 
declaration  of  an  equality  operator  Is  allowed  for  a  limited  type  (see  6.7). 

Aggregates  are  not  available  for  a  limited  composite  type  (see  3.6.2  and  3,7.4).  Catenation  Is  not 
available  for  a  limited  array  type  (see  3.6.2). 

Example: 

paekage  LO.PACKAQE  la 

type  FILE.NAME  Is  limited  private; 

procedure  OPEN  (P  i  In  out  FILE-NAME); 

procedure  CLOSE  (F  ;  In  out  FILE-NAME); 

procedure  READ  (F  !  In  FILE-NAME;  ITEM  ;  out  INTEGER); 

procedure  WRITE  (F  i  In  PILE-NAME;  ITEM  ;  In  INTEGER); 

private 

type  FILE-NAME  Is 
record 

INTERNAL-NAME  :  INTEGER  i-  0; 
end  record; 
end  LO_PACKAGE; 

package  body  LO-PACKAQE  is 
LIMIT  ;  constant  200; 

type  PILE-DESCRIPTOR  Is  record  ...  end  record; 

DIRECTORY  :  array  (1  ..  LIMIT)  of  FILE-DESCRIPTOR; 

prooadura  OPEN  (F  :  in  out  FILE-NAME)  Is  ...  end; 

procedure  CLOSE  (F  :  In  out  FILE-NAME)  Is  ...  end; 

procedure  READ  (F  :  In  FILE-NAME;  ITEM  :  out  INTEGER)  Is  ...  end; 

p'rooedure  WRITE  (F  :  In  FILE-NAME;  ITEM  ;  in  INTEGER)  Is  ...  end; 

begin 

end  LO-PACKAQE: 

Notes  on  the  example: 

In  the  example  above,  an  outside  subprogram  making  use  of  LO-PACKAGE  may  obtain  a  file 
name  by  calling  OPEN  and  later  use  it  In  calls  to  READ  and  WRITE.  Thus,  outside  the  package,  a 
file  name  obtained  from  OPEN  acts  as  a  kind  of  password;  Its  Internal  properties  (such  as 
containing  a  numeric  value)  are  not  known  and  no  other  operatlonr  (such  as  addition  or  com¬ 
parison  of  Internal  names)  can  bo  performed  on  a  file  name. 


7.4.4  Limited  Types 
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This  example  Is  characteristic  of  any  case  where  complete  control  over  the  operations  of  a  type  Is 
desired,  Such  packages  serve  a  dual  purpose.  They  prevent  a  user  from  making  use  of  the  internal 
structure  of  the  type.  They  also  Implement  the  notion  of  an  encapsulated  typo  where  the  only 
operations  on  the  type  are  those  given  in  the  package  specification. 


References:  aggregate  4.3,  allocator  4,8,  oaaignment  B.2.  catenation  operator  4.B,  component  declaration  3.7, 
component  type  3.3,  compoalta  type  .3,3,  default  expretUon  for  a  discriminant  3.7,  deferred  constant  7.4.3,  derived 
type  3,4,  designate  3,0,  discriminant  specification  3,7.1,  equality  4,6.2,  formal  parameter  6,1 ,  full  type  7,4,1 ,  full  type 
declaration  3.3.1,  generic  formal  parameter  12.11 2.3,  Implicit  declaration  3.1,  Initial  value  3  2.1,  mode  12  1,1,  object 
3.2,  operation  3.3,  package  7,  predefined  operator  4,F,  private  type  7.4,  private  type  declaration  7,4,  record  compo¬ 
nent  3,7,  record  type  3,7,  relational  operator  4,6,  subcomponent  3.3,  subprogram  6,  task  type  9,1  9,2,  type  3,3 


7.6  Example  of  a  Table  Management  Packege 


Tho  following  example  illustrates  the  use  of  packages  In  providing  high  level  procedures  with  a 
simple  Interface  to  the  user. 

The  problem  la  to  define  a  table  management  package  for  Inserting  and  retrieving  Items.  Tho 
Items  are  inserted  Into  the  table  as  they  are  supplied.  Each  Inserted  Item  has  an  order  number.  The 
Items  are  retrieved  according  to  their  order  number,  where  the  Item  with  the  lowest  order  number 
Is  retrieved  first. 

From  the  user's  point  of  view,  the  package  !s  quite  simple.  There  la  a  type  called  ITEM  designating 
table  Items,  a  procedure  INSERT  for  Inserting  items,  and  a  procedure  RETRIEVE  for  obtaining  the 
Item  with  the  lowest  order  number.  There  la  a  special  Item  NULL.ITEM  that  Is  returned  when  the 
table  Is  empty,  and  an  exception  TABLE^FULL  which  Is  raised  by  INSERT  If  the  table  Is  already  full. 

A  sketch  of  such  a  package  Is  given  below.  Only  the  specification  of  the  package  Is  exposed  to  the 
user. 


package  TABLE..MANAQER  le 

type  ITEM  Is 
record 

ORDER,.NUM  :  INTEGER; 

ITEM.CODE  ;  INTEGER; 

QUANTITY  I  INTEGER; 

ITEM.TYPE  ;  CHARACTER: 

end  record; 

NUIUTEM  :  constant  ITEM  :» 

(ORDER_NUM  |  ITEM^CODE  |  QUANTITY  »>  0,  ITEM_TYPE  ->  '  '); 

procedure  INSERT  (NEW.ITEM  ;  In  ITEM); 
procedure  RETRIEVE  (FIRST  .ITEM  ;  out  ITEM); 

TABLE.,.FULL  :  exception;  -  raised  by  INSERT  when  table  full 
end; 
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The  details  of  implementing  such  packages  can  be  quite  complex;  in  this  case  they  involve  a  two- 
way  linked  table  of  Internal  Items.  A  local  housekeeping  procedure  EXCHANGE  is  used  to  move  an 
internal  item  between  the  busy  and  the  free  lists.  The  Initial  table  linkages  are  established  by  the 
initialization  part.  The  package  body  need  not  be  shown  to  the  users  of  the  package. 

package  body  TABLE^MANAGER  la 
SIZE  :  constant  2000; 
subtype  INDEX  Is  INTEGER  range  0  ..  SIZE; 

type  INTERNALJTEM  Is 
record 

CONTENT  :  ITEM; 

SUCC  :  INDEX; 

PRED  :  INDEX; 

end  record; 

TABLE  ;  array  (INDEX)  of  INTERNAUTEM; 

FIRST.BUSYJTEM  :  INDEX  :=  0; 

FIRST_FREEJTEM  :  INDEX  :=  1; 

function  FREE_LIST_EMPTY  return  BOOLEAN  is  ...  end; 
function  BUSY..LIST_EMPTY  return  BOOLEAN  Is  ...  end; 
procedure  EXCHANGE  (FROM  :  In  INDEX:  TO  :  In  INDEX)  Is  ...  end; 

procedure  INSERT  (NEW_ITEM  ;  in  ITEM)  is 
begin 

if  FREE_LIST_EMPTY  then 
raise  TABLE_FULL; 
end  If; 

"  remaining  code  for  INSERT 
end  INSERT; 

procedure  RETRIEVE  (FIRSTJTEM  :  out  ITEM)  Is  ...  end; 

begin  ^ 

"  initialization  of  the  table  linkages 
end  TABLE., MANAGER; 


7.6  Example  of  a  Text  Handling  Package 


This  example  illustrates  a  simple  text  handling  package.  The  users  only  have  access  to  the  visible 
part:  the  Implementation  Is  hidden  from  them  in  the  private  part  and  the  package  body  (not 
shown). 

From  a  user's  point  of  view,  a  TEXT  Is  a  variable-length  string,  Each  text  object  has  a  maximum 
length,  which  must  be  given  when  the  object  Is  declared,  and  a  current  value,  which  Is  a  string  of 
some  length  between  zero  and  the  maximum,  The  maximurri  possible  length  of  a  text  object  is  an 
implementation-djfined  constant. 

The  package  defines  first  the  necessary  types,  then  functions  that  return  some  characteristics  of 
objects  of  the  type,  then  the  conversion  functions  between  texts  and  the  predefined  CHARACTER 
and  STRING  types,  and  finally  some  of  the  standard  operations  on  varying  strings,  Most  operations 
are  overloaded  on  strings  and  characters  as  well  as  on  the  type  TEXT,  in  order  to  minimize  the 
number  of  explicit  conversions  the  user  has  to  write. 


7.6  Example  of  a  Text  Handling  Package 
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package  TEXT.HANDLER  ia  4 

MAXIMUM  ;  oonatant  ;=  SOME_VALUE;  -  Implementation-defined 
eubtype  INDEX  ia  INTEGER  range  0  ..  MAXIMUM; 

type  TEXTIMAXIMUM.LENGTH  :  INDEX)  Is  limited  private; 


function 

LENGTH 

(T 

TEXT)  return 

INDEX; 

function 

VALUE 

(T 

TEXT)  return 

STRING: 

function 

EMPTY 

(T 

TEXT)  return 

BOOLEAN; 

function 

T0_TEXT 

(S 

STRING; 

MAX  :  INDEX) 

return  TEXT; 

-  m&ximi'iTi  length 

function 

T0_TEXT 

(C 

CHARACTER; 

MAX  :  INDEX) 

return  TEXT, 

function 

TO_TEXT 

(S 

STRING) 

return  TEXT; 

“  .naxl'num 

length  S'LENGTH 

function 

TO_TEXT 

(C 

CHARACTER) 

return  TEXT: 

function  "&■’  (LEFT 

TEXT; 

RIGHT 

TEXT) 

return 

TEXT; 

function  (LEFT 

TEXT; 

RIGHT 

STRING) 

return 

TEXT; 

function  (LEFT 

STRING; 

RIGHT 

TEXT) 

return 

TEXT; 

function  '81”  (LEFT 

TEXT; 

RIGHT 

CHARACTER) 

return 

TEXT; 

function  "El"  (LEFT 

CHARACTER;  RIGHT 

TEXT) 

return 

TEXT; 

functlon 
function  "<" 
function  "<=" 
function 
function  ">=" 


(LEFT 

(LEFT 

(LEFT 

(LEFT 

(LEFT 


TEXT:  RIGHT 
TEXT;  RIGHT 
TEXT;  RIGHT 
TEXT;  RIGHT 
TEXT;  RIGHT 


TEXT)  return  .  OOLEAN: 
TEXT)  return  BOOLEAN: 
TEXT)  return  BOOLEAN: 
TEXT)  return  BOOLEAN; 
TEXT)  return  BOOLEAN; 


procedure  SET  (OBJECT 
procedure  SET  (OBJECT 
procedure  SET  (OBJECT 

procedure  APPEND  (TAIL 
procedure  APPEND  (TAIL 
procedure  APPEND  (TAIL 


In  out  TEXT;  VALUE 
in  out  TEXT;  VALUE 
In  out  TEXT;  VALUE 


procedure  AMEND  (OBJECT 
procedure  AMEND  (OBJECT 
procedure  AMEND  (OBJECT 


In  TEXT; 

In  STRING; 

In  CHARACTER: 

In  out  TEXT 
in  out  TEXT 
In  out  TEXT 


TO 

TO 

TO 


in  TEXT); 
in  STRING); 

In  CHARACTER); 

:  In  out  TEXT); 

:  In  out  TEXT); 

:  In  out  TEXT): 


BY  :  In  TEXT;  POSITION 

BY  :  In  STRING;  POSITION 
BY  :  In  CHARACTER;  POSITION 


In  INDEX); 
in  INDEX); 
In  INDEX); 


amend  replaces  part  of  the  object  by  the  given  text,  string,  or  character 
starting  at  the  given  position  in  the  object 


function  LOCATE  (FRAGMENT 
function  LOCATE  (FRAGMENT 
function  LOCATE  (FRAGMENT 


TEXT;  WITHIN 

STRING;  WITHIN 

CHARACTER:  WITHIN 


TEXT)  return  INDEX; 
TEXT)  return  INDEX; 
TEXT)  return  INDEX; 


all  return  0  If  the  fragment  la  not  located 


prlvato 

type  TEXT(MAXIMUM_LENQTH  :  INDEX)  Is 
record 

POS  :  INDEX  0; 

V.LUE  :  STRINQd  MAXIMUM_LENGTH); 
end  record; 
end  TEXT_HANDLER; 
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Example  of  use  of  the  text  handling  package: 

A  program  opens  an  output  file,  whose  name  is  supplied  by  the  string  NAME  .  This  string  has  the 
form 


(DEVICE  :)  (FILENAME  (.EXTENSION)] 

There  are  standard  defaults  for  device,  filename,  and  extension,  The  user-supplied  name  is  passed 
to  EXPAND_FILE_NAME  as  a  parameter,  and  the  result  is  the  expanded  version,  with  any  necessary 
defaults  added. 


function  EXPAND_F'LE_NAME  (NAME  :  STRING)  return  STRING  Is 
use  TEXT_.HANDLER; 


DEFAULT_DEVICE  I  constant  STRING 
DEFAULT_FILE_NAME  ;  constant  STRING 
DEFAULT.EXTENSION  ;  constant  STRING 


"SYr; 

"RESULTS"; 

".DAT"; 


MAXIMUM-FILE_NAME_LENQTH  .  constant  INDEX  ;=  SOME_APPROPRIATE,.VALUE; 
FILE_NAME  ;  TEXT|MAXIMUM,.FILE_NAME_LENQTH); 


begin 

SET(FILE_NAME,  NAME); 

If  EMPTY(FILE_NAME)  than 

SET(FILE„NAME.  DEFAULT_FILE..NAME); 
end  if; 

if  LOCATE!';',  FILE_NAME)  =  0  then 

SET( FILE-NAME,  DEFAULT-DEVICE  &  FILE-NAME); 
end  If; 

if  LOCATEC.',  FILE-NAME)  «  0  then 
APPENDIDEFAULT-EXTENSION,  TO  =>  FILE-NAME); 
end  if; 

ruturn  VALUE(FILE_NAME): 
end  EXPAN D_FILE_N AM E; 


7.6  Example  of  a  Text  Handling  Package 
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8.  Vialbility  Rulsi 


The  rules  defining  the  scope  of  declarations  and  the  rules  defining  which  identifiors  are  visible  at  i 
various  points  in  the  text  of  the  program  are  described  in  this  chapter.  The  formulation  of  these 
rules  uses  the  notion  of  a  declarative  region. 

References:  declaration  3. 1 ,  declarative  region  8.1 ,  Identifier  2.3,  scope  8.2,  visibility  8.3  j 


8.1  Declarative  Region 


A  declarative  region  is  a  portion  of  the  program  text.  A  single  declarative  region  Is  formed  by  the  i 
text  of  each  of  the  following: 

e  A  subprogram  declaration,  a  package  declaration,  a  task  declaration,  or  a  generic  declaration,  i 
together  with  the  corresponding  body.  If  any.  If  the  body  is  a  body  stub,  the  declarative  region 
also  includes  the  corresponding  subunit.  If  the  program  unit  has  subunits,  they  are  also 
Included. 

e  An  entry  declaration  together  with  the  corresponding  accept  statements.  3 

•  A  record  type  declaration,  together  with  a  corresponding  private  or  Incomplete  type  declara-  < 
tion  if  any,  and  together  with  a  corresponding  record  representation  clause  If  any. 

e  A  renaming  declaration  that  includes  a  formal  part,  or  a  generic  parameter  declaration  that  d 
includes  either  a  formal  part  or  a  discriminant  part. 

e  A  block  statement  or  a  loop  statement.  « 

In  each  of  the  above  cases,  the  declarative  region  is  said  to  be  associated  with  the  corresponding  ? 
declaration  or  statement.  A  declaration  is  said  to  occur  Immediately  within  a  declarative  region  If 
this  region  is  the  Innermost  region  that  encloses  the  declaration,  not  counting  the  declarative 
region  (if  any)  associated  with  the  declaration  Itself. 

A  declaration  that  occurs  Immediately  within  a  declarative  region  Is  said  to  be  local  to  the  region.  a 
Declarations  In  outer  (enclosing)  regions  are  said  to  be  global  to  an  Inner  (enclosed)  declarative 
t\  glon.  A  local  entity  Is  one  declared  by  a  local  declaration;  a  global  entity  Is  one  declared  by  a 
global  declaration. 

Some  of  the  above  forms  of  declarative  region  include  several  disjoint  parts  (for  example,  other  b 
declarative  Itams  can  be  between  the  declaration  of  a  package  and  Its  body).  Each  declarative 
region  Is  nevertheless  considered  as  a  (logically)  continuous  portion  of  the  program  text.  Hence  If 
anv  rule  dafinas  a  portion  of  ixt  as  the  text  that  extends  from  some  specific  point  of  a  declarative 
region  tc  the  onH  of  this  region,  then  this  portion  is  the  corresponding  subset  of  the  declarative 
roj  t  I .  -  ,.  It  does  not  Include  Intermediate  declarative  Items  between  the  two  parts  of  a 
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Notes: 

As  defined  in  section  3.1,  the  term  deciaration  includes  basic  declarations,  Implicit  declarations, 
and  those  declarations  that  are  part  of  basic  declarations,  for  example,  discriminant  and  parameter 
specifications.  It  follows  from  the  definition  of  a  declarative  region  that  a  discriminant  specification 
occurs  immediately  within  the  region  associated  with  the  enclosing  record  type  declaration. 
Similarly,  a  parameter  specification  occurs  Immediately  within  the  region  associated  with  the 
enclosing  subprogram  body  or  accept  statement. 

The  package  STANDARD  forma  a  declarative  region  which  encloses  all  library  units;  the  implicit 
declaration  of  each  library  unit  Is  assumed  to  occur  immediately  within  this  package  (see  sections 
8.6  and  10.1.1). 

Declarative  regions  can  be  nested  within  other  declarative  regions.  For  example,  subprograms, 
packages,  task  units,  generic  units,  and  block  statements  can  be  nested  within  each  other,  and  can 
contain  record  type  declarations,  loop  statements,  and  accept  statements. 


References:  acespt  itatemant  9.6,  bailc  declaration  3.1,  block  atatamant  6.B,  body  atub  10.2,  declaration  3.1, 
dlacrlmlnant  part  3.7.1,  dtacrimlnant  apaolflcatlon  3.7.1,  entry  declaration  9.5,  formal  part  6.1,  generic  budy  12.2, 
generic  declaration  12.1,  generic  parameter  declaration  12.1,  Implicit  declaration  3.1,  Incomplete  type  declaration 
3.8.1,  library  unit  10.1,  loop  atatamant  6,6,  package  7,  paokaga  body  7.1,  package  declaration  7.1,  parameter 
apeclflcatlon  6.1,  private  type  declaration  7.4,  record  rapraaantatlon  clauaa  13.4,  record  type  3.7,  renaming  declara¬ 
tion  8.5,  standard  package  8.6,  aubprogram  body  6,3,  subprogram  declaration  6,1,  subunit  10.2,  task  body  9,1,  task 
declaration  9.1,  task  unit  9 


8.2  Scopo  of  Ooolaratlons 


For  each  form  of  declaration,  the  language  rules  define  a  certain  portion  of  the  program  text  called 
the  scope  of  the  declaration.  The  scope  of  a  declaration  Is  also  called  the  scope  of  any  ontity 
declared  by  the  declaration.  Furthermore,  If  the  declaration  aasoclatua  some  notation  with  a 
declared  entity,  this  portion  of  the  text  is  also  called  the  scope  of  this  notation  (either  an  Identifier, 
a  character  literal,  an  operator  symbol,  or  the  notation  for  a  basic  operation).  Within  the  scope  of 
an  entity,  and  only  there,  there  are  places  where  It  is  legal  to  use  the  associated  notation  In  order 
to  refer  to  the  declared  entity.  These  places  are  defined  by  the  rules  of  visibility  and  overloading. 

The  scope  of  a  declaration  that  occurs  Immediately  within  a  declarative  region  extends  from  the 
beginning  of  the  declaration  to  the  end  of  the  declarative  region;  this  part  of  the  scope  of  a  declara¬ 
tion  Is  called  the  Immediate  scope.  Furthermore,  for  any  of  the  declarations  listed  below,  the  scope 
of  the  declaration  extends  beyond  the  Immediate  scope: 

(a)  A  declaration  that  occurs  Immediately  within  the  visible  part  of  a  package  declaration, 

(b)  An  entry  declaration, 

(c)  A  component  declaration. 

(d)  A  discriminant  specification. 

(e)  A  parameter  specification. 

(f)  A  generic  parameter  declaration. 
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In  each  of  these  cases,  the  given  declaration  occurs  Immediately  within  some  enclosing  declara¬ 
tion,  and  the  scope  of  the  given  declaration  extends  to  the  end  of  the  scope  of  the  enclosing 
declaration. 

In  the  absence  of  a  subprogram  declaration,  the  subprogram  specification  given  In  the  subprogram 
body  or  In  the  body  stub  acts  as  the  declaration  and  rule  (e)  applies  also  in  such  a  case. 

Note: 

The  above  scope  rules  apply  to  all  forms  of  declaration  defined  by  section  3.1 ;  In  particular,  they 
apply  also  to  implicit  declarations.  Rule  (a)  applies  to  a  package  declaration  and  thus  not  to  the 
package  specification  of  a  generic  declaration.  For  nested  declarations,  the  rules  (a)  through  (f) 
apply  at  each  level.  For  example,  If  a  task  unit  Is  declared  in  the  visible  part  of  a  package,  the  scope 
of  an  entry  of  the  task  unit  axtends  to  the  end  of  the  scope  of  the  task  unit,  that  Is,  to  the  end  of  the 
scope  of  the  enclosing  package.  The  scope  of  a  use  clause  Is  defined  In  section  8.4. 


References;  bailo  operation  3.3.3,  body  stub  10.2,  character  literal  2.6,  component  declaration  3.7,  declaration  3,1, 
declarative  region  8.1,  dliorlmlnant  apaclfloatlon  3.7.1,  entry  declaration  9.5,  axtende  8.1,  generic  declaration  12.1, 
generic  parameter  declaration  12.1,  Identifier  2,3,  Implicit  declaration  3.1,  occur  Immediately  within  8.1,  operator 
symbol  6.1,  overloading  6.6  8.7,  package  declaration  7.1,  package  apscificatlon  7,1,  parameter  specification  6,1, 
record  type  3.7,  renaming  declaration  8.6,  subprogram  body  6.3,  subprogram  declaration  6.1,  teak  declaration  9.1, 
task  unit  9,  type  declaration  3.3.1,  use  clauas  8.4,  vlalbillty  8.3,  visible  part  7.2 


8.3  Visibility 


The  meaning  of  the  ooourrenoe  of  an  Identifier  at  a  given  place  In  the  text  Is  defined  by  the  vlalbillty 
rules  and  also,  in  the  case  of  overloaded  deolaratloris,  by  the  overloading  rules.  The  identifiers  con¬ 
sidered  in  this  chapter  Include  any  identifier  other  than  a  reserved  word,  an  attribute  designator,  a 
pragma  Identifier,  the  identifier  of  a  pragma  argument,  or  an  identifier  given  as  a  pragma  argu¬ 
ment.  The  places  considered  In  this  chapter  are  those  whore  a  lexical  element  (such  as  an  Iden¬ 
tifier)  occurs.  The  overloaded  declarations  considered  In  this  chapter  are  those  for  subprograms, 
enumeration  literals,  and  single  entries. 

For  each  Identifier  and  at  each  place  in  the  text,  the  visibility  rules  determine  a  set  of  declarations 
(with  this  Identifier)  that  define  possible  meanings  of  an  occurrence  of  the  Identifier.  A  deciaratlon 
ir  said  to  be  visible  at  a  given  place  In  the  text  when,  according  to  the  visibility  rules,  the  declara¬ 
tion  defines  a  possible  meaning  of  this  occurrence.  Two  cases  arise. 

e  The  visibility  rules  determine  »t  most  one  possible  meaning.  In  such  a  case  the  visibility  rules 
are  sufficient  to  determine  the  deciaratlon  defining  the  meaning  of  the  occurrence  of  the  Iden¬ 
tifier,  or  In  the  absence  of  such  a  declaration,  to  determine  that  the  occurrence  la  not  legal  at 
the  given  point. 

•  The  visibility  rules  determine  more  then  one  possible  meaning.  In  such  a  case  the  occurrence 
of  the  identifier  is  legal  at  this  point  if  and  only  If  exectly  one  visible  declaration  Is  acceptable 
for  the  overloading  rules  In  the  given  context  (see  section  6.6  for  the  rules  of  overloading  and 
section  8.7  for  the  context  used  for  overload  resolution). 
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A  declaration  is  only  visible  within  a  certain  part  of  its  scope;  this  part  starts  at  the  end  of  the 
declaration  except  In  a  package  specification,  In  which  case  It  starts  at  the  reserved  word  is  given 
after  the  Identifier  of  the  package  specification.  (This  rule  applies,  In  particular,  for  implicit 
declarations.) 

Visibility  Is  either  by  selection  or  direct.  A  declaration  Is  visible  by  selection  at  places  that  are 
defined  as  follows. 

(a)  For  a  declaration  given  In  the  visible  part  of  a  package  declaration;  at  the  place  of  the  selector 
after  the  dot  of  an  expanded  name  whose  prefix  denotes  the  package. 

(b)  For  an  entry  declaration  of  a  given  task  type:  at  the  place  of  the  selector  after  the  dot  of  a 
selected  component  whose  prefix  Is  appropriate  for  the  task  type. 

(c)  For  a  component  declaration  of  a  given  record  type  declaration:  at  the  place  of  the  selector 
after  the  dot  of  a  selected  component  whose  prefix  Is  appropriate  for  the  type;  also  at  the 
place  of  a  component  simple  name  (before  the  compound  delimiter  »>)  In  a  named  compo¬ 
nent  association  of  an  aggregate  of  the  type. 

(d)  For  a  discriminant  specification  of  a  given  type  declaration:  at  the  same  places  as  for  a  com¬ 
ponent  declaration;  also  at  the  place  of  a  dlecrlmlnant  simple  name  (before  the  compound 
delimiter  «>)  In  a  named  discriminant  association  of  a  discriminant  constraint  for  the  type. 

(e)  For  a  parameter  specification  of  a  given  subprogram  specification  or  entry  declaration;  at  the 
place  of  the  formal  parameter  (before  the  compound  delimiter  =>)  In  a  named  parameter 
association  of  a  corresponding  subprogram  or  entry  call. 

(f)  For  a  generic  parameter  declaration  of  a  given  generic  unit;  at  the  place  of  the  generic  formal 
parameter  (before  the  compound  delimiter  »>)  In  a  named  generic  association  of  a  cor¬ 
responding  generic  Instantiation. 

Finally,  within  the  declarative  region  associated  with  a  construct  other  than  a  record  type  declara¬ 
tion,  any  declaration  that  occurs  Immadiately  within  the  region  Is  visible  by  selection  at  the  place 
of  the  selector  after  the  dot  of  on  expanded  name  whose  prefix  denotes  the  construct. 

Where  It  is  not  visible  by  selection,  a  visible  declaration  Is  said  to  be  directly  visible,  A  declaration 
is  directly  visible  within  a  certain  part  of  its  Immediate  scope;  this  part  extends  to  the  end  of  the 
Immediate  scope  of  the  declaration,  but  excludes  places  where  the  declaration  Is  hidden  as 
explained  below.  In  addition,  a  declaration  occurring  immediately  within  the  visible  part  of  a 
package  can  bo  made  directly  visible  by  means  of  a  use  clause  according  to  the  rules  described  in 
section  8.4.  (See  also  section  8.6  for  the  visibility  of  library  units.) 

A  declaration  Is  said  to  be  hidden  within  (part  of)  an  Inner  declarative  region  If  the  inner  region  con¬ 
tains  a  homograph  of  this  declaration;  the  outer  declaration  Is  then  hidden  within  the  immediate 
scope  of  the  Inner  homograph.  Each  of  two  declarations  Is  said  to  be  a  homogre^ii  of  the  other  If 
both  declarations  have  the  same  Identifier  and  overloading  Is  allowed  for  at  most  one  of  the  two.  If 
overloading  Is  allowed  for  both  declarations,  then  each  of  the  two  Is  a  homograph  of  the  other  If 
they  have  the  same  Identifier,  operator  symbol,  or  character  literal,  as  well  as  the  same  parameter 
and  result  type  profile  (see  6.6). 

Within  the  specification  of  a  subprogram,  every  declaration  with  the  same  designator  as  the  sub¬ 
program  Is  hidden;  the  same  holds  within  a  generic  instantiation  that  declares  a  subprogram,  and 
within  an  entry  declaration  or  the  formal  part  of  an  accept  statement;  where  hidden  In  this  manner, 
a  declaration  Is  visible  neither  by  selection  nor  directly. 
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Two  declarations  that  occur  Immediately  within  the  same  declarative  region  must  not  be  w 
homographs,  unless  either  or  both  of  the  following  requirements  are  met;  (a)  exactly  one  of  them 
is  the  Implicit  declaration  of  a  predefined  operation;  (b)  exactly  one  of  them  is  the  Implicit  declara¬ 
tion  of  a  derived  subprogram.  In  such  cases,  a  predefined  operation  Is  always  hidden  by  the  other 
homograph;  a  derived  subprogram  hides  a  predefined  operation,  but  is  hidden  by  any  other 
homograph.  Where  hidden  in  this  manner,  an  Implicit  declaration  Is  hidden  within  the  entire  scope 
of  the  other  declaration  (regardless  of  which  declaration  occurs  first);  the  Implicit  declaration  Is 
visible  neither  by  selection  nor  directly. 

Whenever  a  declaration  with  a  certain  identifier  Is  visible  from  a  given  point,  the  Identifier  and  the  ib 
declared  entity  (If  any)  are  also  said  to  be  visible  from  that  point.  Direct  visibility  and  visibility  by 
selection  are  likewise  defined  for  character  literals  and  operator  symbols.  An  operator  Is  directly 
visible  if  and  only  If  the  corresponding  operator  declaration  Is  directly  visible.  Finally,  the  notation 
associated  with  a  basic  operation  is  directly  visible  within  the  entire  scope  of  this  operation. 

Bxampis:  ,b 

procedure  P  is 
A,  B  ;  BOOLEAN; 

procedure  Q  is 
C  ;  BOOLEAN; 

B  :  BOOLEAN;  -  an  Inner  homoqraph  of  B 

begin 

B  !=  A)  -  maani  Q.B  :«»  P.A: 

C  ;»  P.B|  -  rnaana  Q.C  P.B; 

end; 

begin 

A  :=  B;  -  means  P.A  P.B; 
end; 

Note  on  the  visibility  of  library  units: 

The  visibility  of  library  units  Is  determined  by  with  clauses  (see  1 0. 1 . 1)  and  by  the  fact  that  library  » 
units  are  Implicitly  declared  in  the  package  STANDARD  (see  8.6). 

Note  on  homographs; 

The  same  Identifier  may  occur  In  different  declarations  and  may  thus  be  associated  with  different  71 
entities,  even  If  the  scopes  of  these  declarations  overlap.  Overlap  of  the  scopes  of  declarations 
with  the  same  Identifier  can  result  from  overloading  of  subprograms  and  of  enumeration  literals. 

Such  overlaps  can  also  occur  for  entitles  declared  In  package  visible  parts  and  for  entries,  record 
components,  and  parameters,  where  there  Is  overlap  of  the  scopes  of  the  enclosing  package 
declarations,  task  declarations,  record  type  declarations,  subprogram  declarations,  renaming 
declarations,  or  generic  declarations.  Finally  overlapping  scopes  can  result  from  nesting. 

Note  on  Immediate  scope,  hiding,  and  visibility: 

The  rulos  defining  Immediate  scope,  hiding,  and  visibility  Imply  that  a  reference  to  an  Identifier  22 

within  Its  own  declaration  Is  illegal  (except  for  packages  and  generic  packages).  The  Identifier 
hides  outer  homographs  within  Its  Immediate  scope,  that  Is,  from  the  start  of  the  declaration;  on 
the  other  hand,  the  Identifier  Is  visible  only  after  the  end  of  the  declaration.  For  this  reason,  all  but 
the  last  of  the  following  declarations  are  Illegal; 


i 


1 


........■•I 


,1 
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K  :  INTEGER  :=  K  *  K; 

T  ;  T; 

prooadura  P(X  :  P); 

prooMiur*  Q(X  :  REAL  Q); 

prooedur*  R(R  ;  REAL); 


—  Illegal 

-  Illegal 

-  Illegal 

--  Illegal,  even  If 
an  Inner  declaration  la  legal 


there  la  a  function  named  Q 
(although  confuaing) 


fieferonces:  accept  atatement  9.5,  aggregate  4.3,  appropriate  for  a  type  4.1,  argument  2.8,  basic  operation  3.3.3, 
character  litoral  2.5,  component  association  4.3,  component  decla.atlon  3.7,  compound  delimiter  2.2,  declaration  3.1, 
declarative  region  8.1,  designate  3.8,  discriminant  constraint  3.7.2,  discriminant  specification  3.7.1,  entry  call  9.6. 
entry  declaration  9.6,  entry  family  9.5,  enumeration  literal  specification  3.5.1,  expanded  name  4.1.3,  extends  8.1,  for¬ 
mal  parameter  6.1.  generic  association  12.3,  generic  formal  parameter  12.1,  generic  Instantiation  12.3.  generic 
package  12.1.  generic  paremeter  declaration  12.1,  generic  unit  12,  Identifier  2.3,  immediate  scope  8.2,  Implicit 
declaration  3.1,  lexical  element  2.2,  library  unit  10.1,  object  3.2,  occur  Immediately  within  8.1 ,  operator  4.6,  operotor 
symbol  6.1,  overloading  6,6  8.7,  package  7,  parameter  6.2,  paremeter  sseoclntlon  6.4,  parameter  apecificatlon  6,1, 
pragma  2.8,  program  unit  6,  record  type  3.7,  reserved  word  2.9,  scops  8.2,  selected  component  4.1.3,  selector  4.1.3, 
simple  name  4.1,  subprogram  6,  subprogram  call  6.4,  aubprogram  declaration  6.1,  subprogram  spacHIcation  6.  i ,  task 
type  9.1,  task  unit  9,  type  3.3,  type  deolaratlon  3.3.1,  use  clause  8.4,  visible  part  7.2 


8.4  Um  ClauiM 


I  A  use  clause  achieves  direct  visibility  of  declarations  that  appear  in  the  visible  parts  of  named 
packages. 

3  use_clause  ;;=<  use  pack»g»jn»m9  |,  pecAr«jre_name); 

3  For  each  use  clauas,  there  Is  a  certain  region  of  taKt  called  the  scope  of  the  use  claut  e.  This  region 
starts  Immediately  after  the  use  clause.  If  a  use  clause  Is  a  declarative  Item  of  some  declarative 
region,  the  scope  of  the  clause  extends  to  the  end  of  the  declarative  region.  If  a  use  clause  occurs 
within  a  context  clause  of  a  compilation  unit,  the  scope  of  the  use  clause  extends  to  the  end  of  the 
declarative  region  associated  with  the  compilation  unit. 

4  In  order  to  define  which  declarations  are  made  directly  visible  at  a  given  place  by  use  clauses,  con¬ 
sider  the  set  of  packages  named  by  all  use  clauses  whose  scopes  enclose  this  place,  omitting  from 
this  set  any  packages  that  enclose  this  place.  A  declaration  that  can  be  made  directly  visible  by  a 
use  clause  (a  potentially  visible  declaration)  is  any  declaration  that  occurs  immediately  within  the 
visible  part  of  a  package  of  the  set.  A  potentially  visible  declaration  Is  actually  made  directly  visible 
except  In  the  following  two  oases: 

5  •  A  po^-'ntially  visible  declaration  Is  not  made  directly  visible  If  the  place  considered  Is  within 

the  .mmadiate  scope  of  a  homograph  of  the  declaration. 

t  e  Potentially  visible  declarations  that  have  the  same  Identifier  are  not  made  directly  visible 
unless  each  of  them  Is  either  an  enumeration  literal  specification  or  the  declaration  of  a  sub¬ 
program  (by  a  subprogram  declaration,  a  renaming  deolaratlon,  a  generic  instantiation,  or  an 
implicit  deolaratlon). 

7  The  elaboration  of  a  use  clause  has  no  other  effect. 

Note; 

t  The  above  rules  guarantee  that  a  declaration  that  Is  made  directly  visible  by  a  use  clause  cannot 
hide  an  otherwise  directly  visible  declaration.  The  above  rules  are  formulated  In  terms  of  the  set  of 
packages  named  by  use  clauses. 
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Consequently,  the  following  lines  of  text  all  have  the  same  effect  (assuming  only  one  package  P). 
USB  P; 

use  P;  use  P,  P; 

Example  of  conflicting  names  In  two  packages: 

prooadure  R  Is 

peokags  TRAFFIC  it 

type  COLOR  Is  (RED,  AMBER,  QREEN); 
end  TRAFFIC; 

paokage  WATER.COLORS  Is 

type  COLOR  Is  (WHITE,  RED,  YELLOW,  QREEN,  BLUE,  BROWN,  BLACK); 
end  WATER_COLORS; 

use  TRAFFIC;  --  COLOR,  RED,  AMBER,  and  QREEN  are  directly  visible 

use  WATER.COLORS;  -  two  homographs  of  QREEN  are  directly  visible 

—  but  COLOR  is  no  longer  directly  vltible 

subtype  LIGHT  it  TRAFFIC.COLOR;  -  Subtypes  are  used  to  resolve 

subtype  SHADE  It  WATER.COLORS.COLOR;  -  the  conflicting  type  name  COLOR 

SIGNAL  !  LIGHT; 

PAINT  1  SHADE; 

begin 

SIGNAL  ;=«  QREEN;  -  that  of  TRAFFIC 

PAINT  !«  QREEN;  -  that  of  WATER_COLORS 

end  R; 

Example  of  name  Identification  with  a  use  clause; 


paokage  D  Is 

T,  U,  V  !  BOOLEAN; 
end  D; 

prooedura  P  Is 
paokage  E  It 

B,  W,  V  :  INTEGER; 
end  E; 


procedure  Q  It 
T,  X  :  REAL; 
use  D,  E; 
begin 

--  the  name  T 
--  the  name  U 
--  the  name  B 

-  the  name  W 

-  the  name  X 
--  the  name  V 


meant  O.T,  not  D.T 
means  D.U 
means  E.B 
means  E.W 
means  Q.X 

Is  Illegal  ;  either  D.V  or  E.V  must  be  used 


end  Q; 
begin 


end  P; 


» 
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References:  compllaticn  unit  1 0. 1 ,  context  clauie  1 0. 1 ,  declaration  3. 1 ,  doclaratlva  item  3.9,  declarative  region  8. 1 , 
direct  visibility  8.3,  elaboration  3.1  3.9,  elaboration  haa  no  other  effect  3.1,  enumeretion  literal  specification  3.5.1, 
extends  8. 1 ,  hiding  8.3,  homograph  8.3,  Identifier  2.3.  Immediate  scope  8.2,  name  4. 1 ,  occur  Immediately  within  8. 1 , 
package  7,  scope  8.2,  subprogram  declaration  6.1,  visible  part  7.2 


8.5  Renaming  Declarations 


A  ronaming  declaration  declares  another  name  for  an  entity. 
renaming_declatation 

Identifier  :  type..mark  renames  o6/ecf_neme; 

I  identifier  ;  eseeptlen  renames  except/on-.neme: 

I  package  Identifier  renemes  pec/ceffe^nema; 

I  subprogram.speolficatlon  renames  suf)proffra/n-or..entry^naniB; 

The  elaboration  of  a  renaming  declaration  evaluates  the  name  that  follows  the  reserved  word 
renames  and  thereby  determlnaa  the  entity  denoted  by  this  name  (the  renamed  entity).  At  any 
point  where  a  renaming  declaration  la  visible,  the  Identifier,  or  operator  symbol  of  this  declaration 
denotes  the  renamed  entity. 

The  flret  form  of  renaming  declaration  is  used  for  the  renaming  of  objecta.  The  renamed  entity 
must  be  an  object  of  the  base  type  of  tha  type  mark.  The  propartlea  of  the  renamed  object  are  not 
affected  by  the  renaming  declaration.  In  particular,  Ita  value  and  whether  or  not  It  la  a  constant  are 
unaffected;  similarly,  the  conitralnta  that  apply  to  an  object  ore  not  affected  by  renaming  (any 
conetralnt  implied  by  the  type  mark  of  the  renaming  daclaratlon  Is  Ignored),  The  renaming  declara¬ 
tion  Is  legal  only  If  exactly  one  object  haa  thia  type  and  can  be  denoted  by  the  object  name. 

The  following  restrictions  apply  to  the  renaming  of  a  subcomponent  that  depends  on  discriminants 
of  a  variable.  The  renaming  Is  not  allowed  if  the  subtype  of  the  variable,  as  defined  in  a  cor¬ 
responding  object  declaration,  component  declaration,  or  component  subtype  Indication,  Is  an 
unconstrained  type;  or  If  the  variable  Is  a  generic  formal  object  (of  mode  In  out).  Similarly  If  tha 
variable  Is  a  formal  parameter,  the  renaming  is  not  allowed  If  the  type  mark  given  In  the  parameter 
specification  denotes  an  unconstrained  type  whose  diecriminants  have  default  expressions. 

The  second  form  of  renaming  declaration  Is  used  for  the  renaming  of  exceptions;  the  third  form, 
for  the  renaming  of  packages. 

The  last  form  of  renaming  declaration  Is  used  for  the  renaming  of  subprograms  and  entries.  The 
renamed  subprogram  or  entry  and  the  subprogram  specification  given  In  the  renaming  declaration 
must  have  the  same  parameter  end  result  type  profile  (see  6,6).  The  renaming  declaration  Is  legal 
only  if  exactly  one  visible  subprogram  or  entry  aatisflee  the  above  requirements  and  can  be 
denoted  by  the  given  subprogram  or  entry  name.  In  addition,  parameter  modes  must  be  Identical 
for  formal  parameters  that  are  at  the  aama  parameter  position. 

The  subtypes  of  the  parametera  and  result  (If  any)  of  a  renamed  subprogram  or  entry  are  not 
affected  by  renaming.  Theae  aubtypaa  are  those  given  in  the  original  subprogram  declaration, 
generic  Instantiation,  or  entry  declaration  (not  those  of  the  renaming  declaration);  even  for  calls 
that  use  the  now  name.  On  the  other  hand,  a  renaming  declaration  can  Introduce  parameter  names 
and  default  expressions  that  differ  from  those  of  the  renamed  subprogram;  named  associations  of 
calls  with  the  new  subprogram  name  must  use  the  new  parameter  name;  calls  with  the  old  sub¬ 
program  name  must  use  the  old  parameter  names. 
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A  procedure  can  only  be  renamed  aa  a  procedure.  Either  of  a  function  or  operator  can  be  renamed 
as  either  of  a  function  or  operator;  for  renaming  aa  an  operator,  the  subprogram  specification  given 
in  the  renaming  declaration  Is  subject  to  the  rules  given  In  section  6.7  for  operator  declarations. 
Enumeration  literals  can  be  renamed  as  functions;  similarly,  attributes  defined  as  functions  (such 
as  SUCC  and  PRED)  can  be  renamed  as  functions.  An  entry  can  only  be  renamed  as  a  procedure; 
the  new  name  is  only  allowed  to  appear  In  contexts  that  allow  a  procedure  name.  An  entry  of  a 
family  can  be  renamed,  but  an  entry  family  cannot  be  renamed  as  a  whole. 

Examples: 

declare 

L  ;  PERSON  renames  LEFTMOST_PERSON;  -  see  3.8,1 
begin 

LAQE  :=  LAQE  +  1; 

end; 

PULL  :  exeeption  renames  TABLE..IV1ANAQER.TABlE^FULL;  •'  see  7.5 
peohage  TM  renames  TABLE_MANAQER; 

function  REAL.PLUS(LEFT,  RIGHT  ;  REAL  |  return  REAL  renames 

function  INT.P'.US  (LEFT,  RIGHT  :  INTEGER)  return  INTEGER  renames  V"; 

function  ROUGE  return  COLOR  renemtj  RED;  ••  see  3.6.1 
function  ROT  return  COLOR  rersmes  RED; 

function  ROSSO  return  COLOR  rernmes  ROUGE; 

function  NEXTIX  i  COLOR)  return  COLOR  renames  COLOR'SUCC;  »  toe  3.5.5 
Example  of  a  ranamlr.ff  daclarntlon  with  naw  paramatar  namar, 

function  (X,y  ;  VECTOR)  return  REAL  renames  DOT.PRODUCT;  -  see  6.1 
Example  of  a  ranamhg  declaration  with  a  naw  default  expression: 

function  MINIMUM(L  '  LINK  HEAD)  return  CELL  renames  MIN.CELL;  -  iso  6.1 
Notes: 

Ronamlng  may  be  used  to  resolve  noma  conflicts  and  to  act  as  a  shorthand.  Renaming  with  a  dif¬ 
ferent  Identifier  or  operator  symbol  does  not  hide  the  old  name;  the  new  name  and  the  old  name 
need  not  be  visible  at  the  same  points.  The  attributes  POS  and  VAL  connot  be  renamed  alnue  the 
corresponding  specifications  cannot  be  written;  the  seme  holds  for  the  predefined  multiplying 
operators  with  «  unIvarsaUIxad  rosulv. 

Calla  with  the  new  name  of  a  renamed  entry  are  procedure  call  statements  and  are  not  allowed  at 
places  where  the  syntax  requires  an  entry  call  statement  in  conditional  and  timed  entry  calls; 
similarly,  the  COUNT  attribute  la  not  available  for  the  new  name. 

A  task  object  that  Is  declared  by  an  object  declaration  con  be  renamed  as  an  object.  However,  a 
single  task  cannot  be  renamed  since  the  corresponding  task  type  Is  anonymous.  For  similar 
reasons,  an  object  of  an  anonymous  array  type  cannot  be  renamed.  No  syntactic  form  exists  for 
renaming  a  generic  unit. 

A  subtype  can  be  used  to  achieve  the  effect  of  renaming  a  type  (Including  a  task  type)  as  In 
subtype  MODE  Is  TEKTJO.  FILE_MOOE  : 
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Peferencos;  allow  1.6,  attribute  4.1.4,  baia  type  3,3,  conditional  entry  call  9.7.2,  constant  3.2.1 .  constrained  subtype 
3.3,  constraint  3.3,  declaration  3.1,  default  SKprsaalon  6,1,  depend  on  a  discriminant  3.7.1,  discriminant  3.7.1, 
elaboration  3. 1  3.9,  entry  9.5,  entry  call  9.5,  entry  call  statement  9.5,  entry  declaration  9.5,  entry  family  9.5,  anumera- 
tion  literal  3.5.1,  evaluation  of  a  name  4,1,  exception  11,  formal  paramatar  6.1  lui.ctlon  6.6,  identifier  2.3,  legal  1,6, 
mode  6.1,  name  4.1,  object  3.2,  object  declaration  3.2,  operator  6.7,  operator  declaictlon  6.7,  operator  symbol  6.1, 
package  7,  parameter  6.2,  parameter  specification  6.1,  procedure  6.1,  procedure  call  statement  6.4,  roservad  word 
2.9,  subcomponent  3.3,  subprogram  6,  subprogram  call  6.4,  subprogram  declaration  6.1,  subprogram  specification 
6.1,  subtype  3.3,2,  task  object  9.2,  timed  entry  call  9.7,3,  type  3,3,  type  mark  3.3,2,  variable  3.2.1,  visibility  8.3 


8.6  The  PMokao*  Standard 


The  predefined  types  (for  example  the  types  BOOLEAN,  CHAftACTER  and  INTEGER)  are  tfie  types 
that  are  declared  In  a  predefined  package  called  STANDARD;  this  package  also  Includes  the 
declaratlona  of  their  predefined  operations.  The  package  STANDARD  Is  described  in  Annex  C. 
Apart  from  the  predefined  numeric  types,  the  speolfloatlon  of  the  package  STANDARD  must  be  the 
same  for  all  Implementation!  of  the  language. 

The  package  STANDARD  forms  a  dsolarativs  region  which  encloses  every  library  unit  and 
conaequently  tha  main  program;  the  declaration  of  every  library  unit  la  assumed  to  occur 
Immediately  within  this  package.  Tha  Implicit  declarations  of  library  units  are  assumed  to  be 
ordered  In  such  a  way  that  tha  scope  of  a  given  library  unit  Inoludeu  any  uompllstlon  unit  that  men¬ 
tions  the  given  library  unit  in  a  with  clausa.  However,  the  only  library  units  that  are  visible  within  a 
given  compilation  unit  are  aa  follows;  they  Include  the  library  units  named  by  all  with  cleusas  that 
apply  to  tha  given  unit,  and  moreover,  If  the  given  unit  Is  a  secondary  unit  of  some  library  unit,  they 
Include  this  library  unit. 

Not0s; 

If  all  block  statements  of  a  program  are  named,  then  the  name  of  each  program  unit  can  always  be 
written  as  an  expanded  name  starting  with  STANDARD  (unleaa  this  package  Is  Itself  hidden), 

If  a  type  Is  deolarsd  In  the  visible  part  of  a  library  package,  then  It  la  a  conaequence  of  the  visibility 
rules  that  a  basic  operation  (such  as  assignment)  for  this  type  is  directly  visible  at  pleuea  where  the 
type  itself  Is  not  visible  (whether  by  selection  or  directly).  However  this  operation  can  only  be 
applied  to  operands  that  are  visible  and  the  declaration  of  those  operands  requlioa  the  visibility  of 
either  the  type  or  one  of  Its  subtypes. 


P0f0renc»s;  appiioabla  with  olauia  10.1.1,  block  nama  6.6,  block  atatamant  6.6,  daclaratlon  3.1,  daolaratlva  raglon 
8.1.  expnndHd  namo  4,1,3,  hiding  8.3,  Idantiflar  2.3,  Impilolt  daolsratlon  3.1.  library  unit  10.1,  loop  atatemant  5.6, 
main  program  10.1,  muat  1.6,  nama  4.1,  occur  Immadlataly  within  8.1,  opaiatnr  6.7,  packaga  7,  program  unit  6. 
aecondary  unit  10.1,  lubtypa  3.3,  typa  3.3.  vlilblllty  8.3,  with  clauia  10.1.1 


8.7  The  Context  of  Overload  Resolution 


Overloading  Is  defined  for  soupiocems,  enumeration  literals,  operators,  and  single  ontrieo,  and 
also  for  the  operations  that  are  iniiorsnt  In  several  basic  operations  such  as  assignment, 
membership  tests,  allocators,  the  llterel  null,  aggregates,  and  string  literals. 
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For  overloaded  entities,  overload  resolution  determines  the  actual  meaning  that  rtn  occurrence  of 
an  identifier  has,  whenever  the  visibility  rules  determined  that  more  than  one  meaning  Is 
acceptable  at  the  place  of  this  occurrence;  overload  resolution  likewise  determines  the  actual 
meaning  of  an  occurrence  of  on  opflrawor  or  some  basic  operation, 

At  such  a  place  all  visible  declarations  are  considered.  The  occurrence  Is  only  legal  if  there  la 
exactly  one  Interpretation  of  each  conatltuent  of  tho  Innermost  complete  context;  a  complete  con¬ 
text  is  one  of  the  followingi 

•  A  declaration. 

e  A  atstament. 

e  A  representation  clause, 

When  considering  posalble  interpretations  of  •  complete  context,  the  only  rules  ocnalderad  are  the 
syntax  rulea,  tha  scope  and  vlelbllity  rules,  and  the  rules  of  the  form  described  below. 

(nl  Any  rule  that  requirei  a  name  or  expression  to  have  a  certain  type,  oi  to  have  the  same  type  as 
another  name  or  expression, 

(b)  Any  rule  that  requires  the  type  of  a  name  or  expression  to  be  a  type  of  s  certain  class,  simllsr" 
!y,  any  rule  that  requires  e  certain  type  to  be  e  diaorota,  integer,  real,  universal,  character, 
boolean,  or  rionllmlted  typo, 

(c)  Any  rule  that  requires  a  prefix  to  be  appropriate  for  a  certain  type. 

(d)  Any  rule  that  speotfiss  a  oertiln  type  as  the  result  type  of  a  baalu  operation,  and  any  rule  that 
specifies  that  thia  type  la  of  a  oarlaln  class. 

(el  Tho  rules  that  require  tha  type  of  «n  aggregate  or  string  litoral  to  bt  determlnebla  aolaly  from 
the  enclosing  oompisto  context  (see  4.3  end  4.2).  Similarly,  the  ruleo  thit  require  the  type  of 
vhe  prefix  of  an  attribute,  the  typo  of  the  expreislon  of  a  case  statsmsnt,  or  tho  type  of  the 
operand  of  a  type  oonveralon,  to  be  determinable  Independently  of  the  context  (see  4.1.4,  5.4, 
4.6,  and  0,4,1 ). 

(f)  The  rulea  given  In  section  0.6,  for  the  resolution  of  overloaded  subprogram  calls;  1.*'  laotlon 
4,3,  for  tho  Implicit  conversions  of  universal  expreselons;  In  ss|Otlon  .?,6.1,  for  the  lnt».  ,  leta- 
tlcn  of  discrete  ranges  with  bounds  having  a  univeraai  type;  and  In  section  4.1.3,  for  the 
Interpretetlon  of  t«n  expanded  nemo  whose  prefix  denotes  e  subprogram  ur  an  accept  atcta- 
mem, 

Subprogram  names  use  f  as  pragma  arguments  follow  a  different  rule:  the  Dragms  can  apply  to 
several  overloaded  subprograma,  aa  explained  In  aeotlon  b.3.2  for  the  pragma  INLINE,  In  section 
1 1 ,7  for  the  pragma  SUPPRESS ,  and  In  oaotlor  1 3.9  for  the  pragma  INTERFACE . 

Similarly,  tha  simple  namaa  given  In  context  clsusot  (see  10.1.1)  and  In  addroaa  ulauaes  (aea  13,5) 
follow  different  rules. 
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Notes: 

16  If  there  is  only  one  possible  interpretation,  the  identifier  denotes  the  corresponding  entity. 
However,  this  does  not  mean  that  the  occurrence  is  necessariiy  iegai  since  other  requirements 
exist  which  are  not  considered  for  overioad  resolution;  for  example,  the  fact  that  an  expression  is 
static,  the  parameter  modes,  whether  an  object  is  constant,  conformance  ruies,  forcing  occur¬ 
rences  for  a  representation  clause,  order  of  elaboration,  and  so  on. 

17  Similarly,  subtypes  are  not  considered  for  overload  resolution  (the  violation  of  a  constraint  does 

not  make  a  program  illegal  but  raises  an  exception  during  program  execution). 

18  A  loop  parumeter  specification  Is  a  declaration,  and  hence  a  complete  context. 

19  Rules  that  require  certain  constructs  to  have  the  same  parameter  and  result  type  profile  fall  under 

the  category  (a);  the  same  holds  for  rules  that  require  conformance  of  two  constructs  since  con¬ 
formance  requires  that  corresponding  names  be  given  the  same  meaning  by  the  visibility  and 
overloading  rules. 


20  References:  aggregate  4.3,  allocator  4.6,  aulgnment  6.2,  basic  operation  3.3.3,  case  siatemant  5.4,  class  of  type 

3.3,  declaration  3.1,  entry  9.5,  enumeration  literal  3.5.1,  exception  1 1,  expression  4.4,  formal  pert  6.1,  Identifier  2.3, 
legal  1.6,  literal  4.2,  loop  parameter  specification  5.5,  membership  teat  4.6.2,  name  4.1,  null  literal  3.8,  operation 

3.3.3,  operator  4.5,  overloading  6.6,  pragma  2.6,  representation  clause  13.1,  statement  5,  static  expression  4.9,  static 
subtype  4.9,  subprogram  6,  subtype  3.3,  type  conversion  4.6,  visibility  8.3 

2t  Rules  of  the  form  ia);  address  clause  13.5,  assignment  5.2,  choice  3.7.3  4.3.2  5,4,  component  association  4.3.1 
4.3.2,  conformance  rules  9.3,  default  expression  3.7  3.7.1  6.1  12.1.1,  delay  statement  9.6,  discrete  range  3.6.1  6.5 
9.5,  discilmlnant  constraint  3.7.2,  enumeration  representation  clause  13.3,  generic  parameter  association  12.3.1, 
Index  constraint  3.6.1,  Index  expression  4.1.1  4.1.2  9.5,  initial  value  3. 2.1,  membership  test  4.5.2,  parameter  associa¬ 
tion  6.4.1 ,  parameter  and  result  type  profile  8.6  12.3.6,  qualified  expression  4.7,  range  constraint  3.5,  renaming  of  an 
object  8.5,  result  expression  5.8 

22  Rules  of  the  form  (bl;  abort  statement  0.10,  aasignment  5,2,  case  expression  5.4,  condition  5.3  6.5  5.7  9.7.1, 
discrete  range  3.6.1  5.5  9.5,  fixed  point  type  declaration  3.5,9,  floating  point  type  declaration  3.5.7,  Integer  type 
declaration  3.5.4,  length  clause  13.2,  membership  test  4.4,  number  declaratic  3.2.2,  record  representation  clause 
13.4,  selected  component  4.1.3,  short-circuit  control  form  4.4,  val  attribute  3.5.5 

23  Rules  of  the  form  (c):  Indexed  component  4,1 ,1,  selected  component  4.1,3,  slice  4.1.2 

24  Rules  of  the  form  (d):  aggregate  4,3,  allocator  4.8,  membership  test  4.4,  null  literal  4.2,  numeric  literal  2.4,  short- 
circuit  control  lorm  4,4,  string  litoral  4.2 
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The  execution  of  a  program  that  does  not  contain  a  task  is  defined  in  terms  of  a  sequential  execu¬ 
tion  of  its  actions,  according  to  the  ruies  described  in  other  chapters  of  this  manual.  These  actions 
can  be  considered  to  be  executed  by  a  single  logical  processor. 

Tasks  are  entitles  whose  executions  proceed  In  parallel  In  the  following  sense.  Each  task  can  be 
considered  to  be  executed  by  e  logical  processor  of  Its  own.  Different  tasks  (different  logical 
processors)  proceed  Independently,  except  at  points  where  they  synchronize. 

Some  tasks  have  entries.  An  entry  of  a  task  con  be  celled  by  other  tasks.  A  task  accepts  a  call  of 
one  of  its  entries  by  executing  an  accept  statement  for  the  entry.  Synchronization  is  achieved  by 
rendezvous  between  a  task  issuing  an  entry  call  and  a  task  accepting  the  call.  Some  entries  have 
parameters;  entry  calls  and  accept  statements  for  such  entries  are  the  principal  means  of  com¬ 
municating  values  between  tasks, 

The  properties  of  each  task  are  defined  by  a  corresponding  task  unit  which  consists  of  a  task 
specification  and  a  task  body.  Task  units  are  one  of  the  four  forms  of  program  unit  of  which 
programs  can  be  composed.  The  other  forms  are  subprograms,  packages  and  generic  units.  The 
properties  of  task  units,  tasks,  and  entries,  and  the  statements  that  affect  the  interaction  between 
tasks  (that  is,  entry  call  statements,  accept  statuments,  delay  statements,  select  statements,  and 
abort  statements)  are  described  In  this  chapter. 

Note; 

Parallel  tasks  (parallel  logical  processors)  may  be  Implemented  on  multicomputers,  multiproces¬ 
sors,  or  with  Interleaved  execution  on  a  tingle  physicel processor.  On  the  other  hand,  whenever  an 
Implementation  can  detect  that  the  same  effect  can  be  guaranteed  If  parts  of  the  actions  of  a  given 
task  are  executed  by  different  physical  processors  acting  In  parallel,  it  may  choose  to  execute  them 
In  this  way;  In  such  a  case,  several  physical  processors  implement  a  single  logical  processor. 

References:  abort  statement  9.10,  accept  statement  9.5,  delay  stutement  9,6.  entry  9.5,  entry  call  statement  9.5 
generic  unit  12,  package  7,  parameter  In  an  entry  call  9.6,  program  unit  6,  rendezvous  9,5,  select  statement  9.7,  suD- 
program  6,  task  body  9.1,  task  specification  9.1 


9.1  Task  Speoifloations  and  Task  Bodies 


A  task  unit  consists  of  a  task  specification  and  a  task  body.  A  task  specification  that  starts  with  the 
reserved  words  task  type  declares  a  task  type.  The  value  of  an  object  of  a  task  type  designates  a 
task  having  the  entries.  If  any,  that  are  declared  In  the  task  specification;  these  entries  are  also  cal¬ 
led  entries  of  this  object.  The  execution  of  the  task  Is  defined  by  the  corresponding  task  body. 
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A  task  specification  without  the  reserved  word  type  defines  a  single  task,  A  task  declaration  with 
this  form  of  specification  is  equivalent  to  the  declaration  of  an  anonymous  task  type  immediately 
followed  by  the  declaration  of  an  object  of  the  task  typo,  and  the  task  unit  identifier  names  the 
object.  In  the  remainder  of  this  chapter,  explanations  are  given  in  terms  of  task  type  declarations; 
the  corresponding  explanations  for  single  task  declarations  follow  from  the  stated  equivalence. 

task-declaration  task-specificatlon; 

tBsk_.apoclfication 

task  [type]  identifier  (Is 
|entrv_docldratlon| 

I  represantatlon_clause  I 
end  [tes/r-slmple„name|] 

task-body 

task  body  ras^_slmple_name  Is 
[  deolarative-part] 
begin 

8aquenca_of_jBtatementa 
t  exception 

axceptlon_hBndler 
I  extieptlon_handler|j 
end  [ras/r_slmple_namel; 

The  simple  name  at  the  start  of  a  task  body  must  repeat  the  task  unit  Identifier.  Similarly  if  a  simple 
name  appears  at  the  end  of  the  task  speolfication  or  body,  It  must  repeat  the  task  unit  identifier, 
Within  a  task  body,  the  name  of  the  corresponding  tosk  unit  can  also  be  used  to  refer  to  the  task 
object  that  designates  the  task  currently  executing  the  body;  furthermore,  the  use  of  this  name  as  a 
type  mark  is  not  allowed  within  the  task  unit  Itself. 

For  the  elaboration  of  a  task  speoifloat  on,  entry  declarations  and  representation  clauses,  if  any,  are 
elaborated  in  the  order  given.  Such  representation  clauses  only  apply  to  the  entries  declared  in  the 
task  specification  (see  13.5). 

The  elaboration  of  a  task  body  has  no  other  effect  than  to  establish  that  the  body  can  from  then  on 
be  used  for  the  execution  of  tasks  designated  by  objects  of  the  corresponding  task  type. 

The  execution  of  a  task  body  Is  Invoked  by  the  activation  of  a  teak  object  of  the  corresponding  type 
(see  9.3).  The  optional  exception  handlers  at  the  end  of  a  task  body  handle  exceptions  raised  dur¬ 
ing  the  execution  of  the  sequence  of  statements  of  the  task  body  (see  1 1 .4). 

Examples  of  specifications  of  task  typas; 

task  type  RESOURCE  It 
entry  SEIZE; 
entry  RELEASE; 
end  RESOURCE; 

task  type  KEVBOARD.DRIVER  Is 
entry  READ  (C  :  out  CHARACTER); 
entry  WRITE  (C  :  in  CHARACTER); 
end  KEYBOARD_DRIVER; 
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Examples  of  specifications  of  single  tasks:  » 

task  PRODUCER_CON8UMER  It 
•ntry  READ  (V  ;  out  ITEMI: 
antrv  WRITE  (E  ;  in  ITEM!; 
end; 

task  CONTROLLER  ft 

entry  REQUEST(LEVEL)(D  :  ITEM);  -  u  fomlly  of  entries 
end  CONTROLLER: 

task  USER;  -  has  no  entries 

Example  of  task  specification  and  corresponding  body:  lo 

task  PROrECTED_ARRAY  It 

-  INDEX  and  ITEM  brs  global  typet 
entry  READ  (N  :  In  INDEX;  V  ;  out  ITEM); 
entry  WRITE (N  :  In  INDEX;  E  :  In  ITEM); 
end; 

task  body  PROTECTEO_ARRAY  It 

TABLE  :  arraydNOEX)  of  ITEM  (INDEX  »>  NULUTEM); 
begin 
loop 
saleot 

aooept  READ  (N  ;  In  INDEX;  V  ;  out  ITEM)  do 
V  TABLE(N); 
end  READ; 
or 

aooept  WRITE  (N  ;  In  INDEX;  E  ;  In  ITEM)  do 
TABLE(N)  E; 
end  WRITE; 
end  teleot; 
and  loop; 

and  PROTECTED_ARRAY; 

Note: 

A  task  specification  specifies  the  Interface  of  tasks  of  the  task  type  with  other  tasks  of  the  same  or  m 
of  different  types,  and  also  with  the  main  program. 

Referenctj:  declaration  3. 1 ,  declorative  part  3.9,  slaboratlon  3.9,  entry  9.6,  entry  declaration  9.5,  exception  hondl'ir  vi 
11.2,  Identifier  2.3.  main  program  10.1,  object  3.2,  object  declaration  3.2.1,  repreaentatlon  clause  13.1,  reserve^ 
word  2.9,  sequence  of  statementa  5.1,  simple  name  4.1,  type  3.3,  type  declarutlon  3.3.1 


9.2  Task  Typos  and  Task  Objects 


A  task  type  is  a  limited  type  (see  7,4.4).  Hence  neither  assignment  nor  the  predefined  comparison 
for  equality  and  Inequality  are  defined  for  objects  of  task  types;  moreover,  the  mode  out  Is  not 
allowed  for  a  formal  parameter  whose  type  Is  a  task  type. 


9-3 


Task  Types  and  Task  Objects  9.2 


i^<alf/MIL-STD-18t 5A  Ada  Roferonco  Manual 


A  task  object  is  an  object  whose  t^'pe  is  .u  -  .  .  ?lue  of  a  task  object  designates  a  task 

that  has  the  entries  of  the  corresponding  .  ■  ■,  -<nd  execution  is  specified  by  the  cor¬ 
responding  task  body.  If  a  task  object  is  the  w  :  subcc  i^ponent  of  the  object,  declared  by 

an  object  declaration,  than  the  value  of  the  wsk  obje^^  'u  detinod  by  the  elaboration  of  the  object 
declaration,  If  a  task  object  Is  the  object,  or  a  subr omponent  of  the  object,  created  by  the  evalua¬ 
tion  of  an  allocator,  then  the  value  of  the  tack  object  Is  defined  by  the  evaluation  of  the  allocator. 
For  all  parameter  modes,  if  an  actual  parameter  designates  a  task,  the  associated  formal 
parameter  designates  the  aame  task;  the  same  holds  for  a  subt.  "mponent  of  an  actual  parameter 
and  the  corresponding  subcomponent  of  the  assoclatod  formal  parameter;  finally,  the  same  holds 
for  generic  parameters. 

Examples; 

CONTROL  :  RESOURCE: 

TELETYPE  :  KEYBOARO_DRIVER: 

POOL  ;  srrayll  ..  10)  of  KEYBOARDED  RIVER; 

-  see  also  examples  of  declarations  of  single  tasks  In  S.1 

Example  of  access  type  designating  task  oblects: 

type  KEYBOARD  Is  aeoeas  KEYBOARD.DRIVER; 

TERMINAL  :  KEYBOARD  new  KEYBOARD.DRIVER; 

Notes: 

Since  a  task  typo  Is  a  limited  type,  It  can  appear  as  the  definition  of  a  limited  private  type  In  a 
private  part,  and  as  a  generic  actual  parameter  associated  with  a  formal  parameter  whose  type  Is  a 
limited  type.  On  the  other  hand,  the  type  of  a  generic  formal  parameter  of  mode  In  must  not  be  a 
limited  type  and  hence  cannot  be  a  task  type. 

Task  objects  behave  as  constants  (a  teak  object  always  designates  the  same  task)  since  their 
values  are  Implicitly  defined  either  at  daularatlon  or  allocation,  or  by  a  parameter  association,  and 
since  no  assignment  Is  available.  However  the  reserved  word  constant  Is  not  allowed  In  the 
declaration  of  a  task  object  since  this  would  require  an  explicit  initialization.  A  task  object  that  is  a 
formal  parameter  of  mode  in  Is  a  constant  (as  Is  any  formal  parameter  of  this  mode). 

If  an  application  needs  to  store  and  exchange  tank  identitlet.,  it  can  do  so  by  defining  an  access 
type  designating  the  corresponding  task  objects  and  by  using  access  values  for  Identification  pur¬ 
poses  (see  above  example).  Assignment  Is  available  for  such  an  access  type  as  for  any  access 
type. 

Subtype  declarations  are  allowed  for  task  types  as  for  other  types,  but  there  are  no  constraints 
applicable  to  task  types. 

References:  acesss  type  3.8,  actual  paramatar  6.4.1,  allocator  4.8,  Baalenment  6.2,  component  declaration  3.7, 
composite  type  3.3,  constant  3.2.1,  constant  declaration  3.2.1,  constraint  3.3,  dealgnata  3.8  9.1,  elaboration  3.9, 
entry  9.5,  equality  operator  4.6.2,  formal  paramatar  6.2,  formal  parameter  mode  6.2,  generic  actual  paramntar  1 2.3, 
gene.lc  association  12.3,  generic  formal  parameter  12.1,  generic  formal  parameter  mode  12,1 ,1 ,  generic  unit  12,  Ine¬ 
quality  operator  4.5.2,  Initialization  3,2.1,  limited  type  7.4.4,  object  3.2,  object  declaration  3.2.1,  parameter  aaaocla- 
tlon  6.4,  private  part  7.2,  private  type  7.4,  reserved  word  2.9,  subcomponent  3.3.  subprogram  0,  subtype  declaration 
3.3  2.  task  body  9.1,  type  3.3 
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9.3  Task  Execution  -  Teak  Actlvetion 


A  task  body  defines  the  execution  of  any  task  that  is  designated  by  a  task  object  of  the  cor¬ 
responding  task  type.  The  Initial  part  of  this  execution  is  colled  the  activation  of  the  task  object, 
and  also  that  of  the  designated  task;  It  consists  of  the  elaboration  of  the  declarative  part,  if  any,  of 
the  task  body.  The  execution  of  different  tasks,  in  particular  their  activation,  proceeds  in  purallel. 

If  an  object  declaration  that  declares  a  task  object  occurs  immediately  within  a  declarative  part, 
then  the  activation  of  the  task  object  starts  after  the  elaboration  of  the  declnrative  part  (that  is, 
after  passing  the  reserved  word  begin  following  the  declarative  part);  similarly  if  such  a  declara¬ 
tion  occurs  immediately  within  a  package  specification,  the  activation  starts  after  the  elaboration 
of  the  declarative  part  of  the  package  body.  The  same  holds  for  the  activation  of  a  task  object  that 
is  <3  subcomponent  of  an  object  declared  immediately  within  a  declarative  part  or  package 
specification.  The  first  statement  following  the  declarative  part  is  executed  only  ahor  conclusion  of 
the  activation  of  these  task  objects. 

Should  an  exception  be  raised  by  the  activation  of  one  of  these  tasks,  that  task  becomes  a  com  ¬ 
pleted  task  (see  9.4);  other  tasks  era  not  directly  affected.  Should  one  of  these  tasks  thus  become 
completed  during  its  activation,  the  exception  TASKING_ERROR  Is  raised  upon  conclusion  of  the 
activation  of  all  of  these  tasks  (whether  successfully  or  not);  the  exception  Is  raised  at  a  place  that 
Is  Immediately  before  the  first  statement  following  the  declarative  part  (Immediately  after  the 
reserved  word  begin).  Should  several  of  these  tasks  thus  become  completed  during  their  activa¬ 
tion,  the  exception  TASKING.ERROR  la  raised  only  once. 

Should  an  exception  be  raised  by  the  elaboration  of  a  declarative  part  or  package  specification, 
then  any  task  that  Is  created  (directly  or  indirectly)  by  this  elaboration  and  that  Is  not  yet  activated 
becomes  terminated  and  Is  therefore  never  activated  (tee  section  9.4  for  the  definition  of  a  ter¬ 
minated  task). 

For  the  above  rules,  In  any  package  body  without  statements,  a  null  statement  Is  assumed.  For  any 
package  without  a  package  body,  an  Implicit  package  body  containing  a  single  null  statement  Is 
assumed.  If  a  package  without  a  package  body  Is  declared  Immediately  within  some  program  unit 
or  block  statement,  the  Implicit  package  body  occurs  et  the  end  of  the  declarative  part  of  the 
program  unit  or  block  statement;  If  there  ere  several  such  packages,  the  order  of  the  Implicit 
package  bodies  Is  undefined. 

A  task  object  that  Is  the  object,  or  a  subcomponent  of  the  object,  created  by  the  evaluation  of  an 
allocator  Is  activated  by  this  evaluation.  The  activation  starts  after  any  Initialization  for  the  object 
created  by  the  allocator;  If  several  subcomponents  are  task  objects,  they  are  activated  In  parallel. 
The  access  value  designating  such  an  object  is  returned  by  the  allocator  only  after  the  conclusion 
of  these  activations. 

Should  an  exception  be  raised  by  the  activation  of  one  of  these  tasks,  that  task  becomes  a  com¬ 
pleted  task;  other  tasks  are  not  directly  affected.  Should  one  of  these  tasks  thus  become  com¬ 
pleted  during  Its  activation,  the  exception  TASKINQ_ERROR  Is  raised  upon  conclusion  of  the 
activation  of  all  of  these  tasks  (whether  successfully  or  not);  the  exception  Is  raised  at  the  place 
where  the  allocator  Is  evaluated.  Should  several  of  these  tasks  thus  become  completed  during 
their  activation,  the  exception  TASKINQ._ERROR  is  raised  only  once. 

Should  an  exception  be  raised  by  the  Initialization  of  the  object  created  by  an  allocator  (hence 
before  the  start  of  any  activation),  any  task  desigr^ated  by  a  subcomponent  of  this  object  becomes 
terminated  and  Is  therefore  never  activated, 
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e  Example: 

prooadura  R  ta 

A,  B  :  RESOURCE;  --  alabotata  the  task  objects  A,  B 

C  :  RESOURCE;  "  elaborate  the  task  object  C 

begin 

-  the  tasks  A,  B,  C  are  activated  in  parallel  before  the  first  statement 
and; 

Notes; 

to  An  entry  of  a  task  can  bo  called  bofora  tito  task  has  baan  activated.  If  saveral  tasks  are  activated  in 
parallel,  the  execution  of  any  of  these  tasks  need  not  await  the  end  of  the  activation  of  the  other 
tasks.  A  task  may  becnma  completed  during  Its  activation  either  because  of  an  exception  or 
because  it  la  aborted  Uae  9.10). 

\\  References;  allocator  4.8,  oomplatad  task  9.4,  dsclarstiva  part  3.9,  alaboratlon  3.9,  antry  9.5,  axcsptlon  1 1 ,  handling 
an  exception  1 1 .4,  pockage  body  7.1 ,  parallol  execution  9,  statemertt  5,  subcomponent  3.3,  task  body  9.1 ,  task  object 
9.2,  task  tarmlnatlon  9.4,  task  typs  9.1.  tflsklng_error  exception  11.1 


e.4  Tosit  Dtpand«no«  -  Termination  of  Tasks 


Each  task  depends  on  at  least  one  master.  A  master  Is  a  construct  that  is  either  a  task,  a  currently 
executing  block  atatamant  or  subprogram,  or  a  library  package  (a  package  declared  within  another 
program  unit  Is  not  a  mastar).  The  dependence  on  a  master  is  a  direct  dependence  in  the  following 
two  cases; 

(a)  The  task  designated  by  a  task  object  that  is  the  object,  or  a  subcomponent  of  the  object, 
created  by  the  evaluation  of  an  allocator  depends  on  the  master  that  elaborates  the  cor¬ 
responding  access  type  definition. 

(b)  The  task  designated  by  any  other  task  object  depends  on  the  master  whose  execution  creates 
the  task  object. 

Furthermore,  if  a  task  depends  on  a  given  master  that  is  a  block  statement  executed  by  another 
master,  then  the  task  depends  also  on  this  other  master,  in  an  Indirect  manner;  the  same  holds  If 
the  given  maater  is  a  subprogram  called  by  another  master,  and  If  the  given  master  Is  a  task  that 
depends  (directly  or  Indirectly)  on  another  maater.  Dependences  exist  for  objects  of  a  private  type 
whose  full  declaration  is  In  terms  of  a  task  type. 

A  task  Is  said  to  have  completed  Its  execution  when  it  has  finished  the  execution  of  the  sequence 
of  statements  that  appears  after  the  reserved  word  begin  In  the  correaponding  body.  Similarly  a 
block  or  a  subprogram  Is  said  to  have  completed  Its  execution  when  it  has  finished  the  execution  of 
the  corresponding  sequence  of  statements.  For  a  block  statement,  the  execution  is  also  said  to  bo 
completed  when  it  reaches  an  exit,  return,  or  goto  statement  transferring  control  out  of  the  block. 
For  a  procedure,  the  execution  is  also  said  to  be  completed  when  a  corresponding  return  state¬ 
ment  is  reached.  For  a  function,  the  execution  is  also  said  to  be  completed  after  the  evaluation  of 
the  result  expression  of  a  return  statement.  Finally  the  execution  of  a  task,  block  statement,  or  sub¬ 
program  Is  completed  if  an  axcaptlon  Is  raised  by  the  execution  of  Its  sequence  of  statements  and 
there  is  no  corresponding  handler,  or,  if  there  is  one,  when  It  has  finished  the  execution  of  the  cor¬ 
responding  handler. 
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If  a  task  has  no  depsndsnt  task,  Its  termination  takes  place  when  It  has  completed  its  execution.  s 
After  its  termination,  a  task  is  ssid  to  be  terminated.  If  a  task  has  dependent  tasks,  its  termination 
takes  place  when  the  execution  of  the  task  Is  completed  and  all  dependent  tasks  are  terminated.  A 
block  statement  or  subprogram  body  whose  execution  is  completed  is  not  left  until  all  of  its  depen¬ 
dent  tasks  are  terminated. 

Termination  of  a  task  otherwise  takes  place  If  and  only  If  its  execution  has  reached  an  open  ter-  7 
minate  alternative  in  a  select  ststement  (see  9.7.1),  and  the  following  conditions  are  satisfied; 

e  Tne  task  depends  on  some  master  whose  execution  is  completed  (hence  not  a  library  a 
package). 

e  Each  task  that  depends  on  the  master  considered  Is  either  already  terminated  or  similarly  a 
waiting  on  an  open  terminate  alternative  of  a  select  statement. 

When  both  conditions  are  satisfied,  the  task  considered  becomes  terminated,  together  with  all  10 
teaks  that  dopar.d  on  the  master  considered. 

Example:  m 

declare 

type  GLOBAL  is  aoeess  nESOUnCE;  ~  see  9.1 

A,  B  :  RESOURCE; 

Q  :  GLOBAL; 

begin 

-  activation  of  A  and  B 
declare 

type  LOCAL  la  aceeae  RESOURCE; 

X  :  GLOBAL  ;<*  new  RESOURCE;  -  activation  of  X.all 

L  ;  LOCAL  new  RESOURCE;  --  activation  of  Lall 

C  I  RESOURCE; 

begin 

-  activation  of  C 

G  Inc  X;  -  both  G  and  X  designate  the  same  task  object 
end;  -  await  termination  of  C  end  Lall  (but  not  X.all) 
end;  ~  await  termination  of  A,  B,  and  G.all 
Notes: 

The  rules  given  for  termination  Imply  that  all  tasks  that  depend  (directly  or  Indirectly)  on  a  given  12 
master  and  that  are  not  already  terminated,  can  bo  terminated  (collectively)  If  and  only  if  each  of 
them  Is  waiting  on  an  open  terminate  alternative  of  a  select  statement  and  the  execution  of  the 
given  master  Is  comploted. 

The  usual  rules  apply  to  the  main  program.  Consequently,  termination  of  the  main  program  awaits  1:1 
termination  of  any  dependent  task  even  If  the  corresponding  task  type  Is  declared  In  a  library 
package.  On  the  other  hand,  termination  of  the  main  program  does  not  await  termination  of  tasks 
that  depend  on  library  packages;  the  language  does  not  define  whether  such  tasks  are  required  to 
terminate. 

For  an  access  type  derived  from  enother  access  type,  the  corresponding  access  type  definition  Is  u 
that  of  the  parent  type;  the  dependence  Is  on  the  master  that  elaborates  the  ultimate  parent  access 
type  definition. 
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19  A  renaming  declaration  defines  a  new  name  for  an  existing  entity  and  hence  creates  no  further 
dependence, 

K  References:  accatt  typa  3.8,  allocator  4.8,  block  atatament  6,6,  declaration  3.1,  designate  3.8  9.1,  exception  11, 
exception  handler  1 1,2,  exit  itatemsnt  6.7,  function  6.6,  goto  statement  5.9,  library  unit  10.1,  main  program  10.1, 
object  3.2,  open  alternative  9.7.1,  package  7.  program  unit  6,  renaming  declaration  8.5,  return  statement  6.8,  selec¬ 
tive  wait  9.7.1,  sequence  of  atetamants  6,1 ,  atatament  5,  aubcomponent  3.3,  subprogram  body  6.3,  subprogram  call 
6.4.  task  body  9.1,  task  object  9.2,  terminate  alternative  9.7.1 


9.6  EntriM,  Entry  Calls,  and  Aooapt  Statsmanta 


1  Entry  calls  and  accept  statamsnts  are  the  primary  means  of  synchronization  of  tasks,  and  of  com¬ 
municating  values  between  tasks.  An  entry  declaration  is  similar  to  a  subprogram  declaration  and 
Is  only  allowed  In  a  task  specification.  The  actions  to  be  performed  when  an  entry  Is  called  are 
specified  by  corresponding  accept  statements. 

3  entry.dsclarstlon 

entry  Identifier  ((dl8orete_rangs)]  [formaLpartI; 

entry...oalLstatsment  ;>  •nf/y.nams  (actust_parameter_partl: 

acoepUatatement 

accept  t/Trry_slmpls_nams  [(entry^lndex)]  (formal4>art]  (do 
aequenoo..of..statementa 
end  [enr/v..slmple-namsll; 

entryJndsx  i:-  exprssslon 

1  An  entry  declaration  that  Includes  a  discrete  range  (see  3.6. 1 )  declares  a  f0mHy  of  distinct  entries 
having  the  same  formal  part  Ilf  anyl;  that  Is,  one  such  entry  for  each  value  of  the  discrete  range. 
The  term  shg/e  entry  Is  used  In  the  definition  of  any  rule  that  applies  to  any  entry  other  than  one  of 
a  family.  The  task  designated  by  an  object  of  a  task  type  has  (or  owns)  the  entries  declared  In  the 
specification  of  the  task  type. 

4  Within  the  body  of  a  task,  each  of  Its  single  entries  or  entry  families  can  be  named  by  the  cor¬ 
responding  simple  name.  The  name  of  an  entry  of  a  family  takes  the  form  of  an  Indexed  compo¬ 
nent,  the  family  simple  name  being  followed  by  the  Index  In  parentheses;  the  type  of  this  Index 
must  be  the  same  as  that  of  the  discrete  range  In  the  corresponding  entry  family  declaration.  Out¬ 
side  the  body  of  a  task  an  entry  name  has  the  form  of  a  selected  component,  whose  prefix  denotes 
the  task  object,  and  whose  selector  Is  the  simple  name  of  one  of  Its  single  entries  or  entry  families. 

9  A  single  entry  overloads  a  subprogram,  an  enumeration  literal,  or  another  single  entry  if  they  have 
the  same  Identifier.  Overloading  Is  not  defined  for  entry  families.  A  single  entry  or  an  entry  of  an 
entry  family  can  be  renamed  as  a  procedure  as  explained  In  section  8.5. 

t  The  parameter  modes  defined  for  parameters  of  the  formal  part  of  an  entry  declaration  are  the 
same  as  for  a  subprogram  declaration  and  have  the  same  meaning  (see  6.2).  The  syntax  of  an 
entry  call  statement  la  similar  to  that  of  a  procedure  call  statement,  and  the  rules  for  parameter 
associations  are  the  same  as  for  subprogram  calls  (see  6.4.1  and  6.4.2). 


9.5  Entries.  Entry  Calls,  end  Accept  Statements 
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An  accept  statement  specifies  the  actions  to  be  performed  at  a  call  of  a  named  entry  (It  can  be  an 
entry  of  a  family).  The  formal  part  of  an  accept  statement  must  conform  to  the  formal  part  given  In 
the  declaration  of  the  single  entry  or  entry  family  named  by  the  accept  statement  (see  section  6.3.1 
for  the  conformance  rules).  If  a  simple  name  appears  at  the  end  of  an  accept  statement,  It  must 
repeat  that  given  at  the  start. 

An  accept  statement  for  an  entry  of  a  given  task  la  only  allowed  within  the  corresponding  task 
body;  excluding  within  the  body  of  any  program  unit  that  Is,  Itself,  Inner  to  the  task  body;  and 
excluding  within  another  accept  statement  for  either  the  same  single  entry  or  an  entry  of  the  same 
family.  (One  consequence  of  this  rule  is  that  a  task  can  execute  accept  statements  only  for  Its  own 
entries.)  A  task  body  can  contain  more  than  one  accept  statement  for  the  same  entry. 

For  the  elaboration  of  an  entry  declaration,  the  discrete  range.  If  any.  Is  evaluated  and  the  formal 
part,  If  any,  Is  then  elaborated  as  for  a  subprogram  declaration. 


Execution  of  an  accept  statement  starts  with  the  evaluation  of  the  entry  Index  (In  the  case  of  an 
entry  of  a  family).  Execution  of  an  entry  call  statement  starts  with  the  evaluation  of  the  entry  name; 
this  Is  followed  by  any  evaluations  required  for  actual  parameters  In  the  same  manner  as  for  a  sub¬ 
program  call  (see  6,4),  Further  execution  of  an  accapt  statement  and  of  a  correaponding  entry  call 
statement  are  synchronised. 

If  a  given  entry  la  called  by  only  one  task,  there  are  two  possibilities: 

e  If  the  calling  task  Issues  an  entry  call  statement  before  a  corresponding  accept  statement  Is 
reached  by  the  task  owning  the  entry,  the  execution  of  the  calling  task  is  susp0nd»d, 

e  If  a  task  reaches  an  accept  statement  prior  to  any  call  of  that  entry,  the  execution  of  the  task  Is 
suspended  until  such  a  call  is  received. 

When  an  entry  has  been  called  and  a  correaponding  accept  statement  has  been  reached,  the 
sequence  of  statements,  If  any,  of  the  accept  statement  Is  executed  by  the  called  task  (while  the 
calling  teak  remains  suspended).  This  Interaction  la  called  a  rtndtivous,  Thereafter,  the  calling 
task  and  the  task  owning  the  entry  continue  their  execution  In  parallel. 

If  several  tasks  call  the  same  entry  before  a  corresponding  accept  statement  Is  reached,  the  calls 
are  queued;  there  la  one  queue  associated  with  each  entry.  Each  execution  of  an  accept  state¬ 
ment  removes  one  call  from  the  queue.  The  calls  are  processed  In  the  order  of  arrival. 


An  attempt  to  call  an  entry  of  a  task  that  has  completed  Its  execution  raises  the  exception 
TA8KING-ERROR  at  the  point  of  the  call,  in  the  calling  task:  similarly,  this  excaption  Is  raised  at  the 
.  point  of  the  call  If  the  called  task  completes  Its  execution  before  accepting  the  call  (see  also  9.1 0 
for  the  case  when  the  called  task  becomes  abnormal).  The  exception  CONSTRAINT..ERROR  Is 
raised  If  the  index  of  an  entry  of  a  family  la  not  within  the  specified  dlscreta  range. 

Examphs  of  antry  daclaratlons; 


entry  READ(V  :  out  ITEM); 
entry  SEIZE; 

entry  REQUEST(LEVEL)(0  :  ITEM);  -  a  family  of  entries 
Examplos  of  antry  calls; 


CONTROL.RELEASE; 

PRODUCER..CONSUMER.WRITE(E); 

POOL(8).READ(NEXT_CHAR); 

CONTROLLER.REQUE8T|LOW)(SOME_ITEM); 


sen  8.2  and  8.1 

ses  8.1 

see  8.2  and  9.1 
set  8.1 
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i«  Examples  of  accept  statements: 
accept  SEIZE; 

accept  READ(V  :  out  ITEM)  do 
V  :=  LOCAUTEM; 
end  READ; 

accept  REQUEST(LOW)(D  :  ITEM!  do 
end  REQUEST; 

Notes: 

ID  The  formal  part  given  In  an  accept  atatement  la  not  elaborated;  it  la  only  uaed  to  Identify  the  cor¬ 
responding  entry. 

21  An  accept  statement  can  call  aubprograma  that  laaue  antry  calls.  An  accept  statement  need  not 
have  a  sequence  of  atatementa  even  If  the  corresponding  entry  has  paramotera.  Equally,  It  can 
have  a  sequence  of  atatamants  avan  if  the  oorraaponding  entry  has  no  paramotars.  The  sequence 
of  statements  of  an  acoapt  statemant  con  Inoluda  raturn  atataments.  A  taak  can  call  Its  own  entries 
but  It  will,  of  course,  deadlock.  The  language  permits  conditional  and  timed  entry  calls  (see  9.7.2 
and  9.7.3).  The  language  rules  ensure  that  a  task  can  only  ba  In  ono  entry  queue  at  a  given  time. 

22  If  the  bounds  of  the  discrete  range  of  an  antry  family  are  Integer  literals,  the  Index  (In  an  entry 
name  or  accept  statement)  must  bo  of  the  predefined  type  INTEGER  (aaa  3.6.1). 


29  References;  abnormal  task  9.10,  actual  paramatar  part  8.4,  oontplatad  taak  9,4,  conditional  antry  osll  9.7.2, 
conformance  rulaa  8.3.1.  oonatralnt_arrar  axoaption  11.1,  daaignata  9.1,  diaorata  range  3.8.1,  elaboration  3.1  3.9, 
enumeration  literal  3.6,1,  evaluation  4.8,  axpraaalon  4.4,  formal  part  8.1,  Identifier  2.3,  Indexed  component  4.1.1, 
Integer  type  3.8.4,  name  4.1,  object  3.2,  overloading  6.6  6.7,  parallel  execution  9,  prefix  4.1,  procedure  6,  procedure 
call  6.4,  renaming  declaration  8.6,  raturn  atatement  6,8,  scope  8,2,  lalaoted  component  4.1,3,  selector  4.1.3, 
lepuencn  of  statements  6,1,  aimpis  axprasilon  4.4,  simple  nama  4,1,  subprogram  6.  subprogram  body  6.3,  sub* 
program  declaration  6.1,  task  9,  taak  body  9,1,  task  spsclflcstlon  9,1,  tasklng_arror  exception  1 1.1,  timed  entry  call 
9,7,3 


B.e  Delay  Statamants,  Duration,  and  Tima 


1  The  execution  of  a  delay  atatement  evaluater  the  simple  expression,  and  suspends  further  execu¬ 
tion  of  the  task  that  executes  the  delay  statement,  for  at  least  the  duration  specified  by  the 
resulting  value. 

2  dalay^statemant  :;»>  daisy  almple..axprasslon; 

.1  The  simple  expression  must  bo  of  the  predefined  fixed  point  type  DURATION;  Its  value  la 
e,xpre88od  In  seconds;  a  delay  statement  with  a  negative  value  Is  equivalent  to  a  delay  statement 
with  a  lero  value. 

X  Any  Implementation  of  the  type  DURATION  must  allow  representation  of  durations  (both  positive 
end  negative)  up  to  at  least  86400  seconds  (one  day);  the  smallest  repreoentable  duration, 
DURATION'SMALL  must  not  be  greater  than  twenty  milliseconds  (whenever  possible,  a  value  not 
greater  than  fifty  microseconds  should  be  chosen).  Note  that  DURATION'SMALL  need  not 
correspond  to  the  basic  clock  cycle,  the  named  number  SYSTEM  .TICK  (see  1 3.7). 


9.6  Delay  Statements,  Duration,  and  Time 
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The  definition  of  the  type  TIME  is  provided  In  the  predefined  library  package  CALENDAR.  The 
function  CLOCK  returns  the  current  value  of  TIME  at  the  time  it  Is  called,  The  functions  YEAR, 
MONTH ,  DAY  and  SECONDS  return  the  corresponding  values  for  a  given  value  of  the  type  TIME ; 
the  procedure  SPLIT  returns  all  four  corresponding  values.  Conversely,  the  function  TlME„OF 
combines  a  year  number,  a  month  number,  a  day  number,  and  a  duration.  Into  a  value  of  type 
TIME.  The  operators  and  for  addition  and  subtraction  of  times  and  durations,  and  the 
relational  operators  for  times,  have  the  conventional  meaning. 

The  exception  TIME-ERROR  Is  raised  by  the  function  TIME...CF  if  the  actual  parameters  do  not  form 
a  proper  date.  This  exception  is  also  raised  by  the  operators  and  if,  for  the  given  operands, 
these  operators  cannot  return  a  data  whose  year  number  Is  in  the  range  of  the  corresponding  sub- 
type,  or  If  the  operator cannot  return  a  result  that  la  in  the  range  of  the  type  DURATION . 

paakage  CALENDAR  is 
type  TIME  Is  private; 

subtype  YEAR-NUMBER  Is  INTEGER  range  1901  ..  2099; 

subtype  MONTH-NUMBER  Is  INTEGER  range  1  ..  12; 

subtype  DAY-NUMBER  Is  INTEGER  range  1  ..  31; 

subtype  DAY-DURATION  la  DURATION  range  0.0  ..  B6-400.0; 

function  CLOCK  return  TIME; 

function  YEAR  (DATE  ;  TIME)  return  YEAR-NUMBER; 

function  MONTH  (DATE  :  TIME)  return  MONTH-NUMBER; 

function  DAY  (DATE  :  TIME)  return  DAY-NUMBER; 

function  SECONDS  (DATE  :  TIME)  return  DAY-DURATION; 

procedure  SPLIT  (  DATE  :  In  TIME; 

YEAR  :  out  YEAR-NUMBER; 

MONTH  ;  out  MONTH-NUMBER; 

DAY  I  out  DAY-NUMBER; 

SECONDS  1  out  DAY-DURATION); 

function  TIME-OF(YEAR  :  YEAR-NUMBER; 

MONTH  :  MONTH-NUMBER; 

DAY  I  DAY-NUMBER; 

SECONDS  ;  DAY-DURATION  ;■=  0.0}  return  TIME; 


function  (LEFT 

function  (LEFT 

function  (LEFT 

function  (LEFT 


TIME;  RIGHT  :  DURATION)  return  TIME; 

DURATION;  RIGHT  :  TIME)  return  TIME; 

TIME,  RIGHT  :  DURATION)  return  TIME; 

TIME;  RIGHT  :  TIME)  return  DURATION; 


function  (LEFT,  RIGHT 

function  "<=»“  (LEFT,  RIGHT 

function  ">"  (LEFT,  RIGHT 

function  (LEFF,  RIGHT 


TIME)  return  BOOLEAN; 
TIME)  return  BOOLEAN; 
TIME)  return  BOOLEAN; 
TIME)  return  BOOLEAN; 


TIME-ERROR  ;  eaceptlon;  -  can  be  raised  by  TIMt:_OF.  and 


private 

-  Implemontstlon-dopendent 
end; 
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•  Examples: 

dttlay  3.0;  -  delay  3.0  seconds 

declare 

use  CALENDAR; 

-  INTERVAL  Is  a  global  constant  of  type  DURATION 
NI;XT,„TIME  i  TIME  :=  CLOCK  +  INTERVAL; 
begin 
loop 

delay  NEXT-TIME.  -  CLOCK; 

-  '  some  actions 

NEXT_TIME  ;«  NEXT..TIME  +  INTERVAL; 
end  loop; 
and; 

Notes: 

»  The  second  example  causes  the  loop  to  be  repeated  every  INTERVAL  seconds  on  average.  This 
interval  between  two  successive  Iterations  Is  only  approximate.  However,  there  will  be  no 
cumuletlve  drift  as  long  as  the  duration  of  each  iteration  Is  (sufficiently)  less  than  INTERVAL . 


tu  Peferencas;  adding  operator  4.5,  duration  C,  fixed  polnr  typo  3.5,9,  function  call  6.4,  library  unit  10.1 ,  opsrator  4.5, 
paokaga  7,  private  typo  7.4,  relational  operator  4.5,  simple  expreaslou  4,4,  statement  5,  talk  0,  type  3.3 


B.Y  Select  Statements 


I  There  are  three  furms  of  salact  statements.  One  form  provides  a  selective  wslt  for  one  or  more 
alter  natives.  The  other  two  provide  conditional  and  timed  entry  calls. 

1  cttleat_.at.oter  ant  !!»  snleotlvs_walt 

I  oondltlonal..«ntry_oall  |  tlmed-entry.osll 


3  References:  selective  wslt  9.7.1,  conditions!  entry  call  8.7.2,  timed  entry  coll  9.7.3 


9.7.1  Selective  Walts 


I  This  form  of  the  select  statement  allows  a  combination  of  waiting  for,  and  oelsotlng  from,  one  or 
more  alternatives.  The  selection  can  depend  on  conditions  associated  witfi  each  altornatlva  of  the 
selective  wait 

I 

y  I 


i 
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8electlve_walt 

■slmt 

8elflct_alternatlve 
( or 

select.alternatlva| 

[  al8« 

aaquanca^of_8tatamanta) 
and  aalaot; 

select.alternBtlve 

( whan  condition  -•=>) 
aelectlve-.wait_altarnatlve 

selnctlve_walt^ltarnatlvo  aQcapt_altarnatlva 
I  delay_altarnatlvo  |  tarmlnata.altarnatlva 

acoapt.altarnatlvo  aooopt_atatamant  [aaquanoa_of_ttat8mentB| 

dalay..elternatlvfl  dalay_atatamont  [aequanoo.of-atatemental 

termlnata^altarnatlvf  !:»  tarmlnata; 

A  aelectivo  wait  muat  contain  at  laaat  one  accept  alternative.  In  addition  a  aelective  wait  can  con¬ 
tain  (zither  0  terminate  alternative  (only  one),  or  one  or  more  delay  alternatives,  or  an  eleo  part; 
these  three  poaaibllitlea  are  mutually  excluaive. 

A  select  alternative  is  said  to  bo  op»n  If  It  does  not  stait  with  when  and  a  condition,  or  If  the  condl  ‘ 
tion  la  TRUE .  It  Is  said  to  be  c/o««d otherwise. 

For  the  execution  of  a  selective  wait,  any  conditions  specified  after  when  arc  evaluated  In  some 
order  that  la  not  defined  by  the  lanauage;  open  alternatlvea  are  thus  determined,  For  nn  open 
delay  alternative,  the  delay  expression  Is  also  evaluated.  Similarly,  for  an  open  accept  alternative 
for  an  entry  of  a  family,  the  entry  Index  Is  also  evaluated,  Seluctlon  and  execution  of  one  open 
alternative,  or  of  the  else  pert,  then  completes  the  execution  of  the  selective  wait;  the  rules  for  this 
selection  ore  described  below. 

Open  accept  alternatives  are  first  considered.  Selection  of  one  such  alternative  takes  placu 
Immediately  If  a  corresponding  rendeivous  Is  possible,  thrt  Is,  If  there  Is  a  corresponding  entry  call 
Issued  by  another  task  and  waiting  to  be  accepted.  If  several  alternatives  can  thur  be  selected, 
one  of  them  Is  selected  arbitrarily  (that  is,  the  language  does  not  define  which  one).  When  such  an 
alternative  Is  selected,  the  oorreopondlng  accept  statem*<'nt  and  possible  subsequent  statements 
are  executed.  If  no  rendezvous  Is  Immediately  possible  ana  there  Is  no  else  part,  the  task  waltn 
until  an  open  selective  wsit  alternative  can  be  selected. 

Selection  of  the  other  forms  of  alteniatlve  or  of  an  else  part  Is  performed  as  follows: 

•  An  open  delay  slternatlva  will  be  selected  if  no  accept  alternative  can  be  selected  before  the 
specified  delay  hae  elapsed  (Immediately,  for  a  negative  oi  zero  delay  In  the  absence  of 
queued  entry  calls);  any  subsequent  statements  of  the  alternative  are  then  executed.  If  several 
delay  alternatives  can  thus  be  selected  (that  is.  If  they  have  the  same  delay),  one  of  them  Is 
solectod  arbitrarily. 

e  The  also  part  Is  selected  and  Its  statements  are  executed  If  no  accept  alternative  can  be 
Immediately  selected.  In  particular.  If  ell  alternatives  are  closed, 

•  An  open  terminate  alternative  Is  aeleuted  If  the  conditions  stated  In  section  9.4  are  satisfied. 
It  Is  a  consequanca  of  other  rules  that  a  terminate  alternative  cannot  be  selected  while  there  Is 
a  queued  entry  coll  for  any  entry  of  the  task. 
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It  The  exception  PROQRAM.ERROR  is  raised  if  aii  alternatives  are  ciosed  and  there  Is  no  else  part, 

12  Examples  of  a  select  statement: 

select 

accept  DRIVER_AWAKE_SIGNAL; 
or 

delay  SO.OtSECONDS; 

STOP_THE_TRAIN: 

end  select; 

13  Example  of  a  task  body  with  a  select  statement: 

task  body  RESOURCE  Is 

BUSY  :  BOOLEAN  :=  FALSE; 
begin 
loop 

select 

when  not  BUSY  =•■> 
accept  SEIZE  do 
BUSY  ;=  TRUE; 
end; 
or 

accept  RELEASE  do 
BUSY  FALSE: 
and; 
or 

terminate; 
end  select; 
and  loop; 
end  RESOURCE; 

Notes: 

M  A  selective  wait  Is  allowed  to  have  several  open  delay  alternatives.  A  selective  wait  is  allowed  to 
have  several  open  accept  alternatives  for  the  same  entry. 

<3  References:  accept  statement  9.5,  condition  6.3,  declaration  3.1 ,  delay  expreoslon  9,6,  delay  statement  9.6,  duration 
9.6,  entry  9,5,  entry  call  9,5,  entry  index  9,5,  program_orror  exception  1 1.1,  queued  entry  call  9.5,  rendezvous  9,5, 
select  statement  9,7,  aequence  of  statements  5.1,  task  9 


9.7.2  Conditional  Entry  Calls 


1  A  conditional  entry  call  Issues  an  entry  call  that  is  then  canceled  if  a  rendezvous  Is  not  Immediately 
possible. 

2  conditlonaLentryjall 

select 

entry_call_8tat0ment 
I  sequence_of_statement8] 
else 

sequcnce_of_8tBt0ment8 

end  select; 


9.7.2  Conditional  Entry  Calls 
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For  the  execution  of  a  conditional  entry  call,  the  entry  name  Is  first  evaluated,  This  Is  followed  by 
any  evaluations  required  for  actual  parameters  as  in  the  case  of  a  subprogram  call  (see  6.4). 


The  entry  call  is  canceled  if  the  execution  of  the  called  task  has  not  reached  a  point  where  it  is 
ready  to  accept  the  call  (that  is,  either  an  accept  statement  for  the  corresponding  entry,  or  a  select 
statement  with  an  open  accept  alternative  for  the  entry),  or  if  there  are  prior  queued  entry  calls  for 
this  entry.  If  the  called  task  has  reached  a  select  statement,  the  entry  call  Is  canceled  if  an  accept 
alternative  for  this  entry  is  not  selected. 

If  the  entry  call  is  canceled,  the  statements  of  the  else  part  are  executed.  Otherwise,  the  rendez¬ 
vous  takes  place;  and  the  optional  sequence  of  statements  after  the  entry  call  Is  then  executed. 

The  execution  of  a  conditional  entry  call  raises  the  exception  TASKING_ERROR  If  the  called  task 
has  already  completed  Its  execution  (see  also  9.10  for  the  case  when  the  called  task  becomes 
abnormal). 

Example: 

prooadure  SPIN(R  :  RESOURCE)  Is 
begin 
loop 
■eloet 
R.SEIZE; 
retum; 
else 

null;  »  busy  waiting 
end  esleet; 
end  loop; 
end; 

References:  abnormal  task  9.10,  accept  statement  9.5,  actual  parameter  part  6.4,  completed  task  9.4,  entry  call 
statemant  9.5,  antiy  family  9,6,  entry  Index  9.6,  evaluation  4  6,  expression  4.4,  open  alternative  9.7.1,  queued  entry 
call  9.6,  rendezvous  9.5,  select  statement  9,7,  sequence  of  statements  6.1,  task  9,  ta8klng„error  exception  11.1 


9.7.3  Timed  Entry  Calls 


A  timed  entry  call  Issues  an  entry  call  that  Is  canceled  'f  a  rendezvous  Is  not  started  within 
delay. 


timed_entry_c8ll 

select 

entr/.calLatatement 
[  sequence..uf_statementa] 
or 

delay_alternative 

end  eeleot; 


1 
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For  the  execution  of  a  timed  entry  call,  the  entry  name  is  first  evaluated.  Titis  Is  followed  by  any 
evaluations  required  for  actual  parameters  as  In  the  case  of  a  subprogram  call  (see  6.4).  The 
expression  stating  the  delay  is  then  evaluated,  and  the  entry  call  is  finally  issued. 

If  a  rendezvous  can  be  started  within  the  specified  duration  (or  immediately,  as  for  a  conditional 
entry  call,  for  a  negative  or  zero  delay),  it  Is  performed  and  the  optional  sequence  of  statements 
after  the  entry  call  is  then  executed.  Otherwise,  the  entry  call  Is  canceled  when  the  specified  dura¬ 
tion  has  expired,  and  the  optional  sequence  of  statements  of  the  delay  alternative  is  executed, 

The  execution  of  a  timed  entry  call  raises  the  exception  TASKING_ERROR  if  the  called  task 
completes  its  execution  before  accepting  the  call  (see  also  9.10  for  the  case  when  the  called  task 
becomes  abnormel). 

Example; 

select 

CONTROLLER.REQUEST((yiEDIUM)(SOME_ITEIV1); 

or 

delay  45.0; 

-  controller  too  busy,  try  something  else 
end  select; 

References:  abnormal  task  9.10,  cccspt  statement  9.5,  sctuol  parametor  part  6.4,  completed  task  9.4,  conditional 
antty  call  9.7.2,  delay  expression  9.6,  delay  statement  9.6.  duration  9.6,  entry  call  statomont  9.6,  entry  family  9.5, 
entry  Index  9.B,  evaluation  4.5,  expression  4.4,  rendezvous  9.5,  sequence  of  stHtements  5.1,  task  9,  tasking.error 
sxceptlon  11,1 


9.8  Priorities 


3 

Each  task  may  (but  need  not)  have  a  prioritij,  which  Is  a  value  of  the  subtype  PRIORITY  (of  tho  type 
INTEGER )  declared  In  the  praclefinod  library  package  SYSTEM  (see  1 3,7).  A  lower  value  Indicates  a 
lower  degree  of  urgency;  the  range  of  priorities  is  Implementation-defined.  A  priority  is  associated 
with  a  tssk  If  a  pragma 

pragma  PRIORITY  (sfef/c_eKpr98sion): 

appears  in  the  corresponding  task  specification;  the  priority  is  given  by  the  value  of  the  expression. 
A  priority  Is  associated  with  rhe  mein  program  If  such  a  pragma  appears  in  Its  outermost 
declarative  part.  At  moot  one  such  pragma  can  appear  within  a  given  tesk  specification  or  for  a 
subprogram  that  is  a  library  unit,  and  the8*>i  are  the  only  allowed  places  for  thlo  pragma,  A  pragma 
PRIORITY  has  no  effect  if  It  occurs  In  a  subprogram  other  than  the  main  program. 

The  soeclfication  of  a  priority  Is  an  Indication  given  to  assist  the  Implementation  In  the  allocation  of 
processing  resources  to  parallel  tasks  when  there  are  more  tasks  eligible  for  execution  than  can  be 
supported  simultaneously  by  the  availeble  processing  rosources.  The  effect  of  priorities  on 
scheduling  is  defined  by  the  following  rule: 

If  two  tasks  with  different  priorities  are  both  eligible  for  execution  and  could  sensibly  be 
executed  using  the  same  physical  processors  and  tho  same  other  processing  resources,  then  it 
cannot  be  the  case  that  the  task  with  tho  lower  priority  Is  executing  while  the  task  with  the 
higher  priority  is  not. 


9.8  Priorities 
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For  tasks  of  the  same  priority,  the  scheduling  order  is  not  defined  by  the  language.  For  tasks  5 
without  explicit  priority,  the  scheduling  rules  are  not  defined,  except  when  such  tasks  are  engaged 
in  a  rendezvous,  if  the  priorities  of  both  tasks  engaged  in  a  rendezvous  are  defined,  the  rendezvous 
is  executed  with  the  higher  of  tho  two  priorities.  If  only  one  of  the  two  priorities  is  defined,  the 
rendezvous  is  executed  with  at  least  that  priority,  if  neither  is  defined,  the  priority  of  the  rendez¬ 
vous  is  undefined. 

Notes: 

The  priority  of  a  task  is  static  and  therefore  fixed.  However,  the  priority  during  a  rendezvous  Is  not  e 
necessarily  static  since  it  also  depends  on  the  priority  of  the  task  calling  the  entry.  Priorities  should 
be  used  only  to  indicate  relative  degrees  of  urgency;  they  should  not  be  used  for  task  synchroniza¬ 
tion. 

References:  declarative  part  3.9,  entry  call  statement  9.B,  integer  type  3.5.4,  main  program  10.1,  package  system  7 
13.7,  pragma  2.8,  rendezvous  9.5,  static  expression  4.9,  subtype  3.3,  task  9,  task  specification  9.1 


9.9  Task  and  Entry  Attributes 


For  a  task  object  or  value  T  the  following  attributes  are  defined:  t 

T'CALLABLE  Yields  the  value  FALSE  when  the  execution  of  the  task  designated  by  T  is  2 

either  completed  or  terminated,  or  when  the  task  is  abnormal.  Yields  the 
value  TRUE  otherwise.  The  value  of  this  attribute  is  of  the  predefined  type 
BOOLEAN. 

TTERMINATED  Yields  the  value  TRUE  if  the  task  designated  by  T  is  terminated.  Yields  the  3 

value  FALSE  otherwise.  The  value  of  this  attribute  is  of  the  predefined  type 
BOOLEAN. 

In  addition,  the  representation  attributes  STORAGE_SIZE ,  SIZE,  and  ADDRESS  are  defined  for  a  4 
task  object  T  or  a  task  type  T  (see  13.7.2). 

The  attribute  COUNT  is  defined  for  an  entry  E  of  a  task  unit  T.  The  entry  can  be  either  a  single  s 
entry  or  an  entry  of  a  family  (in  either  case  tho  name  of  the  single  entry  or  entry  family  can  be 
either  a  simple  or  an  expanded  name).  This  attribute  is  only  allowed  within  the  body  01  T,  but 
excluding  within  any  program  unit  that  is,  itself,  inner  to  the  body  of  T, 

E'COUMT  Yields  the  number  of  entry  calls  presently  queued  on  the  entry  E  (if  the  e 

attribute  is  evaluated  by  the  execution  of  an  accept  statement  for  the  entry 
E,  tho  count  does  not  include  the  calling  task),  The  value  of  this  attribute  Is 
of  tho  typo  unfversaUdteger. 

Note: 

Algorithms  interrogating  the  attribute  E'COUNT  should  take  precautions  to  allow  for  the  Increase  7 
of  the  value  of  this  attribute  for  Incoming  entry  calls,  and  Its  decrease,  for  example  with  timed  entry 
calls. 

References:  abnormal  task  9.10,  accept  statement  9.6,  attribute  4.1.4,  booleon  type  3.B.3,  completed  task  9.4,  b 
designate  9.1,  entry  9.5,  false  boolean  value  3.5.3,  queue  of  entry  calls  9.5,  storage  unit  13.7,  task  9,  task  object  9.2 
task  typo  9,1,  terminated  task  9.4,  timed  entry  call  9.7.3,  true  boolean  value  3,5.3,  universaijntegor  typo  3.6.4 
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9.10  Abort  Statamenti 


An  abort  statement  causes  one  or  more  tasks  to  become  abnormal,  thus  preventing  any  further 
rendezvous  with  such  tasks. 

8bort_statement  abort  MsA_name  I,  fas/t_namel; 

The  determination  of  the  type  of  each  task  name  uses  the  fact  that  the  type  of  the  name  is  a  task 
type, 

For  the  execution  of  an  abort  statement,  the  given  task  names  are  evaiuated  in  some  order  that  is 
not  defined  by  the  ianguage.  Each  named  task  then  becomes  abnormai  uniess  it  is  aiready  ter¬ 
minated;  similariy,  any  task  that  depends  on  a  named  task  becomes  abnormai  uniess  it  is  already 
terminated. 

Any  abnormal  task  whose  execution  Is  suspended  at  an  accept  statement,  a  select  statement,  or  a 
delay  statement  becomes  completed;  any  abnormal  task  whose  execution  Is  suspended  at  an  entry 
call,  and  that  is  not  yet  in  a  corresponding  rendezvous,  becomes  completed  and  is  removed  from 
the  entry  queue;  any  abnormal  task  that  has  not  yet  started  Its  activation  becomes  completed  (and 
hence  also  terminated).  This  completes  the  execution  of  the  abort  statement. 

The  completion  of  any  other  abnormal  task  need  not  happen  before  completion  of  the  abort  state¬ 
ment.  It  must  happen  no  later  then  when  the  abnormal  task  reaches  a  synchronization  point  that  is 
one  of  the  following;  the  end  of  Its  activation;  a  point  where  it  causes  the  activation  of  another 
task;  an  entry  call;  the  start  or  the  end  of  an  accept  statement;  a  select  statement;  a  delay  state¬ 
ment;  an  exception  handler;  or  an  abort  statement.  If  a  task  that  calls  an  entry  becomes  abnor¬ 
mal  while  in  a  rendezvous,  its  termination  does  not  take  place  before  the  completion  of  the  rendez¬ 
vous  (see  1 1.5). 


The  call  of  an  entry  of  an  abnormal  task  raises  the  exception  TASKINQ-ERROR  at  the  place  of  the 
call.  Similarly,  the  exception  TASKINQ-ERROR  Is  raised  for  any  task  that  has  called  an  entry  of  an 
abnormal  task.  If  the  entry  call  Is  still  queued  or  If  the  rendezvous  Is  not  yet  finished  (whether  the 
entry  call  Is  an  entry  call  statement,  or  a  conditional  or  timed  entry  call);  the  exception  Is  raised  no 
later  than  the  completion  of  the  abnormal  task.  The  value  of  the  attribute  CALLABLE  Is  FALSE  for 
any  task  that  Is  abnormal  (or  completed). 

If  the  abnormal  completion  of  a  task  takes  place  while  the  task  updates  a  variable,  then  the  value 
of  this  variable  Is  undefined. 

Example: 

Abort  USER,  TERMINAL.all,  P00L(3); 

Notes; 

An  abort  statement  should  be  used  only  in  extremely  severe  situations  requiring  unconditional  ter¬ 
mination.  A  task  Is  allowed  to  abort  any  task.  Including  Itself. 

References:  abnormal  In  rendezvous  1 1.6,  accept  statement  9.5,  activation  9.3,  attribute  4.1.4,  callable  (predefined 
attribute)  9.9,  conditional  entry  call  9,7,2,  delay  statement  9,8,  dependent  task  9,4,  entry  call  statement  9,6,  evalue- 
tlon  of  a  name  4.1,  exception  handler  1 1,2,  false  boolean  value  3.6.3,  name  4.1,  queue  cf  entry  calls  9,5,  rendezvous 
9.5,  select  statement  9.7,  statement  5,  task  9,  tasklng_error  exception  11.1,  terminated  task  9.4,  timed  entry  call  9.7.3 
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9.11  Shared  Verlablet 


The  normal  means  of  communicating  values  between  tasks  Is  by  entry  calls  and  accept  state¬ 
ments. 

If  two  tasks  read  or  update  a  s/taratf  variable  (that  Is,  a  variable  accessible  by  both),  then  neither  of 
them  may  assume  anything  about  the  order  in  which  the  other  performs  its  operations,  except  at 
the  points  where  they  synchronize.  Two  tasks  are  synchronized  at  the  start  end  at  the  end  of  their 
rendezvous.  At  the  start  and  at  the  end  of  Its  activation,  a  task  Is  synchronized  with  the  task  that 
causes  this  activation.  A  task  that  has  completed  Its  execution  Is  synchronized  with  any  other  task. 

For  the  actions  performed  by  a  program  that  uses  shared  variables,  the  following  assumptions  can 
always  be  made: 

e  If  between  two  synchronization  points  of  a  task,  this  task  reads  a  shared  variable  whose  type 
is  a  scalar  or  access  type,  then  the  variable  Is  not  updated  by  any  other  task  at  any  time 
between  these  two  points. 

e  If  between  two  synchronization  points  of  a  task,  this  task  updates  a  shared  variable  whose 
type  is  a  scalar  or  access  type,  than  the  variable  Is  neither  read  nor  updated  by  any  other  task 
at  any  time  between  these  two  points. 

The  execution  of  the  program  Is  erroneous  if  any  of  these  assumptions  Is  violated. 

if  G  given  task  reads  the  value  of  a  shared  variable,  the  above  assumptions  allow  an  Implementa¬ 
tion  to  maintain  local  copies  of  the  value  (for  example.  In  registers  or  In  some  other  form  of  tem¬ 
porary  storage);  and  for  as  long  as  the  given  task  neither  reaches  a  synchronization  point  nor 
updates  the  value  of  the  shared  variable,  the  above  asaumptlons  Imply  that,  for  the  given  task, 
reading  a  local  copy  Is  equivalent  to  reading  the  shared  variable  Itself. 

Similarly,  If  a  given  task  updates  the  value  of  a  shared  variable,  the  above  assumptions  allow  an 
implementation  to  maintain  a  local  copy  of  the  value,  and  to  defer  the  effective  store  of  the  local 
copy  Into  the  shared  variable  until  a  synchronization  point,  provided  that  every  further  read  or 
update  of  the  variable  by  the  given  task  Is  treated  as  a  read  or  update  of  the  local  copy.  On  the 
other  hand,  an  Implementation  Is  not  allowed  to  Introduce  a  store,  unless  this  store  would  also  be 
executed  in  the  canonical  order  (see  1 1 .6). 

The  pragma  SHARED  can  be  used  to  specify  that  eveiy  read  or  update  of  a  variable  Is  a 
synchronization  point  for  that  variable;  that  Is,  the  above  assumptions  always  hold  for  the  given 
variable  (but  not  necessarily  for  other  variablea).  The  form  of  this  pragma  is  as  follows; 

pragma  SHARED! var/s6/a_simple.nama); 

This  pragma  Is  allowed  only  for  a  variable  declared  by  an  object  declaration  and  whose  type  is  a 
scalar  or  access  type;  the  variable  declaration  and  the  pragma  must  both  occur  (In  this  order) 
Immediately  within  the  same  declarative  part  or  package  specification;  the  pragma  must  appear 
before  any  occurrence  of  the  name  of  the  variable,  other  than  In  an  address  clause. 

An  implementation  must  restrict  the  objects  for  which  the  pragma  SHARED  Is  allowed  to  objects 
for  which  each  of  direct  reading  and  direct  updating  Is  Implemented  as  an  Indivisible  operation. 

RBferences:  accept  atatemant  9.5,  activation  9.3,  aeslgnmant  5.2,  canonical  order  1 1 .6,  declarative  part  3.9,  entry 
call  atetement  9.5,  erronaoua  1.6,  global  8.1,  package  apeclflcetlon  7.1,  pragma  2.8,  reed  a  value  6.2,  rendexvoua  9.5, 
simple  name  3,1  4.1,  task  9,  type  3.3,  update  a  value  6.2,  variable  3.2.1 
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9.12  Example  of  Talking 


The  following  example  defines  a  buffering  task  to  smooth  variations  between  the  speed  of  output 
of  a  producing  task  and  the  speed  of  Input  of  some  consuming  task.  For  instance,  the  producing 
task  may  contain  the  statements 

loop 

-  prodiice  the  next  character  CHAR 
BUFFER.WRITEICHARI; 
exit  when  CHAR  =  ASCII.EOT; 
end  loop; 

and  the  consuming  task  may  contain  the  statements 
loop 

BUFFER.READ(CHAR); 

--  consume  the  character  CHAR 
exit  when  CHAR  ^  ASCII.EOT; 
end  loop; 

The  buffering  task  contains  an  Internal  pool  of  characters  processed  In  a  round-robin  fashion.  The 
pool  has  two  Indices,  an  INJNDEX  denoting  the  space  for  the  next  input  character  and  an 
OUT.INOEX  denoting  the  space  for  the  next  output  character. 

task  BUFFER  is 

entry  READ  (C  !  out  CHARACTER); 
entry  WRITE  <C  :  in  CHARACTER); 
end; 

task  body  BUFFER  Is 

POOL.SIZE  I  constant  INTEGER  100; 

POOL  :  array!  1  ..  POOL-SIZE)  of  CHARACTER; 

COUNT  :  INTEGER  range  0  ..  POOL.SIZE  0; 

INJNDEX,  OUTJNDEX  :  INTEGER  range  1  ..  POOL-SIZE  1; 
begin 
loop 
select 

when  COUNT  <  POOL-SIZE  «> 

accept  WRITEIC  :  In  CHARACTER)  do 
POOL(INJNDEX)  :*  C; 

end; 

INJNDEX  !=  INJNDEX  mod  POOL-SIZE  +  1; 

COUNT  :=  COUNT  +  1; 
or  when  COUNT  >  0  => 

accept  READ(C  :  out  CHARACTER)  do 
C  ;=  POOL(OUT-INDEX); 
end; 

OUTJNDEX  :=  OUTJNDEX  mod  POOL-SIZE  +  1; 

COUNT  :=  COUNT  -  1; 
or 

terminate; 
end  select; 
end  loop; 
end  BUFFER; 


9. 1 2  Example  of  Tasking 
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10.  Program  Struotura  and  Compilation  laeuas 


Tho  overall  structure  of  programs  and  the  facilities  for  separate  compilation  are  described  in  this 
chapter.  A  program  Is  a  collection  of  one  or  more  compilation  units  submitted  to  a  compiler  in  one 
or  more  compilations.  Each  compilation  unit  specifies  the  separate  compilation  of  a  construct 
which  can  be  a  subprogram  declaration  or  body,  a  package  declaration  or  body,  a  generic  declara¬ 
tion  or  body,  or  a  generic  Instantiation.  Alternatively  this  construct  can  be  a  subunit.  In  which  case 
it  includes  the  body  of  a  (Subprogram,  package,  task  unit,  or  generic  unit  declared  within  another 
compilation  unit. 

R0ferences:  compilation  10.1,  compilation  unit  10.1,  ganaric  body  12.2,  ganarlo  dsclaratlon  12.1,  generic 
Instantiation  12.3,  package  body  7.1,  package  declaration  7.1,  aubprogram  body  6.3,  lubprogram  daclarstlon  6.1, 
subunit  10.2,  talk  body  9,1,  task  unit  9 


10.1  Compilation  Unita  -  Library  Uyilts 


The  text  of  a  program  can  ba  submittad  to  the  compiler  In  one  or  more  compilations,  r  h  com¬ 
pilation  Is  a  succession  of  compilation  units. 

compilation  |oompilatlon_unlt| 

compllation_ijnlt  ti- 

contaxLelauaa  library...unlt  |  oontaxuolause  seoondary-unit 
library, _unit  !!» 

8ubprooram_dsclBratlon  I  paokage.dsolaration 
I  ganerlo_dsolaratlon  |  gsnerIcJnatantiatlon 
I  subprogram.body 

8econdary..unlt  llbrary_unlt_body  |  subunit 

llbrary_unitJ>ody  subprogram-body  |  package-body 

The  compilation  units  of  a  program  are  said  to  belong  to  a  program  library,  A  compilation  unit 
defines  either  a  library  unit  or  a  secondary  unit.  A  secondary  unit  is  either  the  separately  compiled 
proper  body  of  a  library  unit,  or  a  subunit  of  another  compilation  unit.  The  designator  uf  a 
separately  compiled  subprogram  (whether  a  library  unit  or  a  subunit)  must  be  an  Identifier.  Within 
a  program  library  the  simple  names  of  all  library  units  n.  ist  be  distinct  Identifiers. 

The  effect  of  compiling  a  library  unit  is  to  define  (or  redefine)  this  unit  as  one  that  belongs  to  the 
program  library.  For  the  visibility  rules,  each  library  unit  acts  as  a  declaration  that  occurs 
Immediately  within  the  package  STANDARD . 

The  effect  of  compiling  a  secondary  unit  Is  to  define  the  body  of  a  library  unit,  or  in  the  case  of  a 
subunit,  to  define  the  proper  body  of  a  program  unit  that  Is  declared  within  another  compilation 
unit. 
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A  subprogram  body  given  In  a  compilation  unit  Is  Interpreted  as  a  secondary  unit  If  the  program 
library  already  contains  a  library  unit  that  Is  a  subprogram  with  the  same  name:  It  Is  otherwise 
Interpreted  both  as  a  library  unit  and  as  the  corresponding  library  unit  body  (that  Is,  as  a  secondary 
unit). 

The  compilation  unita  of  a  compilation  are  compiled  in  the  given  order.  A  pragma  that  applies  to 
the  whole  of  a  compilation  must  appear  before  the  first  conipilatlon  unit  of  that  compilation. 

A  subprogram  that  is  a  library  unit  can  be  used  as  a  main  program  in  the  usual  sense.  Each  main 
program  acts  as  if  called  by  some  environment  task;  the  means  by  which  this  execution  is  initiated 
are  not  prescribed  by  the  language  definition.  An  Implementation  may  Impose  certain  require¬ 
ments  on  the  parameters  and  on  the  result,  If  any,  of  a  main  program  (these  requirements  must  be 
stated  in  Appendix  F).  In  any  case,  every  implementation  is  required  to  allow,  at  least,  main 
programs  that  are  parameterlesa  procedures,  and  every  main  program  must  be  a  subprogram  that 
Is  a  library  unit. 

Notes; 

A  simple  program  may  consist  of  a  single  compilation  unit.  A  compilation  need  not  have  any  com¬ 
pilation  units;  for  example,  Its  text  can  consist  of  pragmas. 

The  designator  of  a  library  function  cannot  be  an  operator  symbol,  but  a  renaming  declaration  is 
allowed  to  rename  a  library  function  as  an  operator.  Two  library  subprograms  must  have  distinct 
simple  names  and  hence  cannot  overload  each  other.  However,  renaming  declarations  are 
allowed  to  define  overloaded  names  for  such  subprograms,  and  a  lor^ally  declared  subprogram  Is 
allo\n/od  to  overload  a  library  subprogram.  The  expan  j®*'  nemo  8TAND,‘‘r:r> oho  ;.u.  used  for  a 
library  unit  L  (unless  the  name  STANDARD  Is  hldoen)  since  llbraiy  units  sot  as  declarations  that 
occur  Immediately  within  the  package  STANDARD . 

Rafarancas;  allow  1,6,  oontaxt  olsuia  10.1,1,  daclarallon  3.1,  daalgnator  6.1,  environmant  10,4,  ganarlo  daolaratlon 
12.1,  ganarlo  Instantiation  12,3,  hiding  8.3,  Idantifisr  2.3,  library  unit  10.6,  local  daclarntlon  B.1,  must  1.6,  riama  4,1, 
occur  Immidlataly  within  8.1,  operator  4,6,  operator  symbol  8.1,  overloading  6,6  8,7,  package  body  7,1,  package 
declaration  7,1,  paramater  of  a  lubprogram  6,2,  pragma  2.0,  procedure  6.1,  program  unit  6,  proper  body  3.9,  renam¬ 
ing  declaration  8.6,  simple  name  4.1,  standard  package  8.6,  subprogram  6,  subprogram  body  6.3,  subprogram 
declaration  6.1,  subunit  10.2,  task  9,  visibility  8.3 


10.1.1  Context  Clauses  With  Clauses 


A  context  clause  Is  used  to  specify  the  llbrory  units  whose  names  are  needed  within  a  compilation 
unit. 


context_clauso  |wlth_clauso  |uae_Glauae|| 

with„clau8a  with  ur»/f_almplo_name  I,  un/t_slmple_name|; 

The  names  that  appear  In  a  context  clause  must  be  the  simple  names  of  library  units.  The  simple 
name  of  any  library  unit  la  allowed  within  a  with  clause.  The  only  names  allowed  In  a  use  clause  of 
a  context  clause  are  the  simple  names  of  library  packages  mentioned  by  previous  with  clauses  of 
the  context  clause.  A  simple  name  declared  by  a  renaming  declaration  Is  not  allowed  In  a  context 
clause. 

The  with  clauses  and  use  clauses  of  the  context  clause  of  a  library  unit  apply  to  this  library  unit  and 
also  to  the  secondary  unit  that  defines  the  corresponding  body  (whether  such  a  clause  Is  repeated 
or  not  for  this  unit).  Similarly,  the  with  clauses  and  use  clauses  of  the  context  clause  of  a  compila¬ 
tion  unit  apply  to  this  unit  and  also  to  Its  subunits,  If  any. 


W.t.1  Context  Clauses  -  With  Clauses 
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If  a  library  unit  Is  named  by  a  with  clause  that  applies  to  a  compilation  unit,  then  this  library  unit  Is 
directly  visible  within  the  compilation  unit,  SKcept  where  hidden;  the  library  unit  is  visible  as  if 
declared  immediately  within  the  package  STANDARD  jsee  8.6). 

Dependences  among  compilation  units  are  defined  by  with  clauses;  that  is,  a  compilation  unit  that 
mentions  other  library  units  In  Its  with  clauses  deptnds  on  those  library  units.  These  dependences 
between  units  are  taken  Into  account  for  the  determination  of  the  allowed  order  of  compilation 
(and  recompilation)  of  compilation  units,  as  explained  In  section  1 0.3,  and  for  the  determination  of 
the  allowed  order  of  elaboration  of  compilation  units,  as  explained  In  section  10.5. 

Notes: 

A  library  unit  named  by  a  with  clause  of  a  compilation  unit  is  visible  (except  where  hidden)  within 
the  compilation  unit  and  hence  can  bo  used  as  a  corresponding  program  unit.  Thus  within  the 
compilation  unit,  the  name  of  a  library  package  can  be  given  In  use  clauses  and  can  be  used  to 
forn't  expanded  names:  a  library  subprogram  can  be  called;  and  instances  of  a  library  generic  unit 
can  be  declared. 

The  rules  given  for  with  clauses  are  such  that  the  same  effect  Is  obtained  whether  the  name  of  a 
library  unit  Is  mentioned  once  or  more  than  once  by  the  applicable  with  clauses,  or  even  within  a 
given  with  clause. 

Example  1  :  A  mein  program: 

The  fbllowing  Is  an  example  of  a  main  program  consisting  of  a  single  compilation  unit;  a  procedure 
for  printing  the  real  roots  of  a  quadratic  equation.  The  predefined  package  TEXT.IO  and  a  uaer- 
definad  package  REAL.OPERATIONS  (containing  the  definition  of  the  type  REAL  and  of  the 
packages  REAL.I0  and  REAL-FUNCTIONS )  are  assumed  to  be  already  present  In  the  program 
library'  Such  packages  may  bo  used  by  other  main  programs. 

with  TEXTJO,  REAL.OPERATIONS;  use  REAL.OPERATIONS; 
prooedure  QUADRATIC.EQUATION  la 
A  B  C  D  I  REAL' 

use  REAU-IO,  ••  aohlevas  direct  visibility  of  GET  and  PUT  for  REAL 

TEXTJO,  -  achieves  direct  visibility  of  PUT  for  strings  and  of  NEW-LINE 

REAl^FUNCTIONS;  »  achieves  direct  visibility  of  SORT 

begin 

QET(A):  aET(B):  GET(C); 

D  '.•=  B+*2  -  4.0*A*C; 
if  D  <  0.0  then 

PUTC Imaginary  Roots."): 

else 

PUTC'Real  Roots  ;  XI  »  "); 

PUT((-B  ■  SQRT(D))/(2.0*A));  PUT("  X2  -  "): 

PUT((-B  +  SQRT(D))/(2.0*A)): 
end  if; 

NEW-LINE; 

end  QUADRATIC-EQUATION; 

Notes  on  the  example; 

The  with  clauses  of  a  compilation  unit  need  only  mention  the  names  of  those  library  subprograms 
and  packages  whose  violbillty  Is  actually  necessary  within  the  unit.  They  need  not  (and  should  not) 
mention  other  library  units  that  are  used  in  turn  by  some  of  the  units  named  In  the  with  clauses, 
unless  these  other  library  units  are  also  used  directly  by  the  current  compilation  unit.  For  example, 
the  body  of  the  package  REAL-OPERATIONS  may  need  elementary  operations  provided  by  other 
packages.  The  latter  packages  should  not  be  named  by  the  with  clause  of  QUADRATIC-EQUATION 
since  these  elementary  operations  are  not  directly  celled  within  Its  body. 
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fieferences;  allow  1.B,  compilation  unit  10.1,  direct  vlaiblllty  6.3,  elaboration  3.9,  generic  body  12.2,  generic  unit 

12.1,  hiding  6.3.  Instance  12.3,  library  unit  10.1,  main  program  10.1,  muat  1.6,  name  4.1,  package  7,  package  body 

7.1.  package  declaration  7.1,  procadura  6.1,  program  unit  6,  aecondary  unit  10.1,  aimple  name  4,1,  standard 
predollned  package  8.6,  aubprogram  body  6.3,  subprogram  declaration  6.1,  subunit  10.2,  type  3.3,  use  clause  8.4, 
visibility  8.3 


10.1.2  Examplae  of  Compilation  Unite 


A  compilation  unit  can  be  split  Into  a  number  of  compilation  units.  For  example,  consider  the  fol¬ 
lowing  program. 

procadura  PROCEGSOR  is 

SMALL  I  constant  :»  20'. 

TOTAL  !  INTSGF.R  !»  0; 

paokaae  STOCK  Is 

LIMIT  :  constant  1000: 

TABLE  :  srray  (1  ..  LIMIT)  of  INTEGER; 
procedure  RESTART; 
end  STOCK; 

package  body  STOCK  Is 
procedure  RESTART  la 
begin 

for  N  In  1  ..  LIMIT  loop 
TABLEINI  !»  N; 
end  loop; 
end; 
begin 
RESTART; 
end  STOCK; 

procedure  UP0ATE(X  !  INTEGER)  Is 
use  STOCK; 
begin 

TAB  LEIX)  TABLEIX)  +  SMALL; 

and  UPDATE; 
begin 

STOCK, RESTART;  -  reinitialises  TABLE 
end  PROCESSOR; 

The  following  three  compilation  units  dofine  s  program  with  an  effect  equivalent  to  the  above 
example  (the  broken  lines  between  compilation  units  serve  to  remind  the  reader  that  those  units 
need  not  bo  contiguous  texts). 


10.1 .2  Examples  of  Cornplhit/on  Units 
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Example  2  :  Several  compilation  units: 

package  STOCK  la 

LIMIT  :  oonatant  1000; 

TABLE  :  array  |1  ..  LIMIT)  of  INTEGER: 
prooadura  RESTART; 
and  STOCK; 


package  body  STOCK  ia  i' 

procedure  RESTART  ia 
begin 

for  N  In  1  ..  LIMIT  loop 
TAB  LEIN)  N; 
end  loop; 
end; 
begin 
RESTART: 
end  STOCK; 


with  STOCK:  ' 

prooedure  PROCESSOR  ia 

SMALL  ;  oonatant  20; 

TOTAL  .  INTEGER  0; 

prooedure  UPDATEjX  ;  INTEGER)  la 
uae  STOCK; 
begin 

TABLEIX)  !-  TABLE(X)  +  SMALL; 

end"  UPDATE; 
begin 

STOCK, RESTART:  --  relnltlalliea  TABLE 
end  PROCESSOR; 

Note  that  In  th«  latter  veralon,  the  package  STOCK  haa  no  vlalblllty  of  outer  Identlflera  other  than  i 
the  predefined  Identlflera  (of  the  package  STANDARD).  In  particular,  STOCK  doea  not  uae  any 
Identifier  declared  In  PROCESSOR  auch  aa  SMALL  or  TOTAL;  otherwlae  STOCK  rould  not  have 
been  extraotod  from  PROCESSOR  In  the  above  manner.  The  prooedure  PROCESSOR ,  on  the  other 
hand,  dependa  on  STOCK  and  mentlona  thia  package  In  a  with  olauae.  Thla  permits  the  Inner 
occurrenoea  of  STOCK  In  the  expanded  name  STOCK  .RESTART  and  In  the  uae  clause. 

Thoae  three  compilation  unite  can  be  submitted  In  one  or  more  compilations,  For  example,  It  Is  « 
possible  to  submit  the  package  specification  and  the  package  body  together  and  In  this  order  In  a 
]  single  compilation. 

References:  oompIlBtion  unit  1 0, 1 ,  diolaratlon  3, 1 ,  IdBotlfler  2.3,  pBokso*  7,  pBckBgn  body  7,1,  paokaon  apBcIfloatlon  m 
7,1,  program  10,  standard  paokags  8,8,  ubb  oIsubb  8.4,  vrlBlblilty  8,3,  with  oIbubb  10,1.1 
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10.2  Subunits  of  Compilation  Units 


A  subunit  Is  used  for  the  soparari  compilation  of  the  proper  body  of  a  program  unit  declared  within 
another  compilation  unit,  This  method  of  splitting  a  program  permits  hierarchical  program 
development. 

body_8tub 

subprogram-spaolficatlon  la  aaparsts; 

I  paokage  body  pac^aga_jlmpla_nama  la  aapsrata; 

I  task  body  ra5A_almpla_nama  is  saparata; 

subunit 

aaparata  (p,vn»n(_un/t_nama)  proparJ)ody 

A  body  stub  Is  only  allowed  as  the  body  of  a  program  unit  (a  tubprogram,  a  package,  a  task  unit,  or 
a  generic  unit!  If  the  body  atub  occurs  Immediately  within  either  the  apeulficatlon  of  a  library 
package  or  the  declarative  part  of  another  compilation  unit. 

If  the  body  of  a  program  unit  la  a  body  atub,  a  aaparataly  compiled  aubunit  containing  the  oor- 
respondlng  proper  body  is  required.  In  the  caae  of  a  aubprog.am,  the  aubprogram  apaclficatlons 
given  in  the  proper  body  and  In  the  body  atub  muat  conform  (aea  6.3.1). 

Each  subunit  mentions  the  name  of  Ita  partnt  unit,  that  Is,  the  compilation  unit  where  the  oor- 
raapondlng  body  stub  lu  given.  If  the  parent  unit  Is  a  library  unit,  it  Is  called  the  ancestor  llbrar/  unit. 
If  the  parent  unit  la  Itself  a  subunit,  tha  parent  unit  name  muat  bs  given  In  full  as  an  expanded 
name,  starting  with  tha  ilmple  name  of  tha  anoaator  library  unit.  The  aimple  names  of  all  aubunlta 
that  have  tha  same  onoattr^r  library  unit  muat  ba  distinct  Idantifiars. 

Visibility  within  tha  proper  body  of  a  subunit  la  tha  vialblllty  that  would  be  obtained  at  tha  plooa  of 
the  corresponding  body  atub  (within  tha  parent  unit)  If  the  with  clauaea  and  uia  olauaes  of  tha  nub> 
unit  were  appended  to  the  context  clause  of  the  parent  unit.  If  the  parent  unit  Is  Itaelf  a  aubunit, 
then  the  same  rule  Is  uaad  to  define  tha  visibility  within  the  proper  body  of  the  parent  unit. 

The  affect  of  the  elaboration  of  a  body  stub  Is  to  alaborate  the  proper  body  of  the  subunit. 

Notes: 

Two  subunits  of  different  library  units  In  the  same  program  library  need  not  have  distinct  Iden¬ 
tifiers.  In  any  case,  their  full  expanded  names  ere  distinct,  since  the  simple  names  of  library  units 
are  distinct  and  since  the  simple  names  of  all  aubunlta  that  have  a  given  library  unit  ns  ancestor 
unit  are  also  distinct.  By  means  of  renaming  declarations,  overloaded  subprogram  names  that 
rename  (distinct)  aubunlta  can  be  Introduced. 

A  library  unit  that  la  named  by  the  with  cliuse  of  a  aubunit  can  be  hidden  by  a  declaration  (with  the 
same  Identifier)  given  In  the  proper  body  of  the  aubunit.  Moreover,  such  a  library  unit  can  even  be 
hidden  by  a  declaration  given  within  a  parent  unit  since  a  library  unit  acta  as  if  declared  In 
standard;  this  however  does  not  affect  the  Interpretation  of  the  with  clauses  themselves,  since 
only  names  of  library  unite  can  appear  In  with  clauaea. 


fO.2  Subun/ts  of  Compilation  Units 


10-6 


Program  Structure  and  Compilation  laaues 


References;  compilation  unit  10,1,  conform  6,3,1,  context  clauaa  10,1,1,  declaration  3,1,  declarative  part  3.9,  direct 
vlalblllty  8.3,  elaboration  3.9,  expanded  name  4,1.3,  generic  body  12.2,  generic  unit  12,  hidden  declaration  6.3,  Iden¬ 
tifier  2.3,  library  unit  10,1,  local  declaration  6. 1 ,  name  4, 1 ,  occur  Immediately  within  8. 1 ,  overloading  8,3,  package  7, 
package  body  7.1,  package  apecifloatlon  7.1,  program  10,  program  unit  6,  proper  body  3.9,  renaming  declaration  8.5, 
leparate  compilation  10.1,  simple  name  4.1,  aubprogram  6,  subprogram  body  8.3,  subprogram  specification  8.1,  task 
9,  task  body  9.1,  task  unit  9.1,  use  clause  8,4,  visibility  8.3,  with  clause  10.1.1 


10.2.1  Examplae  of  Subunits 


The  procedure  TOP  is  first  written  as  a  compilation  unit  without  subunits. 

with  TEXTJO; 
proeadurs  TOP  la 

type  REAL  Is  dlfflta  10; 

R,  S  :  REAL  1.0; 

paoksse  FACILITY  la 

PI  :  constant  3.14169_2663fl; 
function  P  (X  :  REAL)  return  REAL; 
procedure  0  (V,  2  :  REAL); 
end  FACILITY; 

package  body  FACILITY  la 

-  some  loosl  declarations  followed  by 

function  FIX  i  REAL)  return  REAL  la 
begin 

osquonos  of  statemanta  of  F 

tt« 

end  F; 

procedure  Q(Y,  2  :  REAL)  la 

-  local  prooadurei  uaing  TEXT.IO 

begin 

"  sequence  of  atatementa  of  G 
and  Q; 

end  FACILITY; 

procedure  TRANSFORMIU  ;  In  out  REAL)  la 
use  FACILITY; 
begin 

U  F(U); 

and  TRANSFORM; 
begin  -  TOP 
TRANSFORM(R); 

FACILITY.QIR,  S); 
and  TOP: 


10-7 


Examples  of  Subunits  10.2.1 


ANSI/M/L-STD-1 81 5A  Ada  Reference  .  tanual 


The  body  of  the  package  FACILITY  and  that  of  the  procedure  TRANSFORM  can  be  made  into 
separate  subunits  of  TOP.  Similarly,  the  body  of  the  procedure  G  can  be  made  into  a  subunit  of 
FACILITY  as  follows. 

Example  3: 

procedure  TOP  it 

type  REAL  it  digits  10; 

R,  S  :  REAL  :=  1.0; 

package  FACIIITY  it 

P'  ••  constant  :=  3.14169^26536; 
function  F  (X  ;  REAL)  return  REAL; 
procedure  G  (Y,  Z  :  REAL); 
end  FACILITY: 

package  body  FACILITY  ie  separate;  --  stub  of  FACILITY 

procedure  TRANSFORMIU  ;  in  out  REAL)  Is  eeparate;  —  stub  of  TRANSFORM 

begin  -  TOP 
TRANSFORM(R): 

FACILITY.GIR,  S); 
end  TOP; 


separate  (TOP) 

procedure  TRANSFORMIU  :  in  out  REAL)  is 
use  FACILITY; 
begin 

U  :=  F(U); 

end  TRANSFORM; 


separate  (TOP) 

package  body  FACILITY  ie 

-  some  local  declarations  followed  by 

function  F(X  :  REAL)  return  REAL  is 
I  eqin 

-  seouence  of  statements  of  F 


end  F; 

procedure  niY,  ;  REAL)  is  separate;  stub  of  G 

end  FACIIJTY; 


1 0.2, 1  Examples  of  Subunits 
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with  TEXT_IO; 

separate  (TOP.PACILITY)  -  full  name  of  FACi:,ITy 

procedure  G(Y.  Z  :  REAL)  Is 

-  local  procedures  using  TEXT_IO 

begin 

-  sequence  of  statemt  is  of  Q 
end  G; 

In  the  above  example  TRANSFORM  and  FACILITY  are  subunits  of  TOP,  and  G  Is  a  subunit  of 
FACILITY.  The  visibility  in  the  split  version  is  the  same  as  In  the  Initial  version  except  for  one 
change:  since  TEXT.IO  is  only  used  within  G,  the  corresponding  with  clause  is  written  tor  G 
instead  of  for  TOP.  Apart  from  this  change,  the  same  identifiers  are  visible  at  corresponding 
program  points  in  the  two  versions.  For  example,  all  of  the  following  are  (directly)  visible  v/lthln 
the  proper  body  of  the  subunit  G:  the  procedure  TOP,  the  type  REAL,  the  variables  R  and  S,  the 
package  FACILITY  and  the  contained  named  number  Pi  and  subprograms  F  and  G. 

References;  body  stub  10.2,  complldtion  unit  10.1,  Idantifiar  2.3,  local  declaration  8.1 ,  named  number  3.2,  package 
7,  package  body  7.1,  procedure  0,  procedure  body  6.3,  proper  body  3.9,  subprogram  6,  type  3.3,  variable  3.2.1, 
visibility  8.3,  with  clause  10.1.1 


10.3  Order  of  Compilation 


The  rules  defining  the  order  In  which  units  can  be  compiled  are  direct  consequences  of  the  visibility 
rules  and.  In  particular,  of  the  fact  that  any  library  unit  that  Is  mentioned  by  the  context  clause  of  a 
compilation  unit  is  visible  In  the  compilation  unit 

A  compilation  unit  must  be  complied  after  all  library  unita  named  by  Its  context  clause.  A  secon¬ 
dary  unit  that  Is  a  subprogram  or  package  body  must  be  compiled  after  the  corresponding  library 
unit.  Any  subunit  of  a  parent  compilation  unit  must  be  compiled  after  the  parent  compilation  unit. 

If  any  error  is  detected  while  attempting  to  compile  a  compilation  unit,  then  the  attempted  cem- 
pllatlon  is  rejected  and  it  has  no  effect  whatsoever  on  the  program  lib:  ary;  the  same  holds  for 
recompilations  (no  compilation  unit  can  become  obsolete  because  of  such  a  recompilation). 

The  order  in  which  the  compilation  units  of  a  program  are  compiled  must  be  consistent  with  the 
partial  ordering  defined  by  the  above  rules. 

Similar  rules  apply  for  recompilations.  A  compilation  unit  is  potentially  affected  by  a  change  In  any 
library  unit  named  by  Its  context  clause.  A  secondary  unit  is  potentially  affected  by  a  change  In  the 
corresponding  library  unit.  The  subunits  of  a  parent  compilation  unit  are  potentially  affected  by  a 
change  of  the  parent  compilation  unit.  If  a  compilation  unit  Is  successfully  recompiled,  the  com¬ 
pilation  units  potentially  affected  by  this  change  are  obsolete  and  must  be  recompiled  unless  they 
are  no  longer  needed.  An  Implementation  may  be  able  to  reduce  the  compilation  costs  If  It  can 
deduce  that  some  of  the  potentially  affected  units  are  not  actually  affected  by  the  change. 
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The  subunits  of  a  unit  can  be  recompiled  without  affecting  the  unit  Itself.  Similarly,  changes  In  a 
subprogram  or  package  body  do  not  affect  other  compilation  units  (apart  from  the  subunits  of  the 
body)  since  these  compilation  units  only  have  access  to  the  subprogram  or  package  specification. 
An  implementation  is  only  allowed  to  deviate  from  this  rule  for  inline  inclusions,  for  certain  com¬ 
piler  optimizations,  and  for  certain  implementations  of  generic  program  units,  as  described  below. 

e  If  a  pragma  INLINE  Is  applied  to  a  subprogram  declaration  given  In  a  package  specification, 
inline  inclusion  wili  oniy  be  achieved  If  the  package  body  is  compiled  before  units  calling  the 
subprogram.  In  such  a  case,  Inline  Inclusion  creates  a  dependence  of  the  calling  unit  on  the 
package  body,  and  the  compiler  must  recognize  this  dependence  when  deciding  on  the  need 
for  recompilation.  If  a  calling  unit  Is  compiled  before  the  package  body,  the  pragma  may  be 
ignored  by  the  compiler  for  such  calls  (a  warning  that  inline  inclusion  was  not  achieved  may 
be  issued).  Similar  considerations  apply  to  a  separately  compiled  subprogram  for  which  an 
INLINE  pragma  is  specified. 

e  For  optimization  purposes,  an  implementation  may  compile  several  units  of  a  given  compila¬ 
tion  in  a  way  that  creates  further  dependences  among  these  compilation  units.  The  compiler 
must  then  take  these  dependences  into  account  when  deciding  on  the  need  for  recompila¬ 
tions. 

•  An  implementation  may  require  that  a  generic  declaration  and  the  corresponding  proper  body 
be  part  of  the  same  compilation,  whether  the  generic  unit  Is  itself  separately  compiled  or  Is 
local  to  another  compilation  unit.  An  implementation  may  also  require  that  subunits  of  a 
generic  unit  be  part  of  the  same  compilation. 

Examples  of  Compilation  Order: 

(a)  In  example  1  (see  10.1.1):  The  procedure  QUADRATIC-EQUATION  must  be  compiled  after  the 
library  packages  TEXTJO  and  REAL-OPERATIONS  since  they  appear  In  Its  with  clause. 

(b)  In  example  2  (see  10.1.2):  The  package  body  STOCK  must  be  compDed  after  the 
corresponding  package  specification. 

(c)  In  example  2  (see  10.1.2):  The  epacificatlon  of  the  package  STOCK  must  be  compiled  before 
the  procedure  PROCESSOR .  On  the  other  hand,  the  procedure  PROCESSOR  can  be  compiled 
either  before  or  after  the  package  body  STOCK . 

(d)  In  example  3  (see  10.2.1):  The  procedure  G  must  be  complied  after  the  package  TEXT._IO 
since  this  package  Is  named  by  the  with  clause  of  G.  On  the  other  hand,  TEXT_I0  can  be 
compiled  either  uofore  or  after  TOP . 

(e)  In  exa.nple  3  (see  10.2.1):  The  subunits  TRANSFORM  and  FACILITY  must  be  complied  after 
the  main  program  TOP.  Similarly,  the  subunit  G  must  be  compiled  after  its  parent  unit 
FACILITY. 

Notes: 

For  libinry  packages.  It  follows  from  the  recompilation  rules  that  a  package  body  is  made  obsolete 
by  the  recompilation  of  the  corresponding  speciflcetion.  If  the  new  package  specification  is  such 
that  a  package  body  Is  not  required  (that  Is,  If  the  package  specification  does  not  contain  the 
declaration  of  a  program  unit),  then  the  recompilation  of  a  body  for  this  package  Is  not  required.  In 
any  case,  the  obsolete  package  body  must  not  be  used  and  can  therefore  be  deleted  from  the 
program  library. 


10.3  Order  of  Compilation 
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References:  compilation  10.1,  compilation  unit  10,1,  context  clause  10.1,1,  elaboration  3.9,  generic  body  12.2, 
generic  declaration  12.1,  generic  unit  12,  library  unit  10.1,  local  declaration  8.1,  name  4.1,  package  7,  package  body 
7.1,  package  specification  7,1,  parent  unit  10,2,  pragma  Inline  6,3.2,  procedure  6.1 ,  procedure  body  6.3,  proper  body 
3.9,  secondary  unit  10.1,  subprogram  body  6.3,  subprogram  declaration  6.1.  subprogram  specification  6.1.  subunit 
10.2,  type  3.3,  variable  3.2.1,  visibility  8.3,  with  clause  10.1.1 


10.4  The  Program  Library 


Compilers  are  required  to  enforce  the  language  rules  in  the  same  manner  for  a  program  consisting 
of  several  compilation  units  (and  subunits)  as  for  a  program  submitted  as  a  single  compilation. 
Consequently,  a  library  file  containing  Information  on  the  compilation  units  of  the  prograni  library 
must  be  maintained  by  the  compiler  or  compiling  environment.  This  Information  may  Include  sym¬ 
bol  tables  and  other  Information  pertaining  to  the  order  of  previous  compilations. 

A  normal  submission  to  the  compiler  consists  of  the  compilation  unit(s)  and  the  library  file.  The 
latter  is  used  for  checks  and  Is  updated  for  each  compilation  unit  successfully  compiled. 

Notes: 

A  single  program  library  Is  implied  for  the  compilation  units  of  a  compilation.  The  possible 
existence  of  different  program  libraries  and  the  means  by  which  they  are  named  are  not  concerns 
of  the  language  definition;  they  are  concerns  of  the  programming  environment, 

There  should  be  commands  for  creating  the  program  library  of  a  given  program  or  of  a  given  family 
of  programs.  Those  commands  may  permit  the  reuse  of  units  of  other  program  libraries.  Finally, 
there  should  be  commands  for  Interrogating  the  status  of  the  units  of  a  program  library,  The  form 
of  these  commands  Is  not  specified  by  the  language  definition. 

References:  compilation  unit  10,1.  context  clause  10.1.1,  order  of  compilation  10.3,  program  10,1,  program  library 
10.1,  subunit  10.2  use  clausa  8.4,  with  clause  10.1,1 


10.5  Elaboration  of  Library  Unite 


Before  the  execution  of  a  main  program,  all  library  units  needed  by  the  main  program  are 
elaborated,  as  well  as  the  corresponding  library  unit  bodies,  if  any.  The  library  units  needed  by  the 
main  program  are;  those  named  by  with  clauses  applicable  to  the  main  program,  to  Its  body,  and 
to  Its  subunits;  those  named  by  with  clauses  applicable  to  these  library  units  themselves,  to  the 
corresponding  library  unit  bodies,  and  to  their  subunits;  and  so  on.  In  a  transitive  manner. 

The  elaboration  of  these  library  units  and  of  the  corresponding  library  unit  bodies  is  performed  In 
an  order  consistent  with  the  partial  ordering  defined  by  the  with  clauses  (see  10.3).  In  addition,  a 
library  unit  mentioned  by  the  context  clause  of  a  subunit  must  be  elaborated  before  the  body  of  the 
ancestor  library  unit  of  the  subunit. 

An  order  of  elaboration  that  la  consistant  with  this  partial  ordering  does  not  always  ensure  that 
each  library  unit  body  la  elaborated  before  any  other  compllntlon  unit  whose  elaboration  neces¬ 
sitates  that  the  library  unit  body  be  already  elaborated.  If  the  prior  elaboration  of  library  unit 
bodies  is  needed,  this  can  be  requested  by  a  pragma  ELABORATE .  The  form  of  this  pragma  Is  as 
follows: 

pragma  ELABORATE  (//6rarv'._un/f_8lmple_name  |,  //6ra/'y_un/f_8lmple_name)); 
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These  pragmas  are  only  allowed  Immediately  after  the  context  clause  of  a  compilation  unit  (before 
the  subsequent  library  unit  or  secondary  unit).  Each  argument  of  such  a  pragma  must  be  the  sim¬ 
ple  name  of  a  library  unit  mentioned  by  the  context  clause,  and  this  library  unit  must  have  a  library 
unit  body.  Such  a  pragma  specifies  that  the  library  unit  body  must  be  elaborated  before  the  given 
compilation  unit.  If  the  given  compilation  unit  Is  a  subunit,  the  library  unit  body  must  be 
elaborated  before  the  body  of  the  ancestor  library  unit  of  the  subunit. 

The  program  is  Illegal  If  no  consistent  order  can  be  found  (that  Is,  if  a  circularity  exists).  The 
elaboration  of  the  compilation  units  of  the  program  is  performed  in  some  order  that  is  otherwise 
not  defined  by  the  language. 

References:  allow  1.6,  argument  of  a  pragma  2,8,  compilation  unit  10.1 ,  context  clause  10.1 ,1,  dependence  between 
compilation  units  10.3.  elaboration  3.9.  illegal  1.6,  In  aome  order  1.6,  library  unit  10.1 ,  name  4.1.  main  program  10.1, 
pragma  2.8,  seccndary  unit  10.1.  separate  compilation  10.1,  simple  name  4.1,  subunit  10.2,  with  clause  10.1.1 


10.6  Program  Optimliation 

Optimization  of  the  elaboration  of  declarations  and  the  execution  of  statements  may  be  performed 
by  compilers.  In  particular,  a  compiler  may  be  able  to  optimize  a  piogram  by  avaluatlng  certain 
expressions.  In  addition  to  those  that  are  static  expressions.  Should  one  of  these  expressions, 
whether  static  or  not,  be  such  that  an  exception  would  be  raised  by  its  evaluation,  then  the  code  In 
that  path  of  the  program  can  be  replaced  by  code  to  raise  the  exception;  the  same  holds  for  excep¬ 
tions  raised  by  the  evaluation  of  names  and  simple  expressions.  (See  also  section  11.6.) 

A  compiler  may  find  that  some  statements  or  subprograms  will  never  be  executed,  for  example,  If 
their  execution  depends  on  a  condition  known  to  be  FALSE .  The  corresponding  object  machine 
code  can  then  bo  omitted.  This  rule  permits  the  effect  of  conditional  compilation  within  the 
language. 

Note; 

An  expression  whose  evaluation  Is  known  to  raise  an  exception  need  not  represent  an  error  If  It 
occurs  in  a  statement  or  subprogram  that  Is  never  executed.  The  compiler  may  warn  the  program  ■ 
mar  of  a  potential  error. 

References:  condition  B.3,  declaration  3.1,  elaboration  3.9,  evaluation  4,B,  exception  11,  expraaalon  4,4,  falae 
boolean  value  3,6.3,  program  10,  raialng  of  exceptions  11,3,  atatament  B,  atatic  expression  4,9,  subprogram  6 
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This  chapter  defines  the  facilities  for  dealing  with  errors  or  other  exceptional  situations  that  arise  i 
during  program  execution.  Such  a  situation  is  called  an  axcaption.  To  raise  an  exception  Is  to 
abandon  normal  program  execution  so  as  to  draw  attention  to  the  fact  that  the  corresponding 
situation  has  arisen.  Executing  some  actions,  in  response  to  the  arising  of  an  exception,  Is  called 
handling  the  exception. 

An  exception  declaration  declares  a  name  for  an  exception.  An  exception  can  be  raised  by  a  raise  2 
statement,  or  It  can  be  raised  by  another  statement  or  operation  that  propagates  the  exception. 

When  an  exception  arises,  control  can  be  transferred  to  a  user-provided  exception  handler  at  the 
end  of  a  block  statement  or  at  the  and  of  the  body  of  a  subprogram,  package,  or  task  unit. 

References;  block  itatamant  5.6,  arror  iltuatlon  1.6,  axoaptlon  handler  11.2,  name  4.1,  package  body  7.1,  3 

prupagatlon  of  an  exception  11.4.1  11.4.2,  raise  atatemant  11.3,  subprogram  body  6.3,  task  body  9.1 


11.1  Exception  Oaoiaretlons 


An  exception  declaration  declares  a  name  for  an  exception.  The  name  of  an  exception  can  only  be  t 
used  In  raise  statements,  exception  handlers,  and  renaming  declarations. 

exceptlon_doclaratlon  ;:a  IdantIflerJIst  :  axoaptlon;  3 

An  exception  declaration  with  several  identifiers  is  equivalent  to  a  sequence  of  single  exception  3 
declarations,  as  explained  In  section  3.2.  Each  single  exception  declaration  declares  a  name  for  a 
different  exception.  In  particular,  if  a  genetic  unit  Includes  an  exception  declaration,  the  exception 
declarations  Implicitly  generated  by  different  Instantiations  of  the  generic  unit  refer  to  distinct 
exceptions  (but  all  have  the  same  Identifier).  The  particular  exception  denoted  by  an  exception 
name  Is  determined  at  compilation  time  and  Is  the  same  regardless  of  how  many  times  the  excep¬ 
tion  declaration  Is  elaborated.  Hence,  If  an  exception  declaration  occurs  In  a  recursive  subprogram, 
the  exception  name  denotes  the  same  exception  for  all  invocations  of  the  recursive  subprogram. 

The  following  exceptions  are  predefined  in  the  language;  they  are  raised  when  the  s'ijotlons  < 
described  are  detected. 

CONSTRAINT_ERROR  This  exception  la  raised  In  any  of  the  following  situations:  upon  an  s 

attempt  to  violate  e  range  constraint,  an  Index  constraint,  or  a  dis¬ 
criminant  conatraint;  upon  an  attempt  to  use  a  record  component  that 
dues  not  exist  for  the  current  discriminant  values;  and  upon  an 
attempt  to  use  a  selected  component,  an  Indexed  component,  a  slice, 
or  an  attribute,  of  an  object  designated  by  an  access  value,  if  the 
object  does  not  exist  because  the  access  value  Is  null. 
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NUMERIC_ERROR  This  exception  is  raised  by  the  execution  of  a  predefined  numeric  operation 
that  cannot  deliver  a  correct  result  (within  the  declared  accuracy  for  real 
types);  this  Includes  the  case  where  an  Implementation  uses  a  predefined 
numeric  operation  for  the  execution,  evaluation,  or  elaboration  of  some 
construct.  The  rules  given  in  section  4.5.7  define  the  cases  In  which  an 
Implementation  Is  not  required  to  raise  this  exception  when  such  an  error 
situation  arises;  see  also  section  1 1 .6. 


PROGRAM._ERROR  This  exception  is  raised  upon  an  attempt  to  call  a  subprogram,  to  activate  a 
task,  or  to  elaborate  a  generic  instantiation,  if  the  body  of  the  cor¬ 
responding  unit  has  not  yet  been  elaborated.  This  exception  is  also  raised  if 
the  end  of  a  function  la  reached  (see  6.5);  or  during  the  execution  of  a 
selective  wait  that  has  no  else  part.  If  this  execution  determines  that  all 
alternatives  are  closed  (see  9.7.1).  Finally,  depending  on  the  implementa¬ 
tion,  this  exception  may  be  raised  upon  an  attempt  to  execute  an  action 
that  is  erroneous,  and  for  Incorrect  order  dependences  (see  1.6). 

STORAQE_ERROR  This  exception  Is  raised  In  any  of  the  following  sltuatlonst  whan  the  dyna¬ 
mic  storage  allocated  to  a  task  Is  exceeded;  during  the  evaluation  of  an 
allocator,  If  the  apace  available  for  the  collection  of  allocated  objects  Is 
exhausted;  or  during  the  elaboration  of  a  declarative  item,  or  during  the 
execution  of  a  subprogram  call.  If  storage  Is  not  sufficient. 

TASKING_ERROR  This  exception  Is  raised  when  exceptions  arise  during  Intertask  communi¬ 
cation  (see  9  and  1 1.5). 


Note; 

The  situations  described  above  can  arise  without  raising  the  corresponding  exceptions,  If  the 
pragma  SUPPRESS  has  been  used  to  give  permission  to  omit  the  corresponding  checks  (see  1 1 ,7). 

Examples  of  user-defined  exception  decleratlons: 

SINGULAR  :  exeeption; 

ERROR  !  exoeptlon; 

OVERFLOW,  UNDERFLOW  :  exception; 

References:  aooeai  value  3.8,  uollactlon  3.6,  declaration  3.1,  exception  1 1,  exception  handler  1 1.2,  ganarlc  body 
12.2,  generic  Instantiation  12.3,  generic  unit  12,  Identifier  2.3,  Implicit  declaration  12.3,  Instantiation  12.3,  name  4.1, 
object  3.2,  raise  statement  1 1.3,  real  type  3.B.6,  record  component  3.7,  return  statement  6.8.  subprogram  6,  sub- 
piogram  body  6.3.  task  9,  task  body  9.1 

Constreht-arror  exception  contexts;  aggregate  4.3.1  4.3.2,  allocator  4.8,  assignment  statement  5.2  6.2.1, 
constraint  3.3.2,  discrete  type  attribute  3.6.6,  discriminant  constraint  3.7.2,  elaboration  of  a  generic  formal  parameter 
12.3.1  12.3.2  12.3.4  12.3.6,  entry  Index  9.6,  exponentiating  operator  4.6.6,  Index  constraint  3.0.1,  Indexed  compo¬ 
nent  4.1.1,  logical  operator  4.6.1,  null  aooess  value  3.8,  object  declaration  3.2,1,  paremeter  esaoclatlon  6.4.1, 
qualified  expression  4.7,  range  constraint  3.6,  trelsoted  component  4.1.3,  slice  4.1.2,  subtype  indication  3.3.2,  type 
conversion  4.6 

Numerlc^error  exception  contexts;  discrete  type  attribute  3,5,6,  Implicit  conversion  3.6,4  3,6,6  4,6,  numeric 
operation  3.6.6  3.6.8  3.5.10,  operator  of  a  numeric  type  4.6  4.6.7 

Program-error  exception  contexts;  collection  3,8,  elaboration  3.9,  elaboration  check  3.9  7,3  9,3  12.2,  erroneous 
1.6.  Incorrect  order  dependence  1.6,  leaving  a  function  6.6,  selective  welt  9.7.1 


1 1.1  Exception  Decleratlons 
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Storage-error  exception  contexts:  allocator  4.8  le 

Tasking  error  exception  contexts:  abort  atatamant  B.10,  entry  call  9.5  9.7.2  9.7.3,  axoeptinns  during  task  u 
communication  1 1 .5,  task  activation  9.3 


11.2  Exception  Handlere 


The  response  to  one  or  more  exceptions  Is  specified  by  an  exception  handler.  i 

exception_handlar  2 

whan  excaptlon_choloa  !|  axcaptlon_cholca|  »> 
sequenoe_of_8tatamanta 

axcaptlon.oholoa  ;;=■  except/on-nama  |  others 

An  exception  handler  occurs  in  a  construct  that  Is  either  a  block  statement  or  the  body  of  a  sub-  a 
program,  package,  task  unit,  or  generic  unit.  Such  a  construct  will  be  called  a  frame  In  this 
chapter.  In  each  case  the  syntax  of  a  frame  that  has  exception  handlers  Includes  the  following 
part; 


begin  4 

sequence_of-Stataments 
exception 

excaptlon_.handler 
I  exceptlon_handler| 
end 

The  exceptions  denoted  by  the  exception  names  given  as  exception  choices  of  a  frame  must  all  be  » 
distinct.  The  exception  choice  others  is  only  allowed  for  the  last  exception  handler  of  a  frame  and 
as  Its  only  exception  choice;  It  stands  for  all  exceptions  not  listed  In  previous  handlers  of  the  frame. 
Including  exceptions  whose  names  era  not  visible  at  the  place  of  the  exception  handler. 

The  exception  handlers  of  a  frame  handle  exceptions  that  are  raised  by  the  execution  of  the  « 
sequence  of  statements  of  the  frame.  The  exceptions  handled  by  a  given  exception  handler  are 
those  named  by  the  corresponding  exception  choices. 

Example:  ' 

begin 

-  sequence  of  statements 
exception 

when  SINGULAR  |  NUMERIC-ERROR 
PUT!"  MATRIX  IS  SINGULAR  ’); 
when  others  =»> 

PUT!"  FATAL  ERROR 
relee  ERROR; 

end; 

Note: 

The  same  kinds  of  statement  are  allowed  In  the  sequence  of  statements  of  each  exception  handler  b 
as  are  allowed  In  the  sequence  of  statements  of  the  frame.  For  example,  a  return  statement  Is 
allowed  In  a  handler  within  a  function  body. 
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Rtferencas:  block  stitamant  5.6,  daclarativa  part  3.8,  axcaptlon  11,  axcaptlon  handling  1 1.4,  function  body  6,3, 
generic  body  12.2,  genetic  unit  12.1,  name  4,1,  package  body  7.1,  ralae  atatennont  11.3,  return  atotemant  5.8, 
sequence  of  statemanta  6.1,  atatamant  6,  subprogram  body  6,3,  task  body  9,1,  task  unit  9  9,1,  visibility  d.3 

.  I 


11.3  Raisa  Statamanta 


A  raise  statement  raises  an  exception. 

ral8e_statemant  i:=-  ralia  |txcapf/on_nama]; 

For  the  execution  of  a  raise  statement  with  an  exception  name,  the  named  exception  Is  raised.  A 
raise  statement  without  an  exception  name  la  only  allowed  within  an  exception  handler  (but  not 
within  the  sequence  of  statements  of  a  subprogram,  package,  task  unit,  or  gensrln  unit,  enclosed 
by  the  handler);  It  raises  again  the  exception  thet  caused  transfer  to  the  Innermost  enclosing 
handler. 

Examples: 

raise  SINGULAR; 

raise  NUMERIC-ERROR;  -  axplloltly  raising  a  predefined  exception 

raise:  —  only  within  an  exception  handler 

Rafarences;  exception  11,  generic  unit  12,  name  4.1,  package  7,  aequence  of  atatementa  5.1,  subprogram  6,  talk 
unit  9 


11.4  Exception  Handling 


When  an  exception  Is  raised,  normal  program  execution  Is  abandoned  and  control  Is  transferred  to 
an  exception  handler.  The  selection  of  this  handler  depends  on  whether  the  exception  Is  raised 
during  the  execution  of  statements  or  during  the  elaboration  of  declarations, 

Rafarencas:  declaration  3.1,  elaboration  3.1  3.9,  exception  11,  exception  handler  1 1.2,  raising  of  exceptions  1 1.3, 
statement  B 


11.4.1  Exceptions  Raised  During  the  Execution  of  Rtatements 


The  handling  of  an  exception  raised  by  the  execution  of  a  sequence  of  statements  depends  on 

whether  the  Innermost  frame  or  accept  statement  that  encloses  the  sequence  of  statements  Is  a  '  . 

frame  or  an  accept  statement.  The  case  where  an  accept  statement  Is  Innermost  Is  described  In 

section  11,B.  The  case  where  a  frame  Is  Innermost  Is  presented  here. 


11.4.1  Exceptions  Raised  During  the  Execution  of  Statements 
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Different  actions  taka  place,  dependlno  on  whether  or  not  this  frame  has  a  handler  for  the  excep-  ? 
tion,  and  on  whether  the  exception  Is  raised  In  the  sequence  of  statements  of  the  frame  or  in  that 
of  an  exception  handler. 

If  an  exception  Is  raised  In  the  sequence  of  statements  of  a  frame  that  has  a  handler  for  the  excep-  3 
tion,  execution  of  the  sequence  of  statements  of  the  frame  is  abandoned  and  control  Is  transferred 
to  the  exception  handler.  The  execution  of  the  sequence  of  statements  of  the  handler  completes 
the  execution  of  the  frame  (or  Its  elaboration  if  the  frame  Is  a  package  body). 


If  an  exception  Is  raised  in  the  sequence  of  statements  of  a  frame  that  does  not  have  a  handler  for  4 
the  exception,  execution  of  this  sequence  of  statements  is  abandoned,  The  next  action  depends  on 
the  nature  of  the  frame: 

(a)  For  a  subprogram  body,  the  same  exception  la  raised  again  at  the  point  of  call  of  the  sub-  s 
program,  unless  the  subprogram  is  the  main  program  Itself,  in  which  case  execution  of  the 
main  program  Is  abandoned. 

(b)  For  a  block  statement,  the  same  exception  is  raised  again  Immediately  after  the  block  state-  a 
ment  (that  Is,  within  the  Innermost  enclosing  frame  or  accept  statement). 

\c)  For  a  package  body  that  Is  a  declarative  Item,  the  same  exception  is  raised  again  immediately  7 
after  this  declarative  Item  (within  the  enclosing  declarative  part).  If  the  package  body  Is  that  of 
a  subunit,  the  exception  is  raised  again  at  the  place  of  the  corresponding  body  stub.  If  the 
package  la  a  library  unit,  execution  of  the  main  program  Is  abandoned. 

(d)  For  a  task  body,  the  task  becomes  completed.  > 

An  exception  that  is  raised  again  (as  In  the  above  cases  (a),  (b),  and  (c))  is  said  to  be  propagated,  » 
either  by  the  execution  of  the  subprogram,  the  execution  of  the  block  statement,  or  the  elaboration 


of  tho  package  body.  No  propagation  takes  place  in  the  case  of  a  task  body.  If  the  frame  Is  a  sub¬ 
program  or  a  block  statement  and  If  it  has  dependent  tasks,  the  propagation  of  un  exception  takes 
place  only  after  termination  of  the  dependent  tasks. 

Finally,  if  an  exception  is  raised  In  the  sequence  of  statements  of  an  exception  handler,  execution  la 
of  this  sequence  of  statements  Is  abandoned.  Subsequent  actions  (Including  propagation,  if  any) 
are  as  in  the  cases  (a)  to  (d)  above,  depending  on  the  nature  of  tho  frame. 

Example:  11 

function  FACTORIAL  (N  :  POSITIVE)  return  FLOAT  It 
begin 

If  N  ~  1  then 
return  1.0; 

else 

return  FI.OAT(N)  •  FACTORIAL(N-I); 
and  If; 
exception 

when  NUMERIC_ERROR  «=>  return  FLOArSAFE_LARQE; 
and  FACTORIAL; 

If  the  multiplication  raises  NUMERIC.ERROR ,  then  FLOAT’SAFE_.LARQE  Is  returned  by  the  handler.  17 
This  value  will  cause  further  NUMERIC_ERROR  exceptions  to  be  raised  by  the  evaluation  of  the 
expression  In  each  of  the  remaining  invocations  of  the  function,  so  that  for  large  values  of  N  the 
function  will  ultimately  return  the  value  FLOATSAFE-LARGE . 
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13  Example; 


It 


It 


procedure  P  l» 

ERROR  :  exception: 
procedure  R; 

procedure  Q  it 
begin 

R; 

--  error  situation  (2) 

exception 

when  ERROR  --  handler  E2 
end  Q; 


procedure  R  la 
begin 

end  R; 

begin 

Q: 

exception 

when  ERROR  »> 
end  P; 


--  error  altuatlon  (3) 


error  altuatlon  (1) 


handler  El 


The  following  altuatlona  can  arlaai 


ID  If  the  exception  ERROR  la  railed  In  the  aequenoe  of  atatementa  of  the  outer  procedure  P,  the 
handler  El  provided  within  P  la  used  to  complete  the  execution  of  P. 

(2)  If  the  exception  ERROR  la  railed  In  the  aequenoe  of  atatementa  of  Q,  the  handler  E2  provided 
within  Q  la  uaad  to  complete  the  execution  of  Q.  Control  will  be  returned  to  the  point  of  call  of 
Q  upon  completion  of  the  handler. 


17  (3)  If  the  exception  ERROR  la  railed  In  the  body  of  R,  called  by  Q,  the  execution  of  R  la  abandoned 

and  the  same  exception  la  railed  In  the  body  of  Q.  The  handler  E2  la  then  used  to  complete 
the  execution  of  Q,  as  In  altuatlon  (2). 


m  Note  that  In  the  third  situation,  the  exception  raised  In  R  reaulta  In  (Indirectly)  transferring  control 
to  a  handler  that  la  part  of  Q  and  hence  not  enclosed  by  R.  Note  also  that  If  a  handler  were 
provided  within  R  for  the  exception  choice  others,  situation  (3)  would  cause  execution  of  this 
handler,  rather  than  direct  termination  of  R. 


i«  Lastly.  If  ERROR  had  been  declared  In  R,  rather  than  In  P,  the  handlers  El  and  E2  could  not  provide 
an  explicit  handler  for  ERROR  since  thla  Identifier  would  not  be  visible  within  the  bodies  of  P  end 
Q.  In  situation  (3),  the  exception  could  however  be  handled  In  Q  by  providing  a  handler  for  the 
exception  choice  others. 
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Notes: 

The  language  does  not  define  what  happens  when  the  execution  of  the  main  program  Is  aban¬ 
doned  after  an  unhandled  exception, 

The  predefined  exceptions  are  those  that  can  be  propagated  by  the  basic  operations  and  the 
predefined  operators. 

The  case  of  a  frame  that  Is  a  generic  unit  Is  already  covered  by  the  rules  for  subprogram  and 
package  bodies,  since  the  sequence  of  statements  of  such  a  frame  Is  not  executed  but  Is  the 
template  for  the  corresponding  sequences  of  statements  of  the  subprograms  or  packages  obtained 
by  generic  Instantiation. 

References:  accept  itatoment  9.6,  bailc  operation  3.3.3,  block  atatemant  S.6,  body  stub  10.2,  completion  9.4, 
declarative  Item  3.0,  declarative  part  3.9,  dependant  task  9.4,  elaboration  3.1  3.9,  exception  1 1,  axceptlcm  handler 
11.2,  frame  11.?.,  generic  Instantiation  12.3,  generic  unit  12,  library  unit  10.1,  main  program  10.1,  numarlc_error 
exception  11,1,  package  7,  package  body  7.1,  predefined  operator  4.6,  procedure  6.1,  sequence  of  statements  6.1, 
statement  6,  subprogram  6,  subprogram  body  6.3,  subprogram  call  6.4,  subunit  10.2,  task  9,  task  body  9.1 


11A2  Exotptlons  Rilitd  During  the  Elaboration  of  Daolaratlons 


If  an  exception  la  raised  during  the  elaboration  of  the  declarative  part  of  a  given  frame,  this 
olaboratlon  Is  abandoned.  The  next  action  depends  on  the  nature  of  the  frame: 

(a)  For  a  subprogram  body,  the  same  exception  Is  raised  again  at  the  point  of  coll  of  the  sub¬ 
program,  unless  the  subprogram  Is  the  main  program  Itself,  In  which  case  execution  of  the 
main  program  is  abandoned. 

(b)  For  a  block  statement,  the  same  exception  Is  raised  again  Immediately  after  the  block  state¬ 
ment. 

<c)  For  a  package  body  that  Is  a  declarative  Item,  the  same  exception  Is  raised  again  Immediately 
after  this  declarative  Item,  in  the  enclosing  declarative  part.  If  the  package  body  is  that  of  a 
subunit,  the  exception  Is  raised  again  at  the  place  of  the  corresponding  body  stub.  If  the 
package  Is  a  library  unit,  execution  of  the  main  program  Is  abandoned. 

(dl  For  a  task  body,  the  task  becomes  completed,  and  the  exception  TASKINQ_ERROR  Is  raised  at 
the  point  of  activation  of  the  task,  as  explained  In  section  9.3. 

Similarly,  If  an  exception  Is  raised  during  the  elaboration  of  either  a  package  declaration  or  a  task 
declaration,  this  elaboration  la  abandoned;  the  next  action  depends  on  the  nature  of  the  declara¬ 
tion. 

(e)  For  a  package  declaration  or  a  task  declaration,  that  Is  a  declarative  Item,  the  exception  Is 
raised  again  Immediately  after  the  declsrotlve  Item  In  the  enclosing  declarative  part  or 
package  specification.  For  the  declaration  of  a  library  package,  the  execution  of  the  main 
program  la  abandoned. 

An  exception  that  Is  raised  again  jee  In  the  above  ca^es  (a),  (b),  (c)  and  (e))  Is  said  to  be 
propagated,  either  by  the  execution  of  the  subprogram  or  block  statement,  or  by  the  elaboration  of 
the  package  declaration,  task  declaration,  or  pp'ikage  body. 
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9  Fxarnple  of  an  exception  In  the  declarative  part  of  a  block  atetamant  (case  (b)): 

procedure  P  Is 

begin 

declare 

N  :  INTEGER  F;  --  the  function  F  may  raise  ERROR 
begin 

exception 

when  ERROR  ->  --  handler  El 

end; 

exception 

when  ERROR  --  handler  E2 

end  P; 

-•  If  the  exception  ERROR  Is  relsed  In  the  declaration  of  N,  It  Is  handled  by  E2 

w  References:  sotlvation  9.3,  block  statsmsnt  D.6,  body  stub  10.2,  oomplstsd  task  9,4,  dsolaratlve  Itam  3.9,  dsolarativa 
part  3.9,  elaboration  3.1  3.9,  sxosptlon  11,  frame  11.2,  library  unit  10.1,  main  program  10.1,  package  body  7.1, 
package  declaration  7.1,  package  specification  7.1,  subprogram  0,  subprogram  body  0.3,  subprogram  call  0,4,  subunit 
1.0,2,  task  9,  task  body  9.1,  task  declaration  9.1,  taaking_error  sxosptlon  11.1 


11.6  Exoeptloni  Raleed  During  Took  Communlootion 


I  An  exception  can  be  propagated  to  a  taak  oommunloating,  or  attempting  to  oommunloate,  with 
another  taak.  An  exception  can  alao  be  propagated  to  a  calling  taak  If  the  exception  Is  raised  during 
a  rendezvous. 

]  When  d  teak  calls  an  entry  of  another  task,  the  exception  TASKINQ.ERROR  Is  raised  In  the  calling 
task,  at  the  place  of  the  call,  If  the  called  taak  is  completed  before  accepting  the  entry  call  or  Is 
already  completed  at  the  time  of  the  call. 

3  A  rendezvous  can  be  completed  abnormally  In  two  casas; 

4  (al  When  an  exception  Is  raised  within  an  accept  statement,  but  not  handled  within  an  inner 

frame.  In  this  case,  the  execution  of  the  accept  statement  Is  abandoned  and  the  same  excep< 
tion  Is  raised  again  Immediately  after  the  accept  statement  within  the  called  task;  the  excep¬ 
tion  Is  also  propagated  to  the  calling  task  at  the  point  of  the  entry  call. 

t  (b)  When  the  task  containing  the  accept  statement  Is  completed  abnormally  as  the  result  of  an 
abort  statement.  In  this  case,  the  exception  TASKINQ.ERROR  Is  relsed  In  the  calling  task  at 
the  point  of  the  entry  call, 

t  On  the  other  hand,  If  a  task  Issuing  an  entry  call  becomes  abnormal  (as  the  result  of  an  abort 
statement)  no  exception  Is  raised  In  the  called  task.  If  the  rendezvous  has  not  yet  started,  the  ntry 
call  Is  cancelled.  If  the  rendezvous  Is  In  progress.  It  completes  normally,  and  the  ._..ed  task  Is 
unaffected. 
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References:  Abnormal  task  9.10,  abort  statemsnt  9.10,  accept  atatamant  9.6,  completed  task  9.4,  nntrv  call  9.5, 
exception  11.  frame  11.2,  rendezvous  9.6,  task  9,  task  termination  9.4,  tS8klng_orror  exception  11.1 


11.6  Exceptions  and  Optlmliatlon 


The  purpose  of  this  section  Is  to  specify  the  conditions  under  which  an  implementat'on  Is  allowed 
to  perform  certain  actions  either  earlier  or  later  than  specified  by  other  rules  of  the  Innfluage. 

In  general,  when  the  language  rules  specify  an  order  for  certain  actions  (the  canonical  order),  an 
implementation  may  only  use  an  alternative  order  if  it  can  guarantee  that  the  effect  of  the  program 
Is  not  changed  by  the  reordering.  In  particular,  no  exception  should  arise  for  the  execution  of  the 
reordered  program  If  none  arises  for  the  execution  of  the  program  In  the  canonical  order.  When, 
on  the  other  hand,  the  order  of  certain  actions  Is  not  defined  by  the  language,  any  order  can  be 
used  by  the  Implementation,  (For  example,  the  arguments  of  a  predefined  operator  can  be  evalua¬ 
ted  In  any  order  since  the  rules  given  In  section  4.B  do  not  require  a  specific  order  of  evaluation,) 


Additional  freedom  Is  left  to  an  Implementation  for  reordering  actions  Involving  predefined  opera¬ 
tions  that  are  either  predefined  operators  or  basic  operations  other  than  assignments.  This 
freedom  Is  left,  aa  defined  below,  even  In  the  case  where  the  execution  of  these  predefined  opera¬ 
tions  may  propagate  a  (predefined)  exception; 

(a)  For  the  purpose  of  establishing  whether  the  same  effect  Is  obtained  by  the  execution  of  cer¬ 
tain  actions  In  the  canonical  and  In  an  alternative  order.  It  can  be  assumed  that  none  of  the 
predefined  operations  Invoked  by  these  antlona  propagates  a  (predefined)  exception,  provided 
that  the  two  following  requirements  are  met  by  the  alternative  order:  first,  an  operation  must 
not  be  Invoked  in  the  alternative  order  If  It  Is  not  Invoked  in  the  canonical  order;  second,  for 
each  operation,  the  Innermost  enclosing  frame  or  accept  statement  must  be  the  seme  In  the 
alternative  order  aa  in  the  canonical  order,  and  the  same  exception  handlers  must  apply. 

(b)  Within  an  expression,  the  association  of  operators  with  operands  Is  specified  by  the  syntax, 
However,  for  a  sequence  of  predefined  operators  of  the  same  precedence  level  (and  In  the 
absence  of  parentheses  Imposing  a  specific  association),  any  association  of  operators  with 
operands  Is  allowed  If  It  satisfies  the  fallowing  requ  nment;  an  Integer  result  must  be  equal  to 
that  given  by  the  canonical  Isft-tci-right  order;  a  rtiul  result  must  belong  to  the  result  model 
Interval  defined  for  the  canonical  left-to-right  order  (sea  4,B,7),  Such  a  reordering  la  allowed 
even  If  It  may  remove  an  exception,  or  Introduce  a  further  predefined  exception. 

Similarly,  additional  freedom  Is  left  to  an  Implementation  for  the  evaluation  of  numeric  simple 
expressions.  For  the  evaluation  of  a  predefined  operation,  an  Implementation  Is  allowed  to  use  the 
operation  of  a  type  that  has  a  range  wider  than  that  of  the  base  type  of  the  operands,  provided  that 
this  delivers  the  exact  result  (or  a  result  within  the  declared  accuracy.  In  the  case  of  a  real  type), 
even  if  some  Intermediate  results  lie  outside  the  range  of  the  base  type.  The  exception 
NUMERIC-ERROR  need  not  be  raised  In  such  a  case.  In  particular.  If  the  numeric  expression  la  an 
operand  of  a  predefined  relational  operator,  the  exception  NUMERIC-ERROR  need  not  be  raloed  by 
the  evaluation  of  the  relation,  provided  that  the  correct  BOOLEAN  result  Is  obtained. 


A  predefined  operation  need  not  be  Invoked  at  all.  If  Its  only  possible  effect  Is  to  propagate  a  prede¬ 
fined  exception.  Similarly,  a  predefined  operation  need  not  be  Invoked  If  the  removal  of  subsequent 
operations  by  the  above  rule  renders  this  Invocation  Ineffective. 
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Notes: 


Rule  (b)  applies  to  predefined  operators  but  not  to  the  short-circuit  control  forms. 


The  expression  SPEED  <  300_000.0  can  be  replaced  by  TRUE  if  the  value  300_000.0  lies  outside 
the  base  type  of  SPEED ,  even  though  the  Implicit  conversion  of  the  numeric  literal  would  raise  the 
exception  NUMERIC_ERROR . 


Example; 

declare 

N  :  INTEGER; 

begin 

N  :=  0;  ~  (1) 

for  J  In  1  ..  10  loop 

N  ;=  N  4-  J««A(K);  —  A  and  K  are  global  variables 

end  loop; 

PUTIN); 

exception 

when  other*  =*>  PUTrSome  error  arose");  PUTIN); 
end; 

The  evaluation  of  A|K)  may  be  performed  before  the  loop,  and  possibly  immediately  before  the 
assignment  statement  |1)  even  If  this  evaluation  can  raise  an  exception.  Consequently,  within  the 
exception  handler,  the  value  of  N  Is  either  the  undefined  Initial  value  or  a  value  later  assigned.  On 
the  other  hand,  the  evaluation  of  A|K)  cannot  be  moved  before  begin  since  an  exception  would 
then  be  handled  by  a  different  handler.  For  this  reason,  the  Initialization  of  N  In  the  declaration 
itself  would  exclude  the  possibility  of  having  an  undefined  initial  value  of  N  in  the  handler. 

References;  accept  statement  9.6,  accuracy  of  real  operations  4.5.7,  assignment  6.2,  base  type  3.3,  basic  operation 
3.3.3,  conversion  4.6,  error  situation  11,  exception  11,  exception  handler  1 1.2,  frame  1 1.2,  numerlc_error  exception 
11.1,  predefined  operator  4,6,  predefined  subprogram  8.6,  propagation  of  an  exception  11,4,  real  type  3.5.6, 
undefined  value  3.2.1 


11.7  Suppressing  Checks 


The  presence  of  a  SUPPRESS  pragma  gives  permission  to  an  Implementation  to  omit  certain  nn- 
time  checks.  The  form  of  this  pragma  Is  as  follows; 

pragma  SUPPRESS  (identifier  [,  [ON  ->]  name]); 

The  Identifier  Is  that  of  the  check  that  can  be  omitted.  The  name  (If  present)  must  be  either  a  sim¬ 
ple  name  or  an  expanded  name  and  It  must  denote  either  an  object,  a  type  or  subtype,  a  task  unit, 
or  a  generic  unit;  alternatively  the  name  can  be  a  subprogram  name,  in  which  case  it  can  stand  for 
several  visible  overloaded  subprograms. 
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A  pragma  SUPPRESS  la  only  allowed  Immediately  within  a  declarative  part  or  Immediately  within 
a  package  specification.  In  the  latter  case,  the  only  allowed  form  is  with  a  name  that  denotes  an 
entity  (or  several  overloaded  subprograms)  declared  immediately  within  the  package  specification. 
The  permission  to  omit  the  given  check  extends  from  the  place  of  the  pragma  to  the  end  of  the 
declarative  region  associated  with  the  innermost  enclosing  block  statement  or  program  unit.  For  a 
pragma  given  In  a  package  specification,  the  permission  extends  to  the  end  of  the  scope  of  the 
named  entity. 

If  the  pragma  includes  a  name,  the  permission  to  omit  the  given  check  is  further  restricted:  It  is 
given  only  for  operations  on  the  named  object  or  on  all  objects  of  the  base  type  of  a  named  type  or 
subtype;  for  calls  of  a  named  subprogram;  for  activations  of  tasks  of  the  named  task  type;  or  for 
instantiations  of  the  given  generic  unit. 

The  following  checks  correspond  to  situations  in  which  the  exception  CONSTRAINT_.ERROR  may 
be  raised;  for  these  checks,  the  name  (if  present)  must  denote  either  an  object  or  a  type. 

ACCESS.CHECK  When  accessing  a  selected  component,  an  indexed  component,  a 

slice,  or  an  attribute,  of  an  object  designated  by  an  access  value, 
check  that  the  access  value  is  not  null. 

DISCRIMINANT-CHECK  Check  that  a  discriminant  of  a  composite  value  has  the  value  Imposed 

by  a  discriminant  constraint.  Also,  when  accessing  a  record  compo¬ 
nent,  check  that  It  exists  for  the  current  discrimlnan't  values. 

INDEX_CHECK  Check  that  the  bounds  of  an  array  value  are  equal  to  the  cor¬ 

responding  bounds  of  an  index  constraint.  Also,  when  accessing  a 
component  of  an  array  object,  check  for  each  dimension  that  the  given 
Index  value  belongs  to  the  range  defined  by  the  bounds  of  the  array 
object.  Also,  when  accessing  a  slice  of  an  array  object,  check  that  the 
given  discrete  range  Is  compatible  with  the  range  defined  by  the 
bounds  of  the  array  object. 

LENGTH^CHECK  Check  that  there  Is  a  matching  component  for  each  component  of  an 

array,  in  the  case  of  array  assignments,  type  conversions,  and  logical 
operators  for  arrays  of  boolean  components, 

RANGE_CHECK  Check  that  a  value  satisfies  a  range  constraint.  Also,  for  the  elabora¬ 

tion  of  a  subtype  Indication,  check  that  the  constraint  (If  present)  is 
compatible  with  the  type  mark.  Also,  for  an  aggregate,  check  that  an 
Index  or  discriminant  value  belongs  to  the  corresponding  subtype. 
Finally,  check  for  any  constraint  checks  performed  by  a  generic  instan¬ 
tiation. 

The  following  checks  correspond  to  situations  in  which  the  exception  NUMERIC-ERROR  is  raised. 
The  only  allowed  names  In  the  corresponding  pragmas  are  names  of  numeric  types. 

DIVISION.CHECK  Check  that  the  second  operand  Is  not  zero  for  the  operations  /,  ram 

and  mod. 

OVERFLOW_CHECK  Check  that  the  result  of  a  numeric  operation  does  not  overflow. 

The  following  check  corresponds  to  situations  In  which  the  exception  PROGRAM_ERROR  Is  raised. 
The  only  allowed  names  In  the  corresponding  pragmas  are  names  denoting  task  units,  generic 
units,  or  subprograms. 

ELABORATION_CHECK  When  either  a  subprogram  Is  called,  a  task  activation  Is  accomplished, 

or  a  generic  Instantiation  is  elaborated,  check  that  the  body  of  the  cor¬ 
responding  unit  has  already  been  elaborated. 

Suppressing  Checks  11.7 
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16  The  following  check  corresponds  to  situations  In  which  the  exception  STORAGE_ERROR  Is  raised. 
The  only  allowed  names  In  the  corresponding  pragmas  are  names  denoting  access  types,  task 
units,  or  subprograms. 

17  STORAGE_CH  ECK  Check  that  execution  of  an  allocator  does  not  require  more  space  than  is 

available  for  a  collection.  Check  that  the  space  available  for  a  task  or 
subprogram  has  not  been  exceeded. 

18  If  an  error  situation  arises  In  the  absence  of  the  corresponding  run-time  checks,  the  execution  of 
the  program  is  erroneous  (the  results  are  not  defined  by  the  language). 

a  Examples: 

pragma  SUPPRESS(RANQE_CHECK); 

pragma  SUPPRESS(INDEX_CHECK,  ON  =>  TABLE); 

Notes: 

20  For  certain  implementations,  It  may  be  Impossible  or  too  costly  to  suppress  certain  checks.  The 
corresponding  SUPPRESS  pragma  can  be  Ignored.  Hence,  the  occurrence  of  such  a  pragma  within 
a  given  unit  does  not  guarantee  that  the  corresponding  exception  will  not  arise;  the  exceptions 
may  also  be  propagated  by  called  units. 


21  References:  access  type  3.8,  access  value  3.8,  activation  9.3,  aggregate  4.3,  allocator  4,8,  array  3.6,  attribute  4.1.4, 
block  statement  5.6,  collection  3.8,  compatible  3.3.2,  component  of  an  array  3,6,  component  of  a  record  3.7,  com¬ 
posite  type  3.3,  constraint  3.3,  constralnt_error  exception  11.1,  daclarative  part  3.9.  designate  3.8,  dimension  3.6, 
discrete  range  3.6,  discriminant  3.7.1,  discriminant  constraint  3.7.2,  elaboration  3.1  3.9,  erroneous  1 .6,  error  situation 
1 1.  expanded  name  4.1.3.  generic  body  11.1,  generic  Instantiation  12.3,  generic  unit  12,  Identifier  2.3,  Index  3.6, 
Index  constraint  3.6.1,  Indexed  component  4. 1,1,  null  aooess  value  3.8,  numeric  operation  3.5.5  3.5,8  3.5.10,  numeric 
type  3.5,  numeric_error  exception  11.1,  objeot  3.2,  operation  3.3.3,  package  body  7.1.  package  specification  7.1, 
pragma  2.8.  program_arror  exception  11.1,  program  unit  6,  propagation  of  an  exception  1 1.4,  range  constraint  3.5, 
record  type  3.7,  simple  name  4.1 ,  slice  4.1.2,  subprogram  6,  subprogram  body  6.3,  subprogram  call  8.4,  subtype  3.3, 
subunit  10.2,  task  9,  task  body  9.1,  task  typo  9.1,  task  unit  9,  type  3.3,  type  mark  3.3.2 
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12.  Qanaric  Units 


A  generic  unit  is  a  program  unit  that  is  either  a  generic  subprogram  or  a  generic  package.  A 
generic  unit  is  a  template,  which  is  parameterized  or  not,  and  from  which  corresponding 
(nongenerIc)  subprograms  or  packages  can  be  obtained.  The  resulting  program  units  are  said  to  be 
Instances  of  the  original  generic  unit. 

A  generic  unit  is  declared  by  a  generic  doclaratlon.  This  form  of  declaration  has  a  generic  formal 
part  declaring  any  generic  formal  parameters.  An  Instance  of  a  generic  unit  Is  obtained  as  the 
result  of  a  generic  Instantiation  with  appropriate  generic  actual  parameters  for  the  generic  formal 
parameters.  An  Instance  of  a  generic  subprogram  Is  a  subprogram.  An  Instance  of  a  generic 
package  Is  a  package. 

Generic  units  are  templates.  As  templates  they  do  not  have  the  properties  that  are  specific  to  their 
nongeneric  counterparts.  For  example,  a  generic  subprogram  can  be  instantiated  but  it  cannot  be 
called.  In  contrast,  the  Instance  of  a  generic  subprogram  Is  a  nongeneric  subprogram;  hence,  this 
Instance  can  be  called  but  It  cannot  be  used  to  produce  further  instances. 

References,'  declaration  3.1,  ganaric  actual  parameter  12.3,  gonarlo  declaration  12.1,  generic  formal  parameter  12.1 , 
generic  formal  part  12.1,  generic  Instantiation  12.3,  generic  package  12.1,  generic  aubprogram  12.1,  Instance  12.3, 
package  7,  program  unit  0,  subprogram  6 


12.1  Qenerlo  Deolarationa 


A  peneric  declaration  declares  a  generic  unit,  which  la  either  a  generic  subprogram  or  a  generic 
package.  A  generic  declaration  Includes  a  generic  formal  part  declaring  any  generic  formal 
parameters.  A  generic  formal  parameter  can  be  an  object;  alternatively  (unlike  a  parameter  of  a 
subprogram),  it  can  be  e  type  or  a  subprogram. 

ganerjc_daclaration  generlc_apeclflcatlon; 

generlc_speclflcatlon 

ganerlc_formal_4)art  aubprogram_apociflcatlon 
I  generlc.formal.4)art  package_apeclflcatlon 

generic„formal_part  :;a  generic  |g«narlc_4)aramet«r_declaratlon| 

genorlc_parameter_deolaratlon 

IdentiflerJIst  ;  [In  [out]]  type_mark  [;=  expreaaion); 

I  type  Identifier  la  generlc_tYpe._deflnltlon; 

I  prlvate_type-deularatlon 
I  with  subprogram_spaclflcatlon  [la  name]; 

I  with  aubprogram_apaclflcatlon  [Is  <>); 

generlc_type_deflnltion 

(<>)  I  range  <>  |  digits  <>  |  delta  <> 

I  array-typs_deflnltlon  j  accass_tYpe_deflnltlon 
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The  terms  generic  formal  object  (or  simply,  formal  object),  generic  formal  type  (or  simply,  formal 
type),  and  generic  formal  subprogram  (or  simply,  formal  subprogram)  are  used  to  refer  to  cor¬ 
responding  generic  formal  parameters. 

The  only  form  of  subtype  Indication  allowed  within  a  generic  formal  part  is  a  type  mark  (that  Is,  the 
subtype  indication  must  not  include  an  explicit  constraint).  The  designator  of  a  generic  sub¬ 
program  must  be  an  Identifier. 

Outside  the  specification  and  body  of  a  generic  unit,  the  name  of  this  program  unit  denotes  the 
generic  unit.  In  contrast,  within  the  declarative  region  associated  with  a  generic  subprogram,  the 
name  of  this  program  unit  denotes  the  subprogram  obtained  by  the  current  instantiation  of  the 
generic  unit.  Similarly,  within  the  declarative  region  associated  with  a  generic  package,  the  name 
of  this  program  unit  denotes  the  package  obtained  by  the  current  instantiation. 

The  elaboration  of  a  generic  declaration  has  no  other  effect. 

Examples  of  generic  formal  parts; 

generic  -  parameterless 

generic 

SIZE  ;  NATURAL;  -  formsi  object 
generic 

LENGTH  :  INTEGER  200;  --  formal  object  with  a  default  expression 

AREA  ;  INTEGER  ;=  LENGTH* LENGTH;  ~  formal  object  with  a  default  expression 

generic 

type  ITEM  Is  private;  -  formal  type 

type  INDEX  la  (<>);  --  formal  type 

type  ROW  la  arraydNOEX  range  <>)  of  ITEM;  -  formal  type 

with  function  *<‘‘(X,  Y  :  ITEM)  return  BOOLEAN;  -  formsi  subprogram 

Examples  of  generic  declarations  declaring  generic  subprograms; 

generic 

type  ELEM  Is  private; 

procedure  EXCHANGE(U,  V  ;  In  out  ELEM); 
generic 

type  ITEM  Is  privets; 

with  function  ’'*”(0,  V  ;  ITEM)  return  ITEM  is  <>; 
function  SQUARINQ(X  ;  ITEM)  return  ITEM; 

Example  of  a  generic  declaration  declaring  a  generic  package; 


generic 

type  ITEM  is  private; 

type  VECTOR  Is  array  (POSITIVE  range  <>)  of  ITEM; 
with  function  SUM(X,  Y  ;  ITEM)  return  ITEM; 
package  ON.VECTORS  Is 

function  SUM  (A,  B  ;  VECTOR)  return  VECTOR; 
function  SIGMA  (A  ;  VECTOR)  return  ITEM; 
LENGTH.ERROR  :  exception; 
end; 


12.1  Generic  Declarations 
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Notes: 

Within  a  generic  subprogram,  the  name  of  this  program  unit  acts  as  the  name  of  a  subprogram, 
Hence  this  name  can  be  overloaded,  and  It  can  appear  in  a  recursive  call  of  the  current  instantia¬ 
tion.  For  the  same  reason,  this  name  cannot  appear  after  the  reserved  word  new  in  a  (recursive) 
generic  Instantiation. 

An  expression  that  occurs  in  a  generic  formal  part  is  either  the  default  expression  for  a  generic  for¬ 
mal  object  of  mode  In,  or  a  constituent  of  an  entry  name  given  as  default  name  for  a  formal  sub  ¬ 
program,  or  the  default  expression  for  a  parameter  of  a  formal  subprogram.  Default  expressions  for 
generic  formal  objects  and  default  names  for  formal  subprograms  are  only  evaluated  for  generic 
irstantiations  that  use  such  defaults.  Default  expressions  for  parameters  of  formal  subprograms 
are  only  evaluated  for  calls  of  the  formal  subprograms  that  use  such  defaults.  (The  usual  visibility 
rules  apply  to  any  name  used  In  a  default  expression;  the  denoted  entity  must  therefore  be  visible 
at  the  place  of  the  expression.) 

Neither  generic  formal  parameters  nor  their  attributes  are  allowed  constituents  of  static  expres¬ 
sions  (see  4.9). 

References:  access  type  definition  3.8,  array  type  definition  3.6.  attribute  4.1.4,  conatreint  3.3,  declaration  3.1, 
designator  6.1 ,  elaboration  has  no  other  effect  3.1,  entity  3.1,  expreailon  4.4,  function  6.5,  generic  Instantiation  12.3, 
Identifier  2.3,  Identifier  list  3,2,  Inatanoe  12.3,  name  4.1,  object  3.2,  overloading  6.6  8.7,  package  specification  7.1, 
parameter  of  a  subprogram  6,2,  private  type  definition  7.4,  procedure  6.1,  reserved  word  2,9,  static  expression  4,9, 
subprogram  6.  subprogram  apaclflcatlon  6.1,  subtype  Indication  3.3.2,  type  3,3,  type  mark  3.3.2 


12.1.1  Qsnsrio  Formal  Objaota 


The  first  form  of  generic  parameter  declaration  declare^  generic  formal  objects.  The  type  of  a 
generic  formal  object  Is  the  base  type  of  the  type  denoted  by  the  type  mark  given  In  the  generic 
parameter  declaration,  A  generic  parameter  declaration  yvith  several  Identifiers  is  equivalent  to  a 
sequence  of  single  generic  parameter  declarations,  as  explained  In  section  3.2. 

A  generic  formal  object  has  a  mode  that  Is  either  in  or  ii^  out.  In  the  absence  of  an  explicit  mode 
Indication  In  a  generic  parameter  declaration,  the  mode  in  Is  assumed;  otherwise  the  mode  Is  the 
one  Indicated.  If  a  generic  parameter  declaration  ends  -With  an  expression,  the  expression  Is  the 
default  expression  of  the  generic  formal  parameter.  A  default  expression  Is  only  allowed  If  the 
mode  is  in  (whether  this  mode  Is  Indicated  explicitly  or  Implicitly).  The  type  of  a  default  expression 
must  be  that  of  the  corresponding  generic  formal  parameter. 

A  generic  formal  object  of  mode  In  Is  a  constant  whose  value  Is  a  copy  of  the  value  supplied  as  the 
matching  generic  actual  parameter  In  a  generic  Instantiation,  as  described  In  section  12.3.  The 
type  of  a  generic  formal  object  of  mode  In  must  not  be  a  limited  type;  the  subtype  of  such  a  generic 
formal  object  Is  the  subtype  denoted  by  the  type  mark  given  in  the  generic  parameter  declaration. 

A  generic  formal  object  of  mode  in  out  is  a  variable  and  denotes  the  object  supplied  as  the 
matching  generic  actual  parameter  In  a  generic  instantiation,  as  described  In  section  12,3.  The 
constraints  that  apply  to  the  generic  formal  object  are  those  of  the  corresponding  generic  actual 
parameter. 
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Note: 

i  The  constraints  that  apply  to  a  generic  formal  object  of  mcde  In  out  are  those  of  the  corresponding 
generic  actual  parameter  (not  those  implied  by  the  type  mark  that  appears  In  the  generic 
parameter  declaration).  Whenever  possible  (to  avoid  contusion)  It  is  recommended  that  the  name 
of  a  base  type  be  used  for  the  declaration  of  such  a  ft^rrr:;)  obiect.  tf,  however,  the  base  type  is 
anonymous,  it  is  recommended  that  the  subtype  nar  i  d«fined  ov  the  type  declaration  for  the  base 
type  be  used. 

e  References:  anonymous  type  3,3.1,  asilonment  6.2,  base  type  3  3,  constant  declaration  3.2,  constraint  3.3, 
declaration  3.1,  ganarlo  actual  parameter  12.3,  generic  formal  ob|ect  12,1,  generic  normal  parameter  12,1,  generic 
Instantiation  12.3,  generic  parameter  declaration  12.1,  identifier  2.3,  limited  type  7,4.4,  matching  generic  uctuni 
parameter  12.3,  mode  6.1,  name  4.1,  object  3.2,  simple  name  4.1,  subtype  3.3,  type  declaration  3.3,  type  mark  3.3.2, 
variable  3.2.1 

12.1.2  Ganaric  Formal  Typaa 


I  A  generic  parameter  declaration  that  includes  a  generic  type  definition  or  a  private  type  declaration 
declares  a  generic  formal  type.  A  generic  formal  type  denotes  the  subtype  supplied  as  the  cor¬ 
responding  actual  parameter  In  a  generic  instantiation,  as  described  in  1 2.3(d).  IHowevor,  within  a 
generic  unit,  a  generic  formal  type  Is  considered  as  being  distinct  from  all  other  (formal  or  nonfor- 
mal)  types.  The  form  of  constraint  applicable  to  a  formal  type  In  a  subtype  indication  depends  on 
the  class  of  the  type  as  for  a  nonformal  type, 

I  The  only  form  of  discrete  range  that  Is  allowed  within  the  declaration  of  a  generic  formal 
(constrained)  array  type  la  a  type  mark. 

a  The  discriminant  part  of  a  generic  formal  private  type  must  not  Include  a  default  expression  for  a 
discriminant.  (Consequently,  a  variable  that  Is  declared  by  an  object  declaration  must  be  con¬ 
strained  If  Its  type  Is  a  generic  formal  type  with  discriminants.) 

4  Within  the  declaration  and  body  of  a  generic  unit,  the  operations  available  for  values  of  a  generic 
formal  type  (apart  from  any  additional  operation  specified  by  a  generic  formal  subprogram)  era 
determined  by  the  generic  parameter  declaration  for  the  formal  type: 

5  (a)  For  a  private  type  declaration,  the  avallobi''  operations  are  those  defined  in  section  7.4.2  (In 

particular,  assignment,  equality,  and  Inequality  are  available  for  a  private  type  unless  it  Is 
limited), 

6  (b)  For  an  array  type  definition,  the  available  operations  are  those  defined  in  section  3,6,2  (for 

example,  they  Include  the  formation  of  indexed  components  and  slices). 

?  (c)  For  an  access  type  definition,  the  available  operations  aro  those  defined  In  section  3,8.2  (for 

example,  allocators  can  ba  used). 

a  The  four  forms  of  generic  type  definition  In  which  a  box  appoara  (that  io,  the  compound  delimiter 
<>)  correspond  to  the  following  major  forms  of  ocalar  type: 

w  (d)  Olscrote  types:  (<>) 

The  available  operations  are  the  operations  common  to  enumeration  and  Integer  types;  these 
are  defined  In  section  3.5.5. 
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<e)  Integer  types:  range  <> 

The  available  operations  are  the.  operations  of  Integer  types  defined  In  section  3.5.5. 

(f)  Floating  point  types;  digits  <> 

The  available  operations  are  those  defined  in  section  3.5.8. 

(g)  Fixed  point  types:  delta  <> 

The  available  operations  are  those  defined  In  section  3.5.10. 


In  all  of  the  above  cases  (a)  through  (f),  each  operation  Implicitly  associated  with  a  formal  type 
(that  is,  other  than  an  operation  specified  by  a  formal  subprogram)  is  implicitly  declared  at  the 
place  of  the  declaration  of  the  formal  typo.  The  same  holds  for  a  formal  fixed  point  type,  except  for 
the  multiplying  operators  that  deliver  a  result  of  the  type  unlversaUixed  (see  4.6.5),  since  these 
special  operators  are  declared  In  the  package  STANDARD . 

For  an  instantiation  of  the  generic  unit,  each  of  these  operations  Is  the  corresponding  basic  opera¬ 
tion  or  predefined  operator  of  the  matching  actual  type.  For  an  operator,  this  rule  applies  even  If 
the  operator  has  been  redefined  for  the  actual  type  or  for  some  parent  type  of  the  actual  type. 


Examples  of  generic  formal  types: 
type  ITEM  la  private; 

type  BUFFERdENGTH  ;  NATURAL)  Is  limited  private; 

type  ENUM  It  «>); 
type  I  NT  It  range  <>; 
type  ANGLE  It  deHa  <>; 
type  MASS  It  digitt  <>; 

type  TABLE  It  array  (ENUM)  of  ITEM; 


Example  of  a  generic  formal  part  declaring  a  formal  Integer  type; 

generic 

type  RANK  It  range  <>; 

FIRST  :  RANK  :=■  RANK'FIRST; 

SECOND  :  RANK  :=«  FIRST  +1;  --  the  operator  "+"  of  the  type  RANK 


References:  accttM  type  definition  3.8,  tlloottor  4.8,  orrey  type  definition  3.6,  aselgnment  6.2,  body  of  a  generic  unit 
12.2,  olaaa  of  type  3,3,  oonatralnt  3,3,  declaration  3,1,  declaration  of  a  generic  unit  12.1,  dlacrete  range  3.6,  dlicrata 
type  3.B,  discriminant  part  3,7,1,  enumeration  tyoe  3.6,1,  equality  4,6,2,  fixed  point  type  3,6.9,  floating  point  typo 
3.6.7,  generic  actual  type  12,3,  generic  formal  part  12,1,  generic  formal  subprogram  12,1.3,  generic  formal  type  12.1, 
generic  parameter  declaration  12,1 ,  generic  type  definition  1 2.1.  Indexed  component  4.1.1,  Inequality  4.6,2,  Instantia¬ 
tion  12.3,  integer  type  3,6,4,  limited  private  type  7,4.4,  matching  generic  actual  type  12,3.2  12,3.3  12.3.4  12.3.6, 
multiplying  operator  4,6  4.6.6,  operation  3,3,  operator  4.6,  parent  type  3.4,  private  type  dr^flnltlon  7.4,  scalar  type  3,6, 
slice  4.1.2,  standard  package  8,0  C,  subtype  Indication  3.3.2,  type  mark  3.3.2,  unlveraaLflxed  3.5.9 
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12.1.3  Gerturic  Formal  Subprogram! 


A  generic  parameter  declaration  that  includes  a  subprogram  specification  declares  a  generic  for¬ 
mal  subprogram. 

Two  alternative  forms  of  defaults  can  be  specified  in  the  declaration  of  a  generic  formal  sub¬ 
program,  In  these  forms,  the  subprogram  specification  is  followed  by  the  reserved  word  it  and 
either  a  box  or  the  name  of  a  subprogram  or  entry.  The  matching  rules  for  these  defaults  are 
explained  in  section  12.3.6. 

A  generic  formal  subprogram  denotes  the  subprogram,  enumeration  literal,  or  entry  supplied  as  the 
corresponding  generic  actual  parameter  In  a  generic  Instantiation,  as  described  In  section  12,3(f), 

Examples  of  generic  formal  subprograms: 

with  funotiort  INCREASEiX  ;  INTEGER)  return  INTEGER; 
with  function  SUMjX,  Y  :  ITEM)  return  ITEM; 

with  function  "+'’(X,  Y  :  ITEM)  return  ITEM  Ic  <>; 

with  function  IMAGEIX  :  ENUM)  return  STRING  it  ENUM'IMAGE; 

with  procedure  UPDATE  is  OEFAULr..UPDATE; 

Notes; 

The  constraints  that  apply  to  a  parameter  of  a  formal  subprogram  are  those  of  the  corresponding 
parameter  in  the  specification  of  the  matching  actual  subprogram  (not  those  Implied  by  the  cor¬ 
responding  type  mark  In  the  specification  of  the  formal  subprogram),  A  similar  remark  applies  to 
the  result  of  a  function.  Whenever  possible  (to  avoid  confusion),  It  Is  recommended  that  the  name 
of  a  base  type  be  used  rather  than  the  name  of  a  subtype  In  any  declaration  of  a  formal  sub¬ 
program,  If,  however,  the  base  type  Is  anonymous.  It  Is  recommended  that  the  subtype  name 
defined  by  the  type  ddclaratlon  be  used. 

The  typo  specified  for  a  formal  parameter  of  a  generic  formal  subprogram  can  be  any  visible  type, 
including  a  generic  formal  type  of  the  same  generic  formal  part. 


References:  anonymous  typs  3,3,1,  bass  type  3,3,  box  delimiter  12,1,2,  constraint  3.3,  deslonator  6, 1 ,  generic  actual 
parnmeior  12,3,  oenorio  formal  function  12,1,  generic  formal  subprogram  12.1,  generic  Instantiation  12,3,  generic 
parometar  declaration  12,1,  Identifier  2.3,  matching  generic  actual  subprogram  12.3.6,  operator  symbol  6,1, 
parametor  of  a  subprogram  6,2,  renaming  declaration  6.6,  reserved  word  2,8,  scope  8,2,  subprogram  6,  subprogram 
specification  6.1,  subtype  3,3.2,  type  3,3,  type  mark  3,3.2 


12.2  Generic  Bodies 


The  body  of  a  generic  subprogram  or  generic  package  is  a  template  for  the  bodies  of  the  cor¬ 
responding  subprograms  or  packages  obtained  by  generic  Instantiations.  The  syntax  of  a  generic 
body  Is  identical  to  that  of  a  nongenerIc  body. 

For  each  declaration  of  a  generic  subprogram,  there  must  be  a  corresponding  body. 


1 2.2  Generic  Bodies 
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The  elaboration  of  a  generic  body  has  no  other  effect  than  to  establish  that  the  body  can  from  then 
on  be  used  as  the  template  for  obtaining  the  corresponding  Instances. 


Example  of  a  gonaric  procedure  body: 

procedure  EXCHANQE(U,  V  :  in  out  ELEM)  is  --  see  example  In  12.1 
T  :  ELEM;  -  the  generic  formal  type 
begin 

T  ;=  U; 

U  :=  V; 

V  T; 

end  EXCHANGE; 


Example  of  a  generic  function  body\ 

function  SQUARINQIX  :  ITEM)  return  ITEM  is  -  see  example  In  12.1 
begin 

return  X+X;  --  the  formal  operator  "**’ 
and; 


Example  of  a  generic  package  body; 

package  body  ON_VECTORS  Is  -  see  example  in  12.1 

function  SUM(A,  Q  i  VECTOR)  return  VECTOR  is 

RESULT  !  VECTOR(A'RANQE):  ~  the  formal  type  VECTOR 

BIAS  ;  constant  INTEGER  ;«  B'PIRST  •  A'FIRST; 

begin 

if  A'LENQTH  /»  B'LENQTH  then 
raise  LENGTH.ERROR; 
and  If; 

for  N  In  A'RANQE  loop 

RESULTiN)  SUM(A|N),  BIN  +  BIAS));  -  the  formal  function  SUM 
and  loop; 
return  RESULT; 
and; 

function  SIQMAIA  :  VECTOR)  return  ITEM  is 

TOTAL  :  ITEM  :=.  A(A'FIRST);  -  the  formal  type  ITEM 

begin 

for  N  In  A'FIRST  +  1  ..  A'LAST  loop 

TOTAL  :=.  SUMfTOTAL,  A(N)|;  -  the  formal  function  SUM 

and  loop; 
return  TOTAL; 
and; 
end; 


References:  body  3.9,  elaboration  3.B,  gensrlo  body  12.1,  gensrlo  Instantiation  12.3,  generic  package  12.1,  generic 
subprogram  12.1.  Instance  12.3,  package  body  7,1,  psokage  7,  subprogram  6,  subprogram  body  6.3 
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12.3  Generic  Initantiatlon 


An  instance  of  a  generic  unit  Is  declared  by  a  generic  Instantiation. 

genericjnstantlation 

paokage  identifier  is 

new  fiierj»r/c_pacAair«.-namo  [flenerlc_actual_pafil; 

I  procedure  Identifier  ie 

new  ffenff,'/c_pf0Cff(/w/'»_name  [generlc-actual-part); 

I  function  designator  Is 

new  generlcJunctlon^ntimB  [generlc_actuaLpartl; 
goneric_actual.4)art 

(generic.assoclatlon  (,  generlc_B8SOClatlon|} 
generlc_as80clatlon  :;=> 

|generlo_formal_4}aramotar  ai>]  ganerlc_aotual_paramater 

genorIc-formaLparametar  /3aremefar_slmple_nama  |  operator_8vmbol 

gen'irln_aotUBl_paramster  ;>  expresalon  |  varlabt»^mrr\9 
I  subprogramjnama  \  enf/V-nama  |  tvpe_mark 

An  explicit  generic  actual  parameter  must  be  supplied  for  each  generic  formal  parameter,  unless 
the  corresponding  generic  parameter  declaration  specifies  that  a  default  can  be  used.  Generic 
associations  can  be  either  positional  or  named, In  the  same  manner  as  parameter  associations  of 
subprogram  calls  (sea  6.4).  If  two  or  more  formal  subprograms  have  the  same  designator,  then 
named  associations  are  not  allowed  for  the  corresponding  generic  parameters. 

Each  generic  actual  parameter  must  match  the  corresponding  generic  formal  parameter.  An 
expression  can  match  a  formal  object  of  mode  In;  a  variable  name  can  match  a  formal  object  of 
mode  In  out;  a  subprogram  name  or  an  entry  name  can  match  a  formal  subprogram;  a  type  mark 
can  match  a  formal  type.  The  detailed  rules  defining  the  allowed  matches  are  given  in  sections 
12.3.1  to  12,3,6;  these  are  the  only  allowed  matches. 

The  instance  Is  a  copy  of  the  generic  unit,  apart  from  the  generic  formal  part;  thus  the  Instance  of 
a  generic  package  Is  a  package,  that  of  a  generic  procedure  is  a  procedure,  and  that  of  a  generic 
function  is  a  function.  For  each  occurrence,  within  the  generic  unit,  of  a  name  thet  denotes  a  given 
entity,  the  following  list  defines  which  entity  is  denoted  by  the  corresponding  occurrence  within 
the  instance. 

(a)  For  a  name  that  denotes  the  generic  unit;  The  corresponding  occurrence  denotes  the 
instance, 

(b)  For  a  name  that  denotes  a  generic  formal  object  of  mode  In:  The  corresponding  name 
denotes  a  constant  whose  value  Is  a  copy  of  the  value  of  the  associated  generic  actual 
parameter, 

(c)  For  a  name  that  denotes  a  generic  formal  object  of  mode  In  out:  The  corresponding  name 
denotes  the  variable  named  by  the  associated  generic,  actual  parameter. 

(d)  For  a  name  that  denotes  a  generic  formal  type:  The  corresponding  name  denotes  the  subtype 
named  by  the  associated  generic  actual  parameter  (the  actual  subtype). 

(e)  For  a  name  that  denotes  a  discriminant  of  a  generic  formal  type:  The  corresponding  name 
denotes  the  corresponding  discriminant  (there  must  be  one)  of  the  actual  type  associated  with 
the  generic  formal  type. 


12.3  Generic  Inutant/atlon 


12-8 


Generic  Units 


(f)  For  a  name  that  denotes  a  generic  formal  subprogram:  The  corresponding  name  denotes  the 
subprogram,  enumeration  literal,  or  entry  named  by  the  associated  generic  actual  parameter 
(the  actual  subprogram). 

(g)  For  a  name  that  denotes  a  formal  parameter  of  a  generic  formal  subprogram;  The  cor¬ 
responding  name  denotes  the  corresponding  formal  parameter  of  the  actual  subprogram 
associated  with  the  formal  subprogram. 

(h)  F  or  a  name  that  denotes  a  local  entity  declared  within  the  generic  'init:  The  corresponding 
name  denotes  the  entity  declared  by  the  corresponding  local  declaration  within  the  instance, 

(I)  For  a  name  that  denotes  a  global  entity  declared  outside  of  the  generic  unit:  The  cor¬ 
responding  name  denotes  the  same  global  entity. 

Similar  rules  apply  to  operators  and  basic  operations;  In  particular,  formal  operators  follow  a  rule 
similar  to  rule  (f),  local  operations  follow  a  rule  similar  to  rule  (h),  and  operations  for  global  types 
follow  a  rule  similar  to  rule  (I).  In  addition,  If  within  the  generic  unit  a  predefined  operator  or  basic 
operation  of  a  formal  type  is  used,  then  within  the  instance  the  corresponding  occurrence  refers  to 
the  corresponding  predefined  operation  of  the  actual  type  associated  with  the  formal  type. 

The  above  rules  apply  also  to  any  type  mark  or  (default)  expression  given  within  the  generic  formal 
part  of  the  generic  unit. 

For  the  elaboration  of  a  generic  Instantiation,  each  expression  supplied  a.s  an  explicit  generic  actual 
parameter  Is  first  evaluated,  as  well  as  each  expression  that  appears  as  a  constituent  of  a  variable 
name  or  entry  name  supplied  as  an  explicit  generic  actual  parameter;  these  evaluations  proceed  In 
some  order  that  Is  not  defined  by  the  language.  Then,  for  each  omitted  generic  association  (if  any), 
the  corresponding  default  expression  or  default  name  Is  evaluated;  such  evaluations  are  per¬ 
formed  In  the  order  of  the  generic  parameter  declarations.  Finally,  the  Implicitly  generated  Instance 
is  elaborated.  The  elaboration  of  a  generic  Instantiation  may  also  Involve  certain  constraint  checks 
as  described  in  later  subsections. 

Recursive  generic  instantiation  is  not  allowed  In  the  following  sense;  If  a  given  generic  unit 
includes  an  Instantiation  of  a  second  generic  unit,  then  the  Instance  generated  by  this  Instantiation 
must  not  include  an  Instance  of  the  first  generic  unit  (whether  this  Instance  is  generated  directly,  or 
indirectly  by  intermediate  Instantiations). 

Examples  of  generic  Instantiations  (see  12.1): 

procedure  SWAP  Is  new  EXCHANQE(ELEM  =:>  INTEGER); 

procedure  SWAP  is  new  EXCHANQE(CHARACTER):  -•  SWAP  Is  overloedod 

function  SQUARE  Is  new  SQUARING  (INTEGER);  --  ’■*"  of  INTEGER  used  by  default 
function  SQUARE  Is  new  SQUARING  (ITEM  ->  MATRIX,  =>  MATRIX_PRODUCT): 
function  SQUARE  Is  new  SQUARING  (MATRIX,  MATRIX-PRODUCT);  -  same  as  previous 

packeos  INT_VECTORS  Is  new  ON.VECTORSdNTEGER,  TABLE,  "+"); 

Examples  of  uses  of  Instantiated  units: 

SWAP(A,  B); 

A  ;=  SQUARE(A); 

T  ;  TABLE!  1  .,  5)  :=  (10,  20,  30,  40,  50): 

N  :  INTEGER  :=  INT_VECTORS,SIQMA(T):  ~  150  (nee  12.2  for  the  body  of  SIGMA) 

use  INT-VECTORS: 

M  ;  INTEGER  SIQMA(T);  -  150 
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Notes; 


Omission  of  a  generic  actual  parameter  Is  only  allowed  If  a  corresponding  default  exists.  If  default 
expressions  or  default  names  (other  than  simple  names)  are  used,  they  are  evaluated  in  the  order 
in  which  the  corresponding  generic  formal  parameters  are  declared. 

If  two  overloaded  subprograms  declared  in  a  generic  package  specification  differ  only  by  the  (for¬ 
mal)  type  of  their  parameters  and  results,  then  there  exist  legal  instantiations  for  which  all  calls  of 
these  subprograms  from  outside  the  instance  are  ambiguous.  For  example: 

generic 

type  A  ia  (<>); 

type  B  is  private; 
package  G  Is 

function  NEXT(X  :  A)  return  A; 
function  NEXKX  :  B)  return  B; 
end; 

package  P  Is  new  G(A  =>  BOOLEAN,  B  BOOLEAN); 

-  calls  of  P.NEXT  are  ambiguous 

References:  declaration  3,1,  designator  0.1,  discriminant  3.7.1,  elaboration  3.1  3.9,  entity  3.1,  entry  name  9.5, 
evaluation  4,5,  expression  4,4,  generic  formal  object  12.1,  generic  formal  parameter  12.1,  generic  formal  subprogram 

12.1,  gb,:erlc  formal  type  12.1,  generic  parameter  declaration  12.1,  global  declaration  8.1,  identifier  2.3,  Implicit 
declaration  3.1,  local  declaration  8.1,  mode  In  12.1.1,  mode  In  out  12.1.1,  name  4.1,  operation  3.3,  operator  symbol 

6.1,  overloading  6.6  8.7,  package  7,  simple  name  4.1,  subprogram  6,  subprogram  cell  6.4,  subprogram  name  6.1, 
subtype  declaration  3.3.2,  type  mark  3.3.2,  variable  3.2.1,  visibility  8.3 


12.3.1  Matching  Rules  for  Formal  Objects 


A  generic  formal  parameter  of  mode  in  of  a  given  type  Is  matched  by  an  expression  of  the  same 
type.  If  a  generic  unit  has  a  generic  formal  object  of  mode  In,  a  check  is  made  that  the  value  of  the 
expression  belongs  to  the  subtype  denoted  by  the  type  mark,  as  for  an  explicit  constant  declara¬ 
tion  (see  3.2.1 ).  The  exception  CONSTRAINT_ERROR  is  raised  If  this  check  fails. 

A  generic  formal  parameter  of  mode  In  out  of  a  given  type  is  matched  by  the  name  of  a  variable  of 
the  same  typo.  The  variable  must  not  be  a  formal  parameter  of  mode  out  or  a  subcomponent 
thereof.  The  name  must  denote  a  variable  for  which  renaming  Is  allowed  (see  0.5). 

Notes: 

The  type  of  a  generic  actual  parameter  of  mode  in  must  not  be  a  limited  typo,  The  constraints  that 
apply  to  a  generic  formal  parameter  of  mode  in  out  are  those  of  the  corresponding  generic  actual 
parameter  (see  12.1.1), 

References:  constraint  3,3,  constralnt_8rror  exception  11.1,  expression  4.4,  formal  parameter  6,1,  generic  actual 
parameter  1 2.3,  generic  formal  object  12.1.1,  generic  formal  parameter  12,1,  generic  Instantiation  1 2.3,  generic  unit 

12.1,  limited  type  7,4.4,  matching  generic  actual  parameter  12.3,  mode  in  12.1.1,  mode  in  out  1 2.1 .1,  mode  out  6,2, 
name  4,1,  raising  of  exceptions  11,  satisfy  3.3,  subcomponent  3.3,  type  3.3,  type  mark  3.3,2,  varlabla  3.2.1 


1 2.3. 1  Matching  Rules  for  Formal  Objects 


12-10 


12.3.2  Matching  Rulaa  for  Formal  Private  Typaa 


A  generic  formal  private  type  Is  matched  by  any  type  or  subtype  (the  actual  subtype)  that  satisfies 
the  following  conditions: 

•  If  the  formal  type  Is  not  limited,  the  actual  type  must  not  be  a  limited  type.  (If,  on  the  other 
hand,  the  formal  type  is  limited,  no  such  condition  Is  Imposed  on  the  corresponding  actual 
type,  which  can  bo  limited  or  not  limited.) 

a  If  the  formal  type  hac  a  discriminant  port,  the  actual  type  must  be  a  type  with  the  same 
number  of  discriminants;  the  type  of  a  discriminant  that  appears  at  a  given  position  In  the  dis¬ 
criminant  part  of  the  actual  type  must  La  the  same  as  the  type  of  the  discriminant  that 
appears  at  the  same  position  In  the  discriminant  part  of  the  formal  type;  and  the  actual  sub- 
type  must  be  unconstrained.  (If,  on  the  other  hand,  the  formal  type  has  no  discriminants,  the 
actual  type  Is  allowed  to  have  discriminants.) 

Furthermore,  consider  any  occurrence  of  the  name  of  the  formal  type  at  a  place  where  this  name  Is 
used  as  an  unconstrained  subtype  Indication.  The  actual  subtype  must  not  be  an  unconstrained 
array  typo  or  an  unconstrained  type  with  discriminants,  if  any  of  these  occurrences  Is  at  a  place 
where  either  a  constraint  or  default  discriminants  would  be  required  for  an  array  type  or  for  a  type 
with  discriminants  (see  3.6.1  and  3.7.2).  The  same  restriction  applies  to  occurrences  of  the  name 
of  a  subtype  of  the  formal  typo,  and  to  occurrences  of  the  name  of  any  type  or  subtype  derived, 
directly  or  Indirectly,  from  the  formal  type. 

If  a  generic  unit  has  a  formal  private  type  with  discriminants,  the  elaboration  of  a  corresponding 
generic  instantiation  checks  that  the  subtype  of  each  discriminant  of  the  actual  type  is  the  same  as 
the  subtype  of  the  corresponding  discriminant  of  the  formal  type.  The  exception 
CONSTRAINT_ERROR  is  raised  If  this  check  faito. 

References;  array  type  3.6,  conatraint  3.3,  conatralnt_arror  exception  11,1,  default  expresalon  for  a  discriminant 
3.7.1,  derived  type  3.4,  discriminant  3.7.1,  discriminant  part  3.7.1,  elaboration  3.9.  generic  actual  type  12.3,  generic 
body  12,2,  generic  formal  type  12.1.2,  generic  Instantiation  12,3,  generic  specification  12.1,  limited  type  7.4,4. 
matching  generic  actual  parameter  12.3,  name  4,1,  private  type  7,4,  raising  of  exceptions  11,  subtype  3,3,  subtype 
Indication  3.3.2,  type  3.3.  type  with  discriminants  3.3,  unconstrained  array  type  3.6,  unconstrained  subtype  3.3 


12.3.3  Matching  Rults  for  Formal  Scalar  Typas 


A  generic  formal  type  defined  by  (<>)  Is  matched  by  any  discrete  aubtype  (that  is,  any  enumera¬ 
tion  or  Integer  subtype).  A  generic  formal  type  defined  by  range  <>  Is  matched  by  any  integer 
subtype.  A  generic  formal  type  defined  by  digits  <>  Is  matched  by  any  floating  point  subtype.  A 
generic  formal  type  defined  by  delta  <>  is  matched  by  any  fixed  point  subtype.  No  other  matches 
are  possible  for  these  generic  formal  types. 

References:  box  delimiter  12.1 .2,  discrete  type  3.6,  enumeration  type  3,6,1 ,  fixed  point  type  3.B.9,  floating  point  type 
3.6.7,  generic  actual  typo  12,';,  generic  formal  type  12.1.2,  generic  type  definition  12,1 ,  integer  typo  3.5.4,  matching 
generic  actual  parameter  12,3,  scalar  type  3.6 
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12.3.4  Matching  Rules  for  Formal  Array  Types 


A  formal  array  type  is  matched  by  an  actual  array  subtype  that  satisfies  the  following  conditions: 

•  The  formal  array  type  and  the  actual  array  type  must  have  the  same  dimensionality;  the  for¬ 
mal  type  and  the  actual  subtype  must  be  either  both  constrained  or  both  unconstrained. 

e  For  each  index  position,  the  index  type  must  be  the  same  for  the  actual  array  type  as  for  the 
formal  array  type. 

e  The  component  type  must  be  the  same  for  the  actual  array  type  as  for  the  formal  array  type.  If 
the  component  type  Is  other  than  a  scalar  type,  then  the  component  subtypes  must  be  either 
both  constrained  or  both  unconstrained. 

If  a  generic  unit  has  a  formal  array  type,  the  elaboration  of  a  corresponding  instantiation  checks 
that  the  constraints  (if  any)  on  the  component  type  are  the  same  for  the  actual  array  type  as  for  the 
formal  array  type,  and  likewise  that  for  any  given  index  position  the  index  subtypes  or  the  discrete 
ranges  have  the  same  bounds.  The  exception  CONSTRAINT_ERROR  is  raised  if  this  check  fails. 

Example: 


-  given  the  generic  package 


generic 
type  ITEM 
type  INDEX 
type  VECTOR 
type  TABLE 
package  P  is 


It  private; 

It  (<>); 

it  array  (INDEX  range  <>)  of  ITEM; 
It  array  (INDEX)  of  ITEM; 


end; 


and  the  types 

type  MIX  it  array  (COLOR  range  <>)  of  BOOLEAN; 

type  OPTION  It  array  (COLOR)  of  BOOLEAN; 

-  then  MIX  can  match  VECTOR  and  OPTION  can  match  TABLE 

package  R  is  now  P(ITEM  =>  BOOLEAN,  INDEX  =>  COLOR, 

VECTOR  =>  MIX,  TABLE  =>  OPTION): 

--  Note  that  MIX  cannot  match  TABLE  and  OPTION  cannot  match  VECTOR 


Note: 

For  the  above  rules,  if  any  of  the  index  or  component  types  of  the  formal  array  type  is  itself  a  formal 
type,  then  within  the  Instance  its  name  denotes  the  corresponding  actual  subtype  (see  12.3(d)). 

References:  array  type  3.6,  array  type  definition  3.6,  component  of  an  array  3.6,  constrained  array  type  3.6, 
constraint  3,3,  constraint-error  exception  11.1,  elaboration  3.9,  formal  typo  12.1,  generic  formal  type 
12.1.2,  generic  instantiation  12.3,  Index  3,8,  Index  constraint  3.6.1,  matching  generic  actual  parameter 
12.3,  raise  statement  11.3,  subtype  3.3,  unconstrained  array  type  3.6 


12.3.4  Matching  Rules  for  Formal  Array  Types 
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12.3.5  Matching  Rulat  for  Formal  Acceat  Types 


A  formal  access  type  Is  matched  by  an  actual  access  subtype  If  the  type  of  the  designated  objects 
is  the  same  for  the  actual  type  as  for  the  formal  type.  If  the  designated  type  is  other  than  a  scalar 
type,  then  the  designated  subtypes  must  be  either  both  constrained  or  both  unconstrained. 

If  a  generic  unit  has  a  formal  access  type,  the  elaboration  of  a  corresponding  instantiation  checks 
that  any  constraints  on  the  designated  objects  are  the  same  for  the  actual  access  subtype  as  for 
the  formal  access  type.  The  exception  CONSTRAINT_ERROR  Is  raised  if  this  check  fails. 

Example: 

-  the  formal  types  of  the  generic  package 
generic 

type  NODE  is  private; 
type  LINK  la  access  NODE; 
package  P  Is 

end; 


--  can  be  matched  by  the  actual  types 
type  CAR; 

type  CAR-NAME  Is  ecoass  CAR; 

type  CAR  la 
record 

PRED,  SUCC  :  CAR-NAME; 
NUMBER  I  LICENSE-NUMBER; 
OWNER  !  PERSON; 
and  record; 


~  In  the  following  generic  Instantiation 

package  R  is  new  P(NODE  «>  CAR,  LINK  »>  CAR-NAME); 

Note: 

For  the  above  rules,  if  the  designated  type  Is  itself  a  formal  type,  then  within  the  instance  Its  name 
denotes  the  corresponding  actual  subtype  (see  12.3(d)). 

References:  accest.  'ype  3.8,  aoceu  type  definition  3.8,  constraint  3.3,  constraint-error  exception  11.1,  designate 
3.8,  elaboration  3.9,  generic  formal  type  12.1.Z,  generic  Instantiation  12.3,  matching  generic  actual  parameter  12.3, 
object  3.2,  raise  statement  11.3,  value  of  access  type  3.8 
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12.3.6  Matching  Rufat  for  Formal  Subprograms 


A  formal  subprogram  Is  matched  by  an  actual  subprogram,  enumeration  literal,  or  entry  If  both 
have  the  same  parameter  and  result  type  profile  (see  6.6);  in  addition,  parameter  modes  must  be 
identical  for  formal  parameters  that  are  at  the  same  parameter  position. 

If  a  generic  unit  has  a  default  subprogram  specified  by  a  name,  this  name  must  denote  a  sub¬ 
program,  an  enumeration  literal,  or  an  entry,  that  matches  the  formal  subprogram  (In  the  above 
sense).  The  evaluation  of  the  default  name  takes  place  during  the  elaboration  of  each  Instantiation 
that  uses  the  default,  as  defined  in  section  12.3. 

If  a  generic  unit  has  a  default  subprogram  specified  by  a  box,  the  corresponding  actual  parameter 
can  be  omitted  if  a  subprogram,  enumeration  literal,  or  entry  matching  the  formal  subprogram,  and 
with  the  same  designator  as  the  formal  subprogram,  Is  directly  visible  at  the  place  of  the  generic 
Instantiation;  this  subprogram,  enumeration  literal,  or  entry  Is  then  used  by  default  (there  must  be 
exactly  one  subprogram,  enumeration  literal,  or  entry  satisfying  the  previous  conditions). 

Example; 

given  the  generic  function  specification 
generic 

type  ITEM  is  private; 

with  function  (U,  V  ;  ITEM)  return  ITEM  is  <>; 
function  SOUARINQ(X  !  ITEM)  return  ITEM; 

"  and  the  function 

function  MATRI)CPRODUCT(A,  B  :  MATRIX)  return  MATRIX; 

-  the  following  Instantiation  la  possible 

function  SQUARE  Is  new  SQUARINQIMATRIX,  MATRIX^PRODUCT); 

-  the  following  instantiations  ere  equivalent 

function  SQUARE  is  new  SQUARINQdTEM  ->  INTEGER,  *>  %."); 
function  SQUARE  is  new  SQUARINGdNTEGER,  '*''); 
function  SQUARE  Is  new  SQUARINGdNTEGER); 

Notes; 

The  matching  rules  for  formal  subprograms  state  requirements  that  are  similar  to  those  applying  to 
subprogram  renaming  declarations  (see  8.5).  In  particular,  the  name  of  a  parameter  of  the  formal 
subprogram  need  not  be  the  same  as  that  of  the  corresponding  parameter  of  the  actual  subpro¬ 
gram;  similarly,  for  these  parameters,  default  expressions  need  not  correspond. 

A  formal  subprogram  Is  matched  by  an  attribute  of  a  typo  If  the  attribute  Is  a  function  with  a 
matching  specification.  An  enumeration  litoral  of  a  given  type  matches  a  parameterless  formal 
function  whose  result  type  la  the  given  type. 

References;  attribute  4,1.4,  box  delimiter  12,1,2,  deeignator  6,1,  entry  9.B,  function  6,6,  generic  actual  type  12,3, 
generic  formal  subprogram  12,1,3,  generic  formal  type  12,1.2,  generic  Instantiation  12,3,  matching  generic  actual 
parameter  12.3,  name  4.1,  parameter  and  remit  type  profile  0.3,  subprogram  6,  subprogram  specification  6.1,  sub¬ 
type  3.3.  visibility  6  3 
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Generic  Units 


12.4  Example  of  a  Qanaiic  Packaga 


The  foilowing  example  provides  a  possible  formulation  of  stacks  by  means  of  a  generic  package. 
The  size  of  each  stack  and  tha  type  of  the  stack  elements  are  provided  as  generic  parameters. 

generic 

SIZE  :  POSITIVE; 
type  ITEM  is  private; 
package  STACK  is 

procedure  PUSH  (E  ;  In  ITEM); 
procedure  POP  (E  :  out  ITEM); 

OVERFLOW,  UNDERFLOW  ;  exception; 
end  STACK; 

package  body  STACK  Is 

type  TABLE  Is  way  (POSITIVE  range  <»  of  ITEM; 

SPACE  :  TABLEd  ..  SIZE); 

INDEX  :  NATURAL  0; 

procedure  PUSH(E  ;  In  ITEM)  ie 
begin 

if  INDEX  >«  SIZE  than 
raise  OVERFLOW; 
end  If; 

INDEX  :=>  INDEX  4-  1; 

SPACE(INDEX)  E; 

end  PUSH; 

procedure  POP(E  ;  out  ITEM)  Is 
begin 

If  INDEX  ^  0  then 
raise  UNDERFLOW; 
end  If; 

E  SPACE(INDEX); 

INDEX  INDEX  -  1; 
end  POP; 

end  STACK; 

Instances  of  this  generic  package  can  be  obtained  as  follows; 

package  STACK..INT  Is  new  STACK(SIZE  ->  200,  ITEM  -=>  INTEGER): 

package  STACK_B00L  Is  new  STACKdOO,  BOOLEAN); 

Thereafter,  the  procedures  of  the  Instantiated  packages  can  be  called  as  follows; 

STACKJNT.PUSH(N); 

STACK_BOOL,PUSH{TRUE): 
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Alternatively,  a  generic  formulation  of  the  type  STACK  can  be  given  as  follows  (package  body 
omitted); 

generic 

type  ITEM  Is  private; 
package  ON.STACKS  is 

type  STACKISIZE  :  POSITIVE)  is  iimited  private; 
procedure  PUSH  (S  :  in  out  STACK;  E  :  in  ITEM); 

procedure  POP  (S  :  In  out  STACK;  E  :  out  ITEM); 

OVERFLOW,  UNDERFLOW  ;  exception; 
private 

type  TABLE  is  array  (POSITIVE  range  <»  of  ITEM; 
type  STACKISIZE  ;  POSITIVE)  la 
record 

SPACE  ;  TABLE!  1  ..  SIZE); 

INDEX  :  NATURAL  0; 
end  record; 

end; 

In  order  to  use  such  a  package,  an  Instantiation  must  be  craatad  and  thereafter  stacks  of  the  cor¬ 
responding  type  can  ba  declared: 

declare 

package  STACK_REAL  Is  new  ON.STACKS(REAL);  use  STACK_REAL; 

S  :  STACK!  100); 
begin 

PUSHIS,  2.54); 
end; 
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13.  R*pr«i«ntation  Clauaea  and  Implamantation-Dapandant  Faatuma 


This  chapter  describes  representation  clauses,  certain  implementation-dependent  features,  and 
other  features  that  are  used  In  system  programming. 


13.1  Rapraaantatlon  Clauaaa 


Representation  clauses  specify  how  the  types  of  the  language  are  to  be  mapped  onto  the  underly-  < 
Ing  machine.  They  can  be  provided  to  give  more  efficient  representation  or  to  interface  with 
features  that  are  outside  the  domain  of  the  language  (for  example,  peripheral  hardware), 

representation_clausa  ::=i  i 

type_representatlon_olause  |  addreas_clause 

type_repretantatlon-olause  !;»  Isnath_clause 

I  enumeratlon_reprssentstlon_olause  |  rsoord_repressntatlon..clauss 

A  type  representation  clause  applies  either  to  a  type  or  to  a  first  namad  subtype  (that  Is,  to  a  sub-  3 
type  declared  by  a  type  declaration,  the  base  type  being  therefore  anonymous).  Such  a  representa¬ 
tion  clausa  applies  to  all  objects  that  have  this  type  or  this  first  named  subtype.  At  most  one 
enumeration  or  record  representation  clause  le  allowed  for  a  given  type:  an  enumeration  represen¬ 
tation  clause  Is  only  allowed  for  an  enumeration  type;  a  record  representation  olauee,  only  for  a 
record  type.  (On  the  other  hand,  more  than  one  length  clauee  can  be  provided  for  a  given  type; 
moreover,  both  a  length  clauee  and  an  enumeration  or  record  representation  clause  can  be 
provided.)  A  length  clause  Is  the  only  form  of  representation  clause  allowed  for  a  type  derived  from 
a  parent  type  that  has  (user-defined)  derivable  subprograms. 

An  address  clause  applies  either  to  an  object;  to  a  subprogram,  package,  or  task  unit;  or  to  an  ^ 
entry.  At  most  one  address  clause  Is  allowed  for  any  of  these  entitles. 

A  representation  clause  and  the  declaration  of  the  entity  to  which  the  clause  applies  must  both  s 
occur  Immediately  within  the  same  declarative  part,  package  specification,  or  task  specification : 
the  declaration  must  occur  before  the  clause.  In  the  absence  of  a  representation  clause  for  a  given 
declaration,  a  default  representation  of  this  declaration  Is  determined  by  the  Implementation. 

Such  a  default  determination  occurs  no  later  than  the  end  of  the  Immediately  enclosing  declarative 
part,  package  epeclflcetlon,  or  task  specification.  For  a  declaration  given  in  a  declarative  part,  this 
default  determination  occurs  before  any  enclosed  body. 

In  the  case  of  a  type,  certain  occurrences  of  its  name  Imply  that  the  representation  of  the  type  « 
must  already  have  been  determined.  Consequently  these  occurrences  force  the  default  determina¬ 
tion  of  any  aspect  of  the  reprfiaentatlon  not  already  determined  by  a  prior  type  representation 
clause.  This  default  determination  Is  also  forced  by  similar  occurrences  of  the  name  of  a  subtype  of 
the  type,  or  of  the  name  of  any  type  or  subtype  that  has  subcomponents  of  the  type.  A  forcing 
occurrence  Is  any  occurrence  other  than  In  a  type  or  subtype  declaration,  a  subprogram  specifica¬ 
tion,  an  entry  declaration,  a  deferred  constant  declaration,  a  pragma,  ora  representation  clause  for 
the  type  Itself.  In  any  case,  an  occurrence  within  an  expression  is  always  forcing. 
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A  representation  clause  for  a  given  entity  must  not  appear  after  an  occurrence  of  the  name  of  the 
entity  it  this  occurrence  forces  o  default  determination  of  representation  for  the  entity. 

Similar  restrictions  exist  for  address  clauses.  For  an  object,  any  occurrence  of  Its  name  (after  the 
object  declaration)  Is  a  forcing  occurrence.  For  a  subprogram,  package,  task  unit,  or  entry,  any 
occurrence  of  a  representation  attribute  of  such  an  entity  Is  a  forcing  occurrence. 

The  effect  of  the  olaboration  of  a  raprosontation  clause  is  to  define  the  corresponding  aspects  of 
the  representation. 

The  interpretation  of  soma  of  the  expressions  that  appear  in  representation  clauses  is 
implementation-dependent,  for  example,  expressions  specifying  addresses.  An  implementation 
may  limit  its  acceptance  of  representation  clauses  to  those  that  can  be  handled  simply  by  the 
underlying  hard‘*rare.  If  a  representation  clause  Is  accepted  by  an  implementation,  the  compiler 
must  guaraiV^n  ti  lt  the  net  effect  of  the  program  is  not  changed  by  the  presence  of  the  clause, 
except  for  adr\."'4:r<^  clauses  and  for  parts  of  the  program  that  Interrogate  representation  attributes. 
If  a  program  contains  a  representation  clause  that  Is  not  accepted,  the  program  Is  Illegal.  For  each 
implementation,  the  allowed  representation  clauses,  and  the  conventions  used  for 
implementation -depondont  expresaions,  must  be  documented  In  Appendix  F  of  the  reference 
manual. 

Whereas  a  representation  clause  is  used  to  Impose  certain  characteristics  of  the  mapping  of  an 
entity  onto  the  underlying  machine,  pragmas  can  be  used  to  provide  an  Implen.antation  with 
criteria  fv)r  its  selection  of  such  a  mapping.  The  pragma  PACK  specifies  that  storage  minimization 
should  be  the  main  criterion  when  selactlng  the  representation  of  a  record  or  array  type.  Its  form  is 
as  follows: 

pragma  PACK  (fypa„8lmpl«_nama): 

Packing  means  that  gaps  between  the  storage  areas  allocated  to  consecutive  components  should 
be  minimized.  It  need  not  hov/ever,  affect  the  mapping  of  each  component  onto  storage.  This 
mapping  can  itself  be  influenced  by  a  pragma  (or  controlled  by  a  representation  clause)  for  the 
component  or  component  type.  The  position  of  a  PACK  pragma,  and  the  restrictions  on  the  named 
type,  ere  governed  by  the  same  rules  as  for  a  representation  clause;  in  particular,  the  pragma  must 
appear  before  any  use  of  a  representathn  attribute  of  the  packed  entity. 

The  pragma  PACK  Is  the  only  language-defined  representation  pragma.  Additional  representation 
pragmas  may  be  provided  by  an  Implementation;  these  must  be  documented  In  Appendix  F.  (In 
contrast  to  representation  clauses,  a  pragma  that  Is  not  accepted  by  the  implementation  Is 
ignored,) 

Note: 

No  repn^serltatlon  clause  is  allowed  for  a  generic  formal  type. 


References!  tiddresD  clausa  13.5.  allow  1.6.  body  3.9.  oomponent  3.3.  daclaratlon  3.1,  daclaratlve  part  3.9.  default 
expreNnlon  3.2.1,  daforrad  constant  daclaratlon  7.4,  derivable  eubprogrem  3.4,  derived  type  3.4,  entity  3,1,  entry  9.5, 
enumeration  ropreeontatlon  clauie  13.3,  expreealon  4.4,  gsnsric  formal  type  12.1.2,  Illegal  1.6,  length  clause  13.2, 
must  1  6.  name  4.1,  object  3.2,  occur  Immediately  within  8.1,  package  7,  package  specification  7.1 .  parent  type  3.4, 
pragma  2.B.  record  representation  clauaa  13.4,  representation  attribute  13.7.2  13.7.3,  aubcontponent  3.3.  sub¬ 
program  6.  subtype  3.3,  subtype  declaration  3.3.2,  task  apeclflcetlon  9.1 .  task  unit  9.  type  3.3.  type  declaration  3.3.1 
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13.2  L«ngth  Clauss* 


A  length  clause  specifies  an  amount  of  storage  associated  with  a  type. 

Iength_clause  for  attribute  uea  almple_expres8ion; 

The  expression  must  be  of  some  numeric  type  and  is  evaluated  during  the  elaboration  of  the  length 
clause  (unless  it  is  a  static  expression).  The  prefix  of  the  attribute  must  denote  either  a  type  or  a 
first  named  subtype,  The  prefix  is  called  T  In  what  follows.  The  only  allowed  attribute  designators 
in  a  length  clause  are  SIZE,  STORAGE_SIZE,  and  SMALL.  The  effect  of  the  length  clause  depends 
on  the  attribute  designator: 


(a)  Size  specification;  TSIZE 

The  expression  must  be  s  static  expression  of  some  Integer  type.  The  value  of  the  expression 
specifies  an  upper  bound  for  the  number  of  bits  to  be  allocated  to  objects  of  the  type  or  first 
named  subtype  T.  The  size  specification  must  allow  for  enough  storage  space  to  accom¬ 
modate  every  allowable  value  of  these  objects.  A  size  specification  for  a  composite  type  may 
affect  the  size  of  the  gaps  between  the  storage  areas  allocated  to  consecutive  components. 
On  the  other  hand,  it  need  not  affect  the  size  of  the  storage  area  allocated  to  each  component. 

The  size  specification  Is  only  allowed  If  the  constraints  on  T  and  on  its  subcomponents  (If  any) 
are  static.  In  the  case  of  an  unconstrained  array  type,  the  Index  subtypes  must  also  be  static. 


(b)  Specification  of  collection  size:  T'STORAGE-SIZE 

The  prefix  T  must  denote  an  access  type.  The  expression  must  be  of  some  Integer  type  (but 
need  not  be  static);  Its  value  specifies  the  number  of  storage  units  to  bo  reserved  for  the  col¬ 
lection,  that  is,  the  storsge  space  needed  to  contain  all  objects  designated  by  values  of  the 
access  typo  and  by  values  of  other  types  derived  from  the  access  type,  directly  or  Indirectly. 
This  form  of  length  clause  Is  not  allowed  for  a  type  derived  from  an  access  type. 


(c)  Specification  of  storage  fora  task  activation;  TSTORAGE.SIZE 

The  prefix  T  must  denote  a  task  type.  The  expression  must  be  of  some  Integer  type  (but  need 
not  be  static);  Its  value  specifies  the  number  of  storage  units  to  be  reserved  for  an  activation 
(not  the  code)  of  a  task  of  the  typo. 


(d)  Specification  of  small  for  a  fixed  point  type:  T'SMALL 

The  prefix  T  must  denote  the  first  named  subtype  of  a  fixed  point  type.  The  expression  must 
be  a  static  expression  of  some  reel  type;  its  value  must  not  be  greater  than  the  delta  of  the 
first  named  subtype.  The  effect  of  the  length  clause  Is  to  use  this  value  of  small  for  the 
representation  of  values  of  the  fixed  point  base  type,  (The  length  clause  thereby  also  affects 
the  amount  of  storage  for  objects  that  have  this  typo.) 

Notes; 

A  size  specification  Is  allowed  for  an  access,  task,  or  fixed  point  type,  whether  or  not  another  form 
of  length  clause  is  also  given  for  the  type. 
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H  What  is  considered  to  be  part  of  the  storage  reserved  for  a  collection  or  for  an  activation  of  a  task 
is  implementation-dependent.  The  control  afforded  by  length  clauses  Is  therefore  relative  to  the 
implementation  conventions.  For  exa.Tiple,  the  language  does  not  define  whether  the  storage 
reserved  for  an  activation  of  a  task  Includes  any  storage  needed  for  the  collection  associated  with 
an  access  type  declared  within  the  thsk  body.  Neither  does  It  define  the  method  of  allocation  for 
objects  denoted  by  values  of  an  access  type.  For  example,  the  space  allocated  could  be  on  a  stack; 
alternatively,  a  general  dynamic  allocation  scheme  or  fixed  storage  could  be  used. 

15  The  objects  allocated  In  a  collection  need  not  have  the  same  size  if  the  designated  type  Is  an 
unconstrained  array  type  or  an  unconstrained  type  with  discriminants.  Note  also  that  the  allocatur 
itself  may  require  some  space  for  Internal  tables  and  links.  Hence  a  length  clause  for  the  collection 
of  an  access  type  does  not  always  give  precise  control  over  the  maximum  number  of  allocated 
objects. 

w  Exampleis; 

-  assumed  declarations: 

type  MEDIUM  Is  range  0  ..  65000; 

type  SHORT  Is  delta  0.01  range  -100.0  ..  100.0; 

type  DEGREE  la  delta  0.1  range  -360.0  ..  360.0; 

BYTE  :  constant  B; 

PAGE  :  constant  2000; 

-  length  clauses: 

tor  COLOR'SIZE  use  UBYTE;  -  see  3.6.1 

tor  MEDIUM'SIZE  use  2*BYTE; 

tor  SHORTSIZE  use  IS; 

tor  CAR_NAME'STORAGE_SIZE  use  ••  approximately  2000  oars 
2000*((CAR'SIZE/SYSTEM.STORAQE_UNIT)  +  1); 

tor  KEYBOARD_DRIVER'STORAGE_SIZE  use  UPAGE; 

tor  DEGREE'SMALL  use  360.0/2*«(SYSTEM.ST0RAGE_UNIT  >  1); 

11  Notes  on  the  examples: 

In  th  j  length  clause  for  SHORT,  fifteen  bits  Is  the  minimum  necessary,  since  the  type  definition 
requires  SHORT'SMALL  =  2.0**(-7)  and  SHORT'MANTISSA  =  14.  The  length  clause  for  DEGREE 
forces  the  model  numbers  to  exactly  span  the  range  of  the  type. 

w  References:  acosss  type  3.8,  allocator  4.8,  allow  1.6,  array  typa  3.6.  attribute  4.1.4,  collection  3.8,  oompoelte  type 
3.3.  constraint  3.3.  delta  of  a  fixed  point  typa  3.6.8,  derived  type  3.4,  designate  3.8,  elaboration  3.9,  entity  3.1, 
evaluation  4.5,  expresalon  4.4,  firat  named  subtype  13.1,  fixed  point  type  3.5.9,  Index  subtype  3.6,  Integer  type  3,6.4, 
must  1.6.  numeric  type  3.6,  object  3.2,  reel  type  3.5.6,  record  type  3.7,  small  of  a  fixed  point  type  3.6.10.  static  con¬ 
straint  4.9,  static  expression  4.9,  static  subtype  4.9,  storage  unit  13,7,  subcomponent  3.3,  system  package  13.7,  task 
9,  task  activation  9.3,  task  specification  9.1,  task  type  9.2,  type  3.3,  unconstrained  array  type  3.6 
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13.3  Enumeration  Rapreaantation  Clauaua 


An  enumeration  representation  clause  specifies  the  Internal  codes  for  the  literals  of  the  enumera¬ 
tion  type  that  Is  named  In  the  clausa. 

enumeratlon_rspresentation_clauBe  for  rypa.^lmplo_name  use  aggregate; 

The  aggregate  used  to  specify  this  mapping  Is  written  as  a  one-dimenslonal  aggregate,  for  which 
the  Index  subtype  Is  the  enumeration  type  and  the  component  type  Is  universaUntegor. 

All  literals  of  the  enumeration  type  must  be  provided  with  distinct  Integer  codes,  and  all  choices 
and  component  values  given  In  the  aggregate  must  be  static.  The  Integer  codes  specified  for  the 
enumeration  type  must  satisfy  the  predefined  ordering  relation  of  the  type. 

Example; 

type  MIX..CODE  Is  (ADD,  SUB,  MUL,  LDA,  STA,  STZ); 
for  MIX_CODE  use 

(ADD  =>>  1.  SUB  =i>  2,  MUL  ->  3.  LDA  ->  8,  STA  =>  24,  STZ  =>  33); 


Notes; 

The  attributes  SUCC,  PRED,  and  PCS  are  defined  even  for  enumeration  typos  with  a 
noncontiguous  representation;  their  definition  corresponds  to  the  (logical)  type  declaration  and  Is 
not  affected  by  the  enumeration  representation  clause.  In  the  example,  because  of  the  need  to 
avoid  the  omitted  values,  these  functions  are  likely  to  be  less  efficiently  Implemented  than  they 
could  be  In  the  absence  of  a  representation  clause.  Similar  considerations  apply  when  such  types 
are  used  for  indexing. 


References;  aggregate  4,3,  array  aggregate  4,3,2,  array  type  3.6,  attribute  of  an  enumeration  type  3,6.6,  choice 
37.3,  component  3.3,  enumeration  literal  3.5.1,  enumeration  type  3.6.1.  function  6.6,  Indax  3.6,  Index  lubtype  3.6, 
literal  4.2.  ordering  relation  of  an  enumeration  type  3.6.1,  repreaeritatlon  clause  13.1 ,  simple  name  4.1 ,  static  expres¬ 
sion  4.9.  typo  3.3.  type  deulaiatlon  3.3.1,  unlvertaUnteger  typo  3.5.4 


13.4  Record  Raprasantatlon  Clauses 


A  record  representation  clause  specifies  the  storage  representation  of  records,  that  is,  the  order, 
position,  and  size  of  record  components  (Including  discriminants.  If  any). 

record_reprssentatlon_olauss  ;;=> 
for  rype_8lmple_name  use 
record  (allgnm«nt_clausel 
jcomponent-olaussl 
end  record; 

allgnmentxlause  at  mod  arar/c_Blmpie-oxpre8slon; 
component_olau8e  ;;= 

componentjname  at  jfaffc_sln'(ple_expres8lon  range  jfar/c_rango; 
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1  The  simple  expression  given  after  the  resen/ed  vt/ords  at  mod  in  an  alignment  clause,  or  after  the 
reserved  word  at  In  a  component  clause,  must  be  a  static  expression  of  some  integer  type.  If  the 
bounds  of  tho  range  of  a  component  clause  are  defined  by  simple  expressions,  then  each  bound  of 
the  range  must  be  defined  by  a  static  expression  of  some  Integer  type,  but  the  two  bounds  need 
rtot  have  the  same  Integer  type. 

An  alignment  clause  forces  each  record  of  the  given  type  to  be  allocated  at  a  starting  address  that 
Is  a  multiple  of  tho  value  of  the  given  expression  (that  Is,  the  address  modulo  the  expression  must 
be  zero).  An  implementation  may  place  restrictions  on  the  allowable  alignments. 

j  A  component  clause  specifies  the  storage  place  of  a  component,  relative  to  the  start  of  the  record. 
The  Integer  defined  by  the  static  expression  of  a  component  clause  Is  a  relative  address  expressed 
in  storage  units.  The  range  defines  the  bit  positions  of  the  storage  place,  relative  to  the  storage 
unit.  The  first  storage  unit  of  a  record  Is  numbered  zero.  The  first  bit  of  a  storage  unit  Is  numbered 
zero.  The  ordering  of  bits  In  a  storage  unit  Is  machine-dependent  and  may  extend  to  adjacent 
storage  units.  (For  a  specific  machine,  the  size  in  bits  of  a  storage  unit  Is  given  by  the 
conflguratlon-dapondent  named  number  SYSTEM  .STORAGE-UNIT.)  Whether  a  component  Is 
allowed  to  overlap  a  storage  boundary,  and  If  so,  how,  la  Implementation-defined. 

e  At  most  one  component  clause  is  allowed  for  each  component  of  the  record  type.  Including  for 
each  discriminant  (component  clauses  may  be  given  for  some,  all,  or  none  of  the  components).  If 
no  component  clausa  Is  given  for  a  component,  then  the  choice  of  the  storage  place  for  the  com¬ 
ponent  la  left  to  the  compiler.  If  component  clauses  are  given  for  all  components,  the  record 
representation  clause  completely  apeolfios  the  representation  of  the  record  type  and  must  be 
obeyed  exactly  by  tho  compiler. 

j  Storage  places  within  a  record  variant  must  not  overlap,  but  overlap  of  the  storage  for  distinct 
variants  Is  allowed.  Each  component  clause  must  allow  for  enough  storage  space  to  accom¬ 
modate  every  allowable  value  of  the  component.  A  component  clause  Is  only  allowed  for  a  compo¬ 
nent  If  any  constraint  on  this  component  or  on  any  of  Its  subcomponents  Is  static. 

I  An  Implementation  may  generate  names  that  denote  Implementation-dependent  components  (for 
example,  one  containing  the  offset  of  another  component).  Such  Implementation-dependant 
names  can  be  used  In  record  representation  clauses  (these  names  need  not  be  simple  names;  for 
example,  they  could  be  Implementation-dependent  attributes). 


»  Example: 

WORD  ;  constant  ;«  4;  -  storage  unit  Is  byte,  4  bytes  per  word 

type  STATE  is  (A,  M,  W,  P): 

type  MODE  Is  (FIX,  DEC,  EXP,  SIGNIF): 

type  BYTE-MASK  Is  array  (0  ..  7)  of  BOOLEAN; 

type  STATE-MASK  Is  array  (STATE)  of  BOOLEAN; 

type  MODE-MASK  is  array  (MODE)  of  BOOLEAN; 

type  PROQRAM-STATUS-WORD  le 
record 

SYSTEM-MASK  :  BYTE_MASK; 

PROTECTION-KEY  ;  INTEGER  range  0  ,.  3; 

MACHINE-STATE  :  STATE-MASK; 

INTERRUPT-CAUSE  :  INTERRUPTION-CODE; 

ILC  :  INTEGER  range  0  ..  3; 

CC  ;  INTEGER  range  0  ..  3; 

PROGRAM-MASK  i  MODE-MASK; 

INST-ADDRESS  ;  ADDRESS; 

end  record; 

13.4  Record  Representation  Clauses 
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for  PROGRAM..STATUS_WORD  use 


record  at  mod  8; 


SYSTEM_MASK 

at 

0*W0RD 

range 

0 

..  7; 

PROTECTION_KEY 

at 

0*W0RD 

range 

10 

..11; 

"  bits  8, 

9  unused 

MACHINE_STATE 

at 

0*W0RD 

range 

12 

..  15; 

INTER RUPT_CAUSE 

at 

0*W0RD 

range 

16 

..  31; 

ILC 

at 

UWORD 

range 

0 

..  1; 

—  second 

word 

cc 

at 

UWORD 

range 

2 

..  3; 

PROGRAM-MASK 

at 

UWORD 

range 

4 

..  7; 

INST^DDRESS 

at 

UWORD 

range 

8 

..  31; 

end  record; 


for  PROGRAM_STATUS.WORD'SIZE  use  8+SYSTEM.ST0RAGE_UNIT; 

Note  on  the  example; 

The  record  representation  clause  defines  the  record  layout.  The  length  clause  guarantees  that  to 
exactly  eight  storage  units  are  used. 

References;  allow  1.6,  attribute  4.1,4,  oonatant  3.2,1,  constraint  3.3,  discriminant  3.7.1,  Integer  type  3.5.4,  must  ii 
1.6,  named  number  3,2,  range  3.5,  record  component  3.7,  record  type  3.7.  simple  expression  4.4,  simple  name  4.1, 
static  constraint  4.9,  static  expression  4.9,  storage  unit  1 3.7,  subcomponent  3.3,  system  package  1 3.7,  variant  3.7.3 


13.6  Address  Clauses 


An  address  clause  specifies  a  required  address  In  storage  for  un  entity,  < 

addres8_olauss  !i<-  for  slmple^name  use  at  slmple.expreaslon;  > 

The  expression  given  after  the  reserved  vyord  at  must  be  of  the  type  ADDRESS  defined  In  the  3 
package  SYSTEM  (see  13.7);  this  package  must  be  named  by  a  with  clause  that  applies  to  the 
compilation  unit  In  which  the  address  clause  occurs.  The  conventions  that  define  the  Interpretation 
of  a  value  of  the  type  ADDRESS  as  an  address,  as  an  Interrupt  level,  or  whatever  It  may  be,  are 
Implementation-dependant.  The  allowed  nature  of  the  simple  name  and  the  meaning  of  the  cor¬ 
responding  address  are  as  follows: 


(a)  Name  of  an  object:  the  address  Is  that  required  for  the  object  (variable  or  constant).  < 

(b)  Name  of  a  subprogram,  package,  or  task  unit:  the  address  Is  that  required  for  the  machine  3 

code  associated  with  the  body  of  the  program  unit. 

(c)  Name  of  a  single  entry:  the  address  specifies  a  hardware  Interrupt  to  which  the  single  entry  Is 
to  be  linked. 

If  the  simple  name  Is  that  of  a  single  task,  the  address  clause  Is  understood  to  refer  to  the  task  unit  7 
and  not  to  the  task  object.  In  all  oases,  the  address  clause  is  only  legal  If  exactly  one  declaration 
with  this  Identifier  occurs  earlier,  Immediately  within  the  same  declarative  part,  package  specifica¬ 
tion,  or  task  specification.  A  name  declared  by  a  renaming  declaration  Is  not  allowed  as  the  simple 
name. 

Address  clauses  should  not  be  used  to  achieve  overlaya  of  objects  or  overlays  of  program  units.  b 


Nor  should  a  given  Interrupt  be  linked  to  more  then  one  entry.  Any  program  using  address  clauses 
to  achieve  such  effects  Is  erroneous. 
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Example: 

for  CONTROL  ut0  It  16#0020#;  --  assuming  that  SYSTEM -ADDRESS  is  an  Integer  type 

Notes; 

The  above  rules  imply  that  If  two  subprograms  overload  each  other  and  are  visible  at  a  given  point, 
an  address  clause  for  any  of  them  Is  not  legal  at  this  point,  Similarly  If  a  task  specification  declares 
entries  that  overload  each  other,  they  cannot  be  interrupt  entries.  The  syntax  does  not  allow  an 
address  clause  for  a  library  unit.  An  implementation  may  provide  pragmas  for  the  specification  of 
program  overlays. 

References:  address  predefined  type  13.7,  apply  10.1.1,  compilation  unit  10.1,  constant  3.2.1 ,  entity  3.1,  entry  9.5, 
erroneous  1.6,  expression  4.4,  library  unit  10,1,  name  4.1,  object  3,2,  package  7,  pragma  2.8,  program  unit  6, 
reserved  word  2.9,  simple  expression  4.4,  simple  name  4.1,  subprogram  6,  subprogram  body  6.3,  system  package 
13.7,  task  body  9.1,  task  object  9.2,  task  unit  9,  type  3.3,  variable  3.2.1,  with  clause  10.1.1 


13.5.1  Interrupts 


An  address  clause  given  for  an  entry  associates  the  entry  with  some  device  that  rr  3y  cause  an 
Interrupt;  such  an  entry  Is  referred  to  in  this  section  as  an  Interrupt  entry.  If  control  information  is 
supplied  upon  an  interrupt,  it  Is  passed  to  an  associated  Interrupt  entry  as  one  or  more  parameters 
of  mode  in;  only  parameters  of  this  mode  are  allowed. 

An  interrupt  acts  as  an  entry  call  issued  by  a  hardware  task  whose  priority  Is  higher  than  the 
priority  of  the  main  program,  and  also  higher  than  the  priority  of  any  user-deflned  task  (that  Is,  any 
task  whose  type  Is  declared  by  a  task  unit  In  the  program).  The  entry  call  may  be  an  ordinary  entry 
call,  a  timed  entry  call,  or  a  conditional  entry  call,  depending  on  the  kind  of  Interrupt  and  on  the 
Implementation. 

If  a  select  statement  contains  both  a  terminate  alternative  and  an  accept  alternative  for  an  inter¬ 
rupt  entry,  then  an  implementation  may  Impose  further  requirements  for  the  selection  of  the  ter¬ 
minate  alternative  In  addition  to  those  given  In  section  9.4. 

Example; 


task  INTERRUPT_HANDLER  Is 
entry  DONE; 

for  DONE  use  at  16#40#; 
end  INTERRUPT_HANDLER; 


assuming  that  SYSTEM.ADDRESS  Is  an  integer  type 


Notes; 


Interrupt  entry  calls  need  only  have  the  semantics  described  above;  they  may  be  Implemented  by 
having  the  hardware  directly  execute  the  appropriate  accept  statements. 

Queued  interrupts  correspond  to  ordinary  entry  calls.  Interrupts  that  are  lost  If  not  Immediately 
processed  correspond  to  conditional  entry  cells.  It  is  a  consequence  of  the  priority  rules  that  an 
accept  statement  executed  In  response  to  an  Interrupt  takes  precedence  over  ordinary,  user- 
defined  tasks,  and  can  be  executed  without  first  Invoking  a  scheduling  action. 


13.5.1  Interrupts 
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One  of  the  possible  effects  of  an  address  clause  for  an  interrupt,  entry  Is  to  specify  the  priority  of 
the  interrupt  (directiy  or  Indirectly).  Direct  cails  to  an  interrupt  entry  are  ailowed. 

Referonces;  accept  alternativ..  9.7.1,  accept  statement  9.5,  address  predefined  type  13.7,  allow  1.6,  conditional 
entry  call  9.7.2,  entry  9.5,  entry  call  9.P.  mode  6.1 ,  parameter  of  a  subprogram  6.2,  priority  of  a  task  9.9,  select  alter¬ 
native  S.7.1,  select  statement  9.7,  aystem  package  13.7,  task  9,  terminate  alternative  9.7.1,  timed  entry  call  9.7.3 


13.6  Change  of  Roprssentation 


At  most  one  reprssentstion  clause  Is  allowed  for  a  given  type  and  a  given  aspect  of  its  representa¬ 
tion.  Hence,  If  an  alternative  representation  is  needed,  it  is  necessary  to  declare  a  second  type, 
derived  from  the  first,  and  to  specify  a  different  represents tlor^  for  the  second  type. 

Example: 

-  PACKED_OESCRIPTOR  and  DESCRIPTOR  are  two  different  types 

—  with  Identical  characteristlos,  apart  from  their  representation 

type  DESCRIPTOR  la 
record 

"  components  of  a  descriptor 
and  record; 

type  PACKED_OESCRIPTOR  ie  new  DESCRIPTOR; 

for  PACKED-DESCRIPTOR  uea 
record 

-  component  clautes  for  some  or  for  all  components 
end  record; 

Change  of  representation  can  now  be  accomplished  by  assignment  with  explicit  type  conversions; 

D  :  DESCRIPTOR! 

P  I  PACKED-DESCRIPTOR; 

P  :=  PACKED-DESCRIPTORID);  ~  pack  D 

D  DESCRIPTOR(P);  -  unpack  P 


References:  assignment  6.2.  derived  type  3.4,  type  3.3,  type  convereinn  4.6,  type  declaration  3.1,  representation 
clause  13.1 


13.7  The  Package  System 


For  each  implementation  there  Is  a  predefined  library  package  called  SYSTEM  which  includes  the 
definitions  of  certain  configuration-dependent  characteristics.  The  specification  of  the  package 
SYSTEM  is  Implementation-dspendent  and  must  be  given  in  Appendix  F.  The  visible  part  cf  this 
package  must  contain  at  least  tho  following  declarations. 
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packaga  SYSTEM  il 

type  ADDRESS  la  implBmentatlon^deffned] 

type  NAME  Is  /mplementetfon^defined^enumeratfon^type] 

SYSTEM_NAME  I  constant  NAME  :=  Implamantatlon^deftned] 

STORAQE_UNIT  :  constant  :=  /mplamantathn-defined; 

MEM0RY_SI2E  :  constant  :=  tmplamentatlon^def/ned-, 

—  3m-Dependent  Named  Numbers: 


MINJNT 

MAX_INT 

MA>C.DIGITS 

MAX.MANTISSA 

FINE_DELTA 

TICK 


:  constant  :=  /mplemantatlon^dafined] 
:  constant  Implamantatlon^daflned: 
:  constant  :=  tmplamantatlon^deflnad', 
:  constant  :=  (mplamantatlon^definadi 
:  constant  :=  implamantatlon^daflnad', 
:  constant  :»  Implamantatfon^definad-, 


-  Other  System-Dependent  Declarations 


subtype  PRIORITY  Is  INTEGER  range  /mp/amantatfon^dafined) 


end  SYSTEM; 

The  type  ADDRESS  is  the  type  of  the  addresses  provided  in  address  clauses;  it  Is  also  the  type  of 
the  result  delivered  by  the  attribute  ADDRESS.  Values  of  the  enumeration  type  NAME  are  the 
names  of  alternative  machine  configurations  handled  by  the  implementation;  one  of  these  is  the 
constant  SYSTEM-NAME.  The  named  number  STORAGE-UNIT  Is  the  number  of  bits  per  storage 
unit;  the  named  number  MEMORY-SIZE  Is  the  number  of  available  storage  units  in  the 
configuration;  these  named  numbers  are  of  the  type  univarsaUntagar, 

An  alternative  form  of  the  package  SYSTEM,  with  given  values  for  any  of  SYSTEM-NAME, 
STORAGE-UNIT,  and  MEMORY-SIZE,  can  be  obtained  by  means  of  the  corresponding  pragmas. 
These  pragmas  are  only  allowed  at  the  start  of  a  compilation,  before  the  first  compilation  unit  (If 
any)  of  the  compilation. 

pragma  SYSTEM-NAME  (enumerationjlteral); 

The  effect  of  the  above  pragma  Is  to  use  the  enumeration  literal  with  the  specified  identifier  for  the 
definition  of  the  constant  SYSTEM-NAME .  This  pragma  is  only  allowed  if  the  specified  identifier 
corresponds  to  one  of  the  literals  of  the  type  NAME . 

pragma  STORAGE-UNIT (numerlcJiterall; 

The  effect  of  the  above  pragma  is  to  use  the  value  of  the  specified  numeric  literal  for  the  definition 
of  the  named  number  STORAGE-UNIT. 

pragma  MEMORY-SIZE  (numeric-literal); 

The  effect  of  the  above  pragma  Is  to  use  the  value  of  the  specified  numeric  literal  for  the  definition 
of  the  named  number  MEMORY-SIZE . 


13. 7  The  Package  System 
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The  compilation  of  any  of  these  pragmas  causes  an  Implicit  recompilation  of  the  package  SYSTEM .  n 
Consequently  any  compilation  unit  that  names  SYSTEM  in  its  context  clause  becomes  obsolete 
after  this  implicit  recompilation.  An  Implementation  may  Impose  further  limitations  on  the  use  of 
these  pragmas.  For  example,  an  Implementation  may  allow  them  only  at  the  start  of  the  first  com¬ 
pilation,  when  creating  a  new  program  library. 

Note: 

It  Is  a  consequence  of  the  visibility  rules  that  a  declaration  given  in  the  package  SYSTEM  Is  not 
visible  In  a  compilation  unit  unless  this  package  Is  mentioned  by  a  with  clause  that  applies  (directly 
or  Indirectly)  to  the  compilation  unit. 


References;  address  olsusa  13.6,  apply  10.1.1,  attribute  4.1.4,  compilation  unit  10.1,  declaration  3.1,  enumeration  n 
literal  3,6.1,  enumeration  type  3.5.1,  Identifier  2.3,  library  unit  10.1,  must  1.6,  named  number  3.2,  number  declaration 
3.2,2,  numeric  literal  2.4,  package  7,  package  apeclflcatlon  7.1,  pragma  2.8,  program  library  10.1,  type  3.3,  visibility 
6.3,  visible  part  7.2,  with  clause  10.1.1 


13.7.1  Syatam-Dapandant  Namad  Numbars 


Within  the  package  SYSTEM,  the  following  named  numbers  are  declared.  The  numbers 


FINE_DELTA  and  TICK  are  of  the  type  unNerseUeah,  the  others  are  of  the  type  unNersaIJnteger, 

MINJNT  The  smallest  (most  negetive)  value  of  all  predefined  Integer  types.  2 

MAX_INT  The  largest  (moat  positive)  value  of  all  predefined  integer  types.  s 

MAX_DIGITS  The  largest  value  allowed  for  the  number  of  significant  decimal  digits  In  a  4 

floating  point  constraint. 

MAX_MANTISSA  The  largest  possible  number  of  binary  digits  In  the  mantissa  of  model  numbers  a 
of  a  fixed  point  subtype. 

FINE.DELTA  The  smallest  delta  allowed  In  a  fixed  point  constraint  that  has  the  range  con-  a 
straint  -1.0  ..  1.0. 

TICK  The  basic  clock  period,  in  seconds.  7 

References;  allow  1.6,  dalta  of  a  fixed  point  constraint  3.6.9,  fixed  point  constraint  3.5.9,  floating  point  constraint  s 


3.6.7,  Integer  type  3.5.4,  model  number  3.6.6,  named  number  3.2,  package  7,  range  constraint  3.5,  ayatam  package 

13.7,  type  3,3,  unlveraaLInteger  type  3.6.4,  universal-real  type  3.6.6 
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1 3.7.2  Raprewntatlon  Attributes 


The  values  of  certain  Implementation-dependent  characteristics  can  be  obtained  by  Interrogating 
appropriate  representation  attributes.  These  attributes  are  described  below. 

For  any  object,  program  unit,  label,  or  entry  X: 

X'ADDRESS  Yields  the  address  of  the  first  of  the  storage  units  allocated  to  X.  For  a  sub¬ 
program,  package,  task  unit  or  label,  this  value  refers  to  the  machine  code 
associated  with  the  corresponding  body  or  statement.  For  an  entry  for  which 
an  address  clause  has  been  given,  the  value  refers  to  the  corresponding 
hardware  Interrupt.  The  value  of  this  attribute  is  of  the  type  ADDRESS  defined 
In  the  pac'^age  SYSTEM . 

For  any  typo  or  subtype  X,  or  for  any  object  X: 

X'SIZE  Applied  to  an  object,  yields  the  number  of  bits  allocated  to  hold  the  object. 

Applied  to  a  type  or  subtype,  yields  the  minimum  number  of  bits  that  la 
needed  by  the  implementation  to  hold  any  possible  object  of  this  type  or  sub- 
type.  The  value  of  this  attribute  Is  of  the  type  universaijnteger. 

For  the  above  two  representation  attributes.  If  the  prefix  Is  the  name  of  a  function,  the  attribute  Is 
understood  to  be  an  attribute  of  the  function  (not  of  the  result  of  calling  the  function),  Similarly,  If 
tne  type  of  the  prefix  Is  an  access  type,  the  attribute  is  understood  to  be  an  attribute  o'  the  prefix 
(not  of  the  designated  object;  attributes  of  the  latter  can  be  written  with  a  prefix  ending  with  the 
reserved  word  all). 


For  any  component  C  of  a  record  object  R: 


R.C'POSITION  Yields  the  offset,  from  the  start  of  the  first  storage  unit  occupied  by  the  record, 

of  the  first  of  the  storage  units  occupied  by  C.  This  offset  Is  measured  In 
storage  unita,  The  value  of  this  attribute  is  of  the  type  universaijnteger. 

R.C'FIRST.BIT  Yields  the  offset,  from  the  start  of  the  first  of  the  storage  unita  occupied  by  C, 

of  the  first  bit  occupied  by  C.  This  offset  la  measured  In  bits.  The  value  of  this 
attribute  Is  of  the  type  universaijnteger. 


R.C'LAST_BIT  Yields  the  offset,  from  the  start  of  the  first  of  the  storage  units  occupied  by  C, 
of  the  last  bit  occupied  by  C.  This  offset  Is  measured  in  bits.  The  value  of  this 
attribute  Is  of  the  type  universaijnteger. 


For  any  aceses  type  or  subtype  T; 

T'STORAGE_SIZE  Yields  the  total  number  of  storage  units  resen/ed  for  the  collection  associated 
with  the  base  type  of  T.  The  value  of  this  attribute  is  of  the  type  univer¬ 
saijnteger. 

For  any  task  typo  or  task  object  T: 

T'STORAGE_SIZE  Yields  the  number  of  storage  units  reserved  for  each  activation  of  a  task  of  the 
type  T  or  for  the  activation  of  the  task  object  T.  The  value  of  this  attribute  is  of 
the  type  unlverseUnteger. 


1 3. 7.2  Representation  Attributes 
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Notes; 


For  a  task  object  X,  the  attribute  X'SIZE  gives  the  number  of  bits  used  to  hoid  the  object  X, 
whereas  X'STORAGE.SIZE  gives  the  number  of  storage  units  allocated  for  the  activation  of  the 
task  designated  by  X.  For  a  formal  parameter  X,  If  parameter  passing  is  achieved  by  copy,  then  the 
attribute  X'ADDRESS  yields  the  address  of  the  local  copy;  if  parameter  passing  is  by  reference, 
then  the  address  is  that  of  the  actual  parameter. 

References:  accoss  subtypo  3.8,  access  type  3.8,  activation  9.3,  actual  parameter  6.?.,  address  clause  13.5.  address 
predefined  type  13.7,  attribute  4.1.4,  base  type  3.3.  collection  3.8.  component  3.3.  entry  9.5.  formal  parameter  6.1 
6.2.  label  5.1.  object  3.2,  package  7,  package  body  7.1,  parameter  passing  6.2,  program  unit  6.  record  object  3.7, 
statement  5,  storage  unit  13,7,  subprogram  6,  subprogram  body  6.3,  subtype  3.3,  system  predefined  package  13.7, 
task  9,  task  body  9.1,  task  object  9.2,  task  type  9.2,  tosk  unit  9,  type  3.3,  unIvarsaLInteger  type  3.5.4 


13.7.3  Roprassntstion  Attributss  of  RmI  Typos 


For  every  reel  type  or  subtype  T,  the  following  machine-dependent  attributes  are  defined,  which 
are  not  related  to  the  model  numbers.  Programs  using  these  attributes  may  thereby  exploit 
properties  that  go  beyond  the  minimal  properties  associated  with  the  numeric  type  (see  section 
4.5.7  for  the  rules  defining  the  accuracy  of  operations  with  real  operands).  Precautions  must 
therefore  be  taken  when  using  these  machine-dependent  attributes  if  portability  Is  to  be  ensured. 

For  both  floating  point  and  fixed  point  types; 

T'MACHINE_ROUNOS  Yields  the  value  TRUE  If  every  predefined  arithmetic  operation  on 

values  of  the  base  type  of  T  either  returns  an  exact  result  or  performs 
rounding;  yields  the  value  FALSE  otherwise.  The  value  of  this 
attribute  Is  of  the  predefined  type  BOOLEAN. 

T'MACHINE-OVERFLOWS  Yields  the  value  TRUE  If  every  predefined  operation  on  values  of  the 

base  type  of  T  either  provides  a  correct  result,  or  raises  the  exception 
NUMERIC-ERROR  in  overflow  situations  (see  4.5.7);  yields  the 
value  FALSE  otherwise.  The  value  of  this  attribute  is  of  the 
predefined  type  BOOLEAN. 

For  floating  point  types,  the  following  attributes  provide  characteristics  of  the  underlying  machine 
representation.  In  terms  of  the  canonical  form  defined  In  section  3.5.7: 

T'MACHINE-RADIX  Yields  the  value  of  the  radix  used  by  the  machine  representation  of 

the  base  typo  of  T.  The  value  of  this  attribute  Is  of  the  type  univer- 
saUntagar. 

T'MACHINE-MANTISSA  Tlolds  the  number  of  digits  In  the  mantissa  for  the  machine 

representation  of  the  base  type  of  T  (the  digits  are  extended  digits  in 
the  range  0  to  T‘MACHINE_RADIX  -1 ).  The  value  of  this  attribute  is  of 
the  typo  universaUntagar. 

T'MACHINE...EMAX  Yields  the  largest  value  of  exponent  for  the  machine  representation 

of  the  base  typo  of  T.  The  value  of  this  attribute  Is  of  the  typo  univer- 
saUntegar. 

T'MACHINE_EMIN  Yields  the  smallest  (most  negative)  value  of  exponent  for  the 

machine  representation  of  the  base  type  of  T.  The  value  of  this 
attribute  Is  of  the  type  univarsaiJnteger. 
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Note: 

For  many  machines  the  largest  machine  representable  number  of  type  F  Is  almost 
(F'MACHINE_RAOIX)*a(F’MACHINE_EMAX), 
and  the  smallest  positive  representable  number  Is 
F'MACHINE_RADIX  **  |PMACHINE_EMIN  -  1) 


References:  arlthmstlc  operator  4.5,  attribute  4.1.4,  base  type  3.3,  boolean  predefined  type  3.5.3,  false  boolean 
value  3.5.3,  fixed  point  type  3.5.9,  floating  point  type  3.5.7,  modal  number  3.5.6,  numeric  type  3.5,  numaric_error 
exception  1 1.1,  predefined  operation  3.3.3,  radix  3.6.7,  real  type  3.6.6,  lubtype  3.3,  true  boolean  value  3.5.3,  type 
3.3,  universal-integer  type  3,5.4 


13.8  Msohins  Cods  Inssrtions 


A  machine  code  Insertion  can  be  achieved  by  a  call  to  a  procedure  whoso  sequence  of  statements 
contains  code  statements. 

coda^tatament  type-mark'/vco/’d-aggragato; 

A  code  statement  is  only  allowed  In  the  sequence  of  statements  of  a  procedure  body.  If  a 
procedure  body  contains  code  statements,  then  within  this  procedure  body  the  only  allowed  form 
of  statement  is  a  code  statement  (labeled  or  not),  tne  only  allowed  declarative  items  are  use 
clauses,  and  no  exception  handler  Is  allowed  (comments  and  pragmas  are  allowed  as  usual). 

Each  machine  instruction  appears  as  a  record  aaoregate  of  a  record  type  that  defines  the  cor¬ 
responding  Instruction.  The  base  type  of  the  type  mark  of  a  code  statement  must  be  declared 
within  the  predefined  library  package  called  MACHINE_CODE;  this  package  must  be  named  by  a 
with  clause  that  applies  to  the  compilation  unit  in  which  the  code  statement  occurs.  An  implemen¬ 
tation  l$  not  required  to  provide  such  a  package. 

An  implementation  Is  allowed  to  Impose  further  restrictions  on  the  record  aggregates  allowed  in 
code  statements.  For  example.  It  may  require  that  expressions  contained  in  such  aggregates  be 
static  expressions. 

An  implementation  may  provide  machine-dependent  pragmas  specifying  register  conventions  and 
calling  conventions.  Such  pragmea  must  be  documented  in  Appendix  F. 

Example: 

M  ;  MASK: 

procedure  SET_MAGk;  pragma  INLINE(SET_MASK); 

procedure  SET-MASK  la 
use  MACHINE-CODE; 
begin 

SLFORMAT'ICODE  =>  SSM,  B  *>  M’BASE_REQ,  D  =>  M’DISP); 

-  M'BASE-REQ  and  M'DISP  are  implementation-specific  predefined  attributes 
and: 


1 3.8  Machine  Coda  Insertions 
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R»ferenc9s:  allow  1.6,  apply  10.1.1,  commant  2.7,  compilation  unit  10.1,  daclarative  Itam  3.9,  exception  handler  e 

1 1.2,  Inline  pragma  6.3.2,  lobelad  etatamant  6,1,  library  unit  10.1.  package  7,  pragma  2.8.  procedure  6  6.1 ,  procedure 
body  6.3,  rocord  aggregate  4.3.1 ,  record  typo  3.7,  aaquenca  of  statemanti  5.1 ,  statement  5,  static  e.xpre8slon  4.9,  use 
clausa  8.4,  with  clausa  10.1.1 


13.9  Interface  to  Other  Languages 


A  subprogram  written  in  another  ianguage  can  be  calied  from  an  Ads  program  provided  that  all 
communication  la  achieved  via  parameters  and  function  results,  A  pragma  of  the  form 


pragma  INTERFACE  (/anyt/aga^name,  subprogramjnbmbV, 

must  be  given  for  each  such  subprogram;  a  subprogram  name  Is  allowed  to  stand  for  several 
overloaded  subprograms.  This  pragma  Is  allowed  at  the  place  of  a  daclarative  Item,  and  must  apply 
In  this  case  to  a  subprogram  dsclared  by  an  earlier  daclarative  Item  of  the  same  daclarative  part  or 
package  specification,  The  pragma  Is  also  allowed  for  a  library  unit;  In  this  case  the  pragma  must 
appear  after  the  subprogram  dsclaration,  and  before  any  subsequent  compilation  unit.  The 
pragma  apeclflas  the  other  language  (and  thereby  the  calling  conventions!  and  Informs  the  com¬ 
piler  that  an  object  module  will  bo  supplied  for  the  corresponding  subprogrrm.  A  body  is  not 
allowed  for  such  a  subprogram  (not  even  In  the  form  of  a  body  stub}  since  the  Instructions  of  the 
subprogram  are  written  In  another  language. 

This  capability  need  not  be  provided  by  all  Implamentetlons.  An  Implementation  may  place 
restrictions  on  the  allowable  forma  and  places  of  parameters  and  calls. 


Bxpmpfe; 

peokage  FORT.LIB  Is 

function  SORT  (X  ;  FLOAT)  return  FLOAT; 
function  EXP  (X  :  FLOAT)  return  FLOAT; 
private 

pragma  INTERFACE(FORTRAN,  SORT); 
pragma  INTERFACE(FORTRAN,  EXP); 
and  FORT_LIB; 

Notas: 

The  conventions  used  by  other  language  processors  that  call  Ads  programs  are  not  part  of  the  Ada 
language  definition.  Such  conventions  must  be  defined  by  these  other  language  processors. 

The  pragma  INTERFACE  is  not  defined  for  generic  subprograms. 


I 

Refennets;  allow  1.6,  body  stub  10.2,  compilation  unit  10,1,  daolaratlon  3,1,  declarative  Item  3.9,  declarative  part 
3.9,  function  reault  8.6,  library  unit  10,1,  must  1.6,  name  4.1.  overloaded  aubprogram  6.6,  package  apeolflcatlon  7.1, 
parameter  of  a  aubprogram  6.2,  pragma  2.8,  subprogram  6,  subprogram  body  6.3,  subprogram  call  6,4,  aubprogram 
declaration  6.1 

i 
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13.10  Unoheokdd  Programming 


The  predefined  generic  library  subprograms  UNCHECKED.DEALLOCATION  and 
UNCHECKED.CONVERSION  are  used  for  unchecked  storage  deallocation  and  for  unchecked  type 
conversions. 

generic 

type  OBJECT  Is  limited  private; 
t^  NAME  Is  access  OBJECT; 
procedure  UNCHECKED.OEALLOCATIONIX  ;  in  out  NAME); 

generic 

typo  SOURCE  Is  llmitod  privato; 
type  TARGET  Is  llmhad  privata; 

function  UNCHECKEO.CONVERSIONIS  :  SOURCE)  return  TARGET; 


References.'  ganarlo  aubprogram  12.1,  library  unit  1 0. 1 ,  type  3.3 


13.10.1  Unohaokad  Storaga  Daallooation 


Unchecked  storage  doallocatlon  of  an  object  designated  by  a  value  of  an  access  type  is  achieved 
by  a  call  of  a  procedure  that  la  obtained  by  Instantiation  of  the  generic  procedure 
UNCHECKEO_DEALLOCATION.  For  example; 

procedure  FREE  ia  natw  UNCHECKED-DEALLOCATION  (o6yacf_fype...name,  accesa-ryrpa-nama); 


Such  a  FREE  procedure  haa  the  following  effect: 

(a)  after  executing  FREE  (X),  the  value  of  X  Is  null; 

lb)  FREE  (X),  when  X  ia  already  equal  to  null,  has  no  effect; 

(c)  FREE  IX),  when  X  Is  not  equal  to  null,  is  an  indication  that  the  object  designated  by  X  is  no 
longer  required,  and  that  the  storage  It  occupies  Is  to  be  reclaimed. 

If  X  and  Y  designate  the  same  object,  then  accessing  this  object  through  Y  Is  erroneous  If  this 
access  Is  performed  (or  attempted)  after  the  call  FREEiX);  the  effect  of  each  such  access  ia  not 
defined  by  the  language. 

Notes: 

It  is  a  consequence  of  the  visibility  rules  that  the  generic  procedure  UNCHECKED-DEALLOCATION 
Is  not  visible  In  a  compilation  unit  unless  this  generic  procedure  Is  mentioned  by  a  with  clause  that 
applies  to  the  compilation  unit. 

If  X  designates  a  task  object,  the  call  FREE  (X)  has  no  effect  on  the  task  designated  by  the  value  of 
this  task  object.  The  same  holds  for  any  subcomponent  of  the  object  designated  by  X,  If  this  sub¬ 
component  Is  a  task  object. 

RefifrvOces;  accutir  type  3.8,  apply  10.1.1,  compilation  unit  10.1,  dasignate  3.8  8.1,  arronoous  1.6,  generic 
Instantiation  12  3,  gonsrlc  prooedura  12.1,  generic  unit  12,  library  unit  10.1,  null  accasa  value  3.8,  object  3.2, 
procedure  6,  procedure  call  6.4,  luboomponent  3.3,  task  9,  taak  object  8.2.  visibility  8.3,  with  clause  10.1.1 


13.10.1  Unchecked  Storege  Deallocation 
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13.1042  Uncheoked  Type  Convertiona 


An  unchecked  type  converalon  can  be  achieved  by  a  call  of  a  function  that  is  obtained  by  Instantia¬ 
tion  of  the  generic  function  UNCHECKED_CONVERSION. 

The  effect  of  an  unchecked  conversion  la  to  return  the  junlnterpreted)  parameter  value  as  a  value 
of  the  target  type,  that  Is,  the  bit  pattern  defining  the  source  value  Is  returned  unchanged  as  the  bit 
pattern  defining  a  value  of  the  target  type.  An  Implementation  may  place  restrictions  on  unchecked 
conversions,  for  example,  restrictions  depending  on  the  respective  sizes  of  objects  of  the  source 
and  target  type.  Such  restrictions  must  be  documented  in  appendix  F. 

Whenever  unchecked  conversions  are  used.  It  Is  the  programmer's  responsibility  to  ensure  that 
these  conversions  maintain  the  properties  that  are  guaranteed  by  the  language  for  objects  of  the 
target  type.  Programs  that  violate  these  properties  by  means  of  unchecked  conversions  are 
erroneous. 


Note; 


It  is  a  consequence  of  the  visibility  rules  that  the  generic  function  UNCHECKED.CONVERSION  Is 
not  visible  In  a  compilation  unit  unless  this  generic  function  Is  mentioned  by  a  with  clause  that 
applies  to  the  compilation  unit. 


R»f»nne0a:  apply  10.1.1,  oumpllatlon  unk  1 0. 1 ,  arronaoua  1.8,  ganarlo  function  12.1,  Instantiation  12.3,  paramatsr 
of  a  subprogram  8.2,  typa  3.3,  with  clausa  10.1.1 
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14.  Input-Output 


Input-output  Is  provided  in  the  language  by  means  of  predefined  packages.  The  generic  packages  i 
SEQUENTIAL.IO  and  DIRECTJO  define  Input-output  operations  applicable  to  files  containing 
elements  of  a  given  type.  Additional  operations  for  text  Input-output  are  supplied  In  the  pcckage 
TEXTJO.  The  package  IO_EXCEPTIONS  defines  the  exceptions  needed  by  the  above  three 
packages.  Finally,  a  package  LOW.LEVEU-IO  Is  provided  for  direct  control  of  peripheral  devices. 

RafenncBs;  dIrsoUo  paokaga  14.2  14.2.4,  lo_axQaptlons  package  14.6,  lowjavaljn  package  14.6,  aequentlaLlo  3 
package  14.2  14.2.2,  text.lo  paokaga  14.3 


14.1  External  Filet  and  File  Objeote 


Values  Input  from  the  external  environment  of  the  program,  or  output  to  the  environment,  are  con-  i 
sidered  to  occupy  axtama!  fHas,  An  external  file  can  be  anything  external  to  the  program  that  can 
produce  a  value  to  be  read  or  receive  a  value  to  be  writter  An  external  fllo  Is  Identified  by  a  string 
(the  name),  A  second  string  (the  form)  gives  further  systein  dependent  characteristics  that  may  be 
associated  with  the  file,  such  as  the  physical  organization  m  ncoess  rights.  The  conventions 
governing  the  Interpretation  of  ouch  strings  must  be  documunmd  In  Appendix  F. 

Input  snd  output  operations  are  expressed  as  operations  on  objects  of  some  fife  type,  rather  than  t 
directly  In  terms  of  the  external  files.  In  the  remainder  of  this  chapter,  the  term  file  Is  always  used 
to  refer  to  a  file  object;  the  term  external  file  Is  used  otherwise.  The  values  transferred  for  a  given 
file  must  all  bo  of  one  type. 

Input-output  for  sequential  files  of  values  of  a  single  element  type  Is  defined  by  means  of  the  j 
generic  package  SEQUENTlAL_IO.  The  skeleton  of  this  package  Is  given  below. 

with  IO_EXCEPTIONS: 
gensrlo 

type  ELEMENT.TYPE  Is  private: 
paokege  SEQUENTIAUO  Is 

type  FILE..TYPE  Is  limited  private; 

type  FILE-MODE  Is  (IN-FILE,  OUT-FILE); 

procedure  OPEN  (FILE  ;  In  out  FILE-TYPE;  ...); 

prooedure  READ  (FILE  ;  In  FILE-TYPE;  ITEM  ;  out  ELEMENT-TYPE); 

procedure  WRITE  (FILE  :  in  FILE-TYPE;  ITEM  :  In  ELEMENT-TYPE); 

end  SEQUENTIAUO; 

In  order  to  define  sequential  Input-output  for  a  given  element  typo,  an  Instantiation  of  this  generic  5 
unit,  with  the  given  typo  a.i  actual  parameter,  must  be  declared.  The  resulting  package  contains 
the  declaration  of  a  file  type  (called  FILE-TYPE)  for  files  of  such  elements,  as  well  as  the  opera¬ 
tions  applicable  to  these  files,  such  as  the  OPEN ,  READ ,  and  WRITE  procedures. 
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Input-output  for  direct  access  flies  Is  likewise  defined  by  a  generic  package  called  DIRECIJO. 
Input-output  in  human-readable  form  Is  defined  by  the  (nongeneric)  package  TEXT_IO . 

Before  Input  or  output  operations  can  be  performed  on  a  file,  the  file  must  first  be  associated  with 
an  external  file,  While  such  an  association  Is  in  effect,  the  file  Is  said  to  be  open,  and  otherwise  the 
file  is  said  to  be  dosed. 

The  language  does  not  define  what  happens  to  external  files  after  the  completion  of  the  main 
program  (In  particular.  If  corresponding  files  have  not  been  closed).  The  effect  of  input-output  for 
access  types  is  Implementation-dependent. 

An  open  file  has  a  current  mode,  which  Is  a  value  of  one  of  the  enumeration  types 

type  (-•ILE-.iyiODe  Is  (IN_FILE,  INOUT_FILE,  OUT.FILE);  -  for  DIRECT.IO 

type  FILE_MODE  Is  (IN_FILE,  OUT.FILE);  -  for  SEQUENTIAI^IO  and  TEXTJO 

These  values  correspond  respectively  to  the  cases  where  only  reading,  both  reading  and  writing,  or 
only  writing  are  to  be  performed.  The  mode  of  a  file  can  be  changed. 

Several  file  management  operations  are  common  to  the  three  Input-output  packages.  These 
operations  are  described  in  section  14.2.1  for  sequential  and  direct  files.  Any  additional  effects 
concerning  text  Input-output  are  described  In  section  14.3.1. 

The  exceptions  that  can  be  ralaad  by  a  call  of  an  Input-output  subprogram  are  all  defined  In  the 
package  IO_EXCEPTIONS  1  the  situations  In  which  they  can  be  raised  ara  described,  either 
following  the  description  of  the  subprogram  (and  In  aeotlon  14.4),  or  In  Appendix  F  In  the  caae  of 
error  situations  that  ara  Implementation-dependent. 

Notes; 

Each  Instantiation  of  the  generic  packages  SEQUENTIAUO  and  DIRECTJO  declares  a  different 
type  FILE.TYPE ;  In  the  case  of  TEXTJO ,  the  type  FILE^TYPE  Is  unique. 

/ 

A  bidirectional  device  can  often  be  modeled  as  two  sequential  files  associated  with  the  device, 
one  of  mode  in_FILE  ,  and  one  of  mode  OUT_FILE .  An  implementation  may  restrict  the  number  of 
files  that  may  be  associated  with  a  givan  external  file.  The  effect  of  sharing  an  external  file  In  this 
way  by  several  file  objects  Is  Implementation-dependent. 

References;  craata  prooadura  14.2,1,  ourrent  Index  14.2,  ourrenl  alia  14.2,  dalata  prooadura  14,2,1,  diraot  acoaia 
14,2,  direct  file  prooadura  14,2,  dIraoUo  paokaga  14,1  14,2,  anumaratlon  typa  3, B.1,  exception  1 1,  flic  mode  14,2,3, 
generic  Inatantlatlon  12,3,  Index  14.2,  Input  tile  14,2,2,  lo^exceptlona  pao.,aoe  14,5,  open  file  14,1,  open  procadura 

14.2.1,  output  file  14.2.2,  reed  procedure  14.2.4,  eequentlel  aooaaa  14.2,  aaquentlal  file  14,2,  xequontlal  Input-output 

14.2.2,  soquentlaIJo  paokege  14.2  14,2,2,  atring  3.6,3,  texUo  package  14,3,  write  procedure  14,2,4 

14.2  Sequential  and  Direct  Files 


Two  kinds  of  access  to  external  files  are  defined;  sequentfel  access  and  direct  access.  The  cor¬ 
responding  file  types  and  the  associated  operations  are  provided  by  the  generic  packages 
SEQUENTIAUO  and  DIRECTJO.  A  file  object  to  be  used  for  sequential  access  Is  called  a 
sequential  file,  and  one  to  be  used  for  direct  access  Is  called  a  direct  file. 

Pur  sequential  access,  the  file  Is  viewed  as  a  sequence  of  values  that  are  transferred  In  the  order  of 
their  appearance  (as  produced  by  the  program  or  by  the  environment).  When  the  file  Is  opened, 
transfer  starts  from  the  beginning  of  the  file. 


14.2  Sequential  and  Direct  Files 
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For  direct  access,  the  file  Is  viewed  as  a  set  of  elements  occupying  consecutive  positions  In  linear 
order;  a  value  can  be  transferred  to  or  from  an  element  of  the  file  at  any  selected  position.  The 
position  of  an  element  Is  specified  by  Its  Index,  which  Is  a  number,  greater  than  zero,  of  the 
Implementation-defined  Integer  typo  COUNT.  The  first  element.  If  any,  has  Index  one:  the  Index  of 
the  last  element.  If  any.  Is  called  the  current  size',  the  current  size  Is  zero  If  there  are  no  elements. 
The  current  size  Is  a  property  of  the  external  file. 

An  open  direct  file  has  a  current  Index,  which  Is  the  Index  that  will  be  used  by  the  next  read  or  write 
operation.  When  a  direct  file  Is  opened,  the  current  Index  Is  set  to  one.  The  current  Index  of  a  direct 
file  Is  a  property  of  a  file  object,  not  of  an  external  file. 

All  three  file  modes  are  allowed  for  direct  file.'i.  The  only  allowed  modes  for  sequential  files  are  the 
modes  IN_FILE  and  OUT.FILE. 

References; Go\in\  type  14.3,  file  mode  14.1,lnJlle  l4.1,out_flle  14.1 


14.2.1  File  Management 


The  procedures  and  tunctlona  described  In  this  section  provide  for  the  control  of  external  files;  their 
declarations  are  rep  etsd  In  each  of  the  three  packages  for  sequential,  direct,  and  text  Input- 
output.  For  text  Input-output,  the  prooeduraa  CREATE,  OPEN,  and  RESET  have  additional  effects 
described  in  section  14,3.1. 

prooedura  CREATE!  FILE  l  in  out  FILE^TYPE; 

MODE  !  In  FILE_MODE  defeult^node', 

NAME  !  In  STRING  !- 
FORM  !  In  STRING  i-  "“ll 

Establishes  s  new  external  file,  with  the  given  name  and  form,  and  associates  this 
external  file  with  the  given  file.  The  given  file  Is  left  open.  The  current  mode  of  the 
given  file  Is  set  to  the  given  access  mode.  The  default  access  mode  Is  the  mode 
OUT_FILE  for  sequential  and  text  Input-output;  It  Is  the  mode  INOUT.FILE  for 
direct  Input-output.  For  direct  access,  the  size  of  the  created  file  Is 
Implementation-dependent.  A  null  string  for  NAME  apeolfles  an  external  file  that  Is 
not  accessible  after  the  completion  of  the  main  program  (a  temporary  file).  A  null 
string  for  FORM  specifies  the  use  of  the  default  options  of  the  Implementation  for 
the  external  file. 

The  exception  STATUS_ERROR  Is  raised  If  the  given  file  Is  already  open.  The 
exception  NAME_ERROR  Is  raised  If  the  string  given  as  NAME  does  not  allow  the 
Identification  of  an  external  file.  The  exception  USE-ERROR  Is  raised  If,  for  the 
specified  mode,  the  environment  does  not  support  creation  of  an  external  file  with 
the  given  name  (In  the  absence  of  NAME-ERROR )  and  form. 


prooedura  OPEN(  FILE  :  in  out  PILE-TYPE: 

MODE  :  In  FILE-MODE; 

NAME  ;  In  STRING; 

FORM  I  In  STRING  :=  ""); 

Associates  the  given  file  with  an  existing  external  file  having  the  given  name  and 
form,  and  sets  the  current  mode  of  the  given  file  to  the  given  mode,  The  given  file 
is  left  open. 
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The  exception  STATUS_ERROR  Is  raised  If  the  given  file  Is  already  open,  The  exception 
NAME_ERROR  Is  raised  If  the  string  given  as  NAME  does  not  allow  the  Identification  of  an  external 
file;  in  particular,  this  exception  Is  raised  If  no  external  file  with  the  given  name  exists.  The  excep¬ 
tion  USE_ERROR  Is  raised  If,  for  the  specified  mode,  the  environment  does  not  support  opening  for 
an  external  file  with  the  given  name  (In  the  absence  of  NAME.ERROR )  and  form. 


procedure  CLOSE(FILE  :  In  out  FILE.J'YPE); 

Severs  the  association  between  the  given  file  and  Its  associated  external  file.  The 
given  file  la  left  closed. 

The  exception  STATUS_ERROR  Is  raised  if  the  given  file  Is  not  open. 


prooedurs  DELETE(FILE  ;  In  out  PILE_TYPE); 

Deletes  the  external  file  associated  with  the  given  file.  The  given  file  Is  closed,  and 
the  external  file  ceases  to  exist. 

Tlia  exception  STATUS_ERROR  Is  raised  If  the  given  file  Is  not  open.  The  exception 
USE_ERROR  is  raised  If  (as  fully  defined  In  Appendix  F)  deletion  of  the  external  file 
Is  not  supported  by  the  environment. 


prooedurs  RESET(FILE  ;  In  out  PILE_TYPE;  MODE  ;  In  FILE-MODE); 
procedure  RESET(FILE  ;  In  out  FILE.TYPE); 

Resets  the  given  file  so  that  reading  from  or  writing  to  Its  elements  can  be 
restarted  from  the  beginning  of  the  file:  In  particular,  for  direct  access  this  means 
that  the  current  Index  Is  set  to  one.  If  a  MODE  parameter  Is  supplied,  the  current 
mode  of  the  given  file  Is  set  to  the  given  mode. 

The  exception  STATUS-ERROR  is  raised  If  the  file  Is  not  open.  The  exception 
USE-ERROR  is  raised  If  the  environment  does  not  support  resetting  for  the  external 
file  and,  also.  If  the  environment  does  not  support  resetting  to  the  specified  mods 
for  the  external  file. 


function  MODE(FILE  :  In  FILE-TYPE)  return  FILt-MODE; 

Returns  the  current  mode  of  the  given  file. 

The  exception  STATUS-ERROR  is  raised  if  the  file  Is  not  open. 


function  NAME(FILE  ;  In  FILE-TYPE)  return  STRING; 

Returns  a  string  which  uniquely  Identifies  the  external  file  currently  associated  with 
the  given  file  (and  may  thus  be  used  In  en  OPEN  operation),  If  an  environment 
allows  alternative  specifications  of  the  name  (for  example,  abbreviations),  the  str¬ 
ing  returned  by  the  function  should  correspond  to  a  full  specification  of  the  name, 

I'he  exception  STATUS-ERROR  la  raised  If  the  given  file  Is  not  open. 


14,2.1  FUq  Management 
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function  FORIVIIFILE  :  in  FILE_TYPE)  return  STRING;  J3 

Returns  the  form  string  for  the  external  file  currently  associated  with  the  given  file.  i4 
If  an  environment  allows  alternative  specifications  of  the  form  (for  example, 
abbreviations  using  default  options),  the  string  returned  by  the  function  should  cor¬ 
respond  to  a  full  specification  (that  Is,  it  should  indicate  explicitly  all  options 
selected,  including  default  options). 


The  exception  STATUS_,ERROR  is  raised  if  the  given  file  is  not  open.  as 

function  IS-.OPEN(FILE  :  In  FILE_TYPE)  return  BOOLEAN;  26 

Returns  TRUE  if  the  file  Is  open  (that  is,  if  it  Is  associated  with  an  external  file),  v 
otherwise  returns  FALSE. 

References:  current  mode  14.1,  currant  elze  14.1,  closed  file  14.1,  direct  access  14.2,  external  file  14.1,  file  14.1,  la 

flle_mode  type  1 4. 1 ,  flle_type  type  14.1,  form  string  14.1,  lnout_flla  14,2.4,  mode  14.1 ,  name  string  14.1,  name_er- 
ror  exception  14,4,  open  file  14.1,  out_flle  14.1,  8tatU8_error  exception  14.4,  u8e_error  exception  14,4  \ 


14.2.2  Sequential  Input-Output 


The  operations  available  for  sequential  input  and  output  are  described  in  this  section.  The  excep¬ 
tion  STATUS_ERROR  Is  raised  if  a.iy  of  these  operations  is  attempted  for  a  file  that  is  not  open. 


procedure  READ(FILE  ;  In  FILE_TYPE;  ITEM  :  out  ELEMENT.TYPE);  j 

Operates  on  a  file  of  mode  IN_FILE .  Reads  an  element  from  the  given  file,  and  j 
returns  the  value  of  this  element  in  the  ITEM  parameter. 

The  exception  MODE_ERROR  is  raised  If  the  mode  Is  not  IN_FILE.  The  exception  ^ 
END_ERROR  is  raised  If  no  more  elements  can  be  read  from  the  given  file.  The 
exception  DATA_ERROR  Is  raised  if  the  element  read  cannot  be  interpreted  as  a 
value  of  the  type  ELEMENT_TYPE :  however,  an  implementation  Is  allowed  to  omit 
this  check  If  performing  the  check  is  too  complex. 


procedure  WRITE(FILE  :  in  FILE_TYPE;  ITEM  :  in  ELEMENT.TYPE);  5 

Operates  on  a  file  of  mode  OUT_FILE .  Write*  the  value  of  ITEM  to  the  given  file.  a 

The  exception  MODE_ERROR  Is  raised  If  the  mode  Is  not  OUT_FILE .  The  exception  7 

USE..ERROR  la  raised  If  the  capacity  of  the  external  file  is  exceeded. 

function  END_OF_FILE(FILE  :  In  FILE_TYPE)  return  BOOLEAN;  a 

Operates  on  a  file  of  mode  IN_FILE.  Returns  TRUE  if  no  more  elements  can  be  read  9 
from  the  given  file;  otherwise  returns  FALSE . 

The  exception  MODE_ERROR  Is  raised  If  the  mode  Is  not  IN_FILE .  to 

References:  data_error  exception  14,4,  element  14,1,  element_tvpe  14.1,  end_error  exception  14,4,  external  file  n 

14,1,  file  14.1,  file  mode  14.1,  flle_type  14,1,  ln._flle  14.1,  mode_error  exception  14,4,  out_flle  14.1,  s'otus-orror 
exception  14.4,  use-error  exception  14.4 
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14.2.3  Specification  of  the  Package  Sequenliai-iO 


with  i0_EXCEPT10NS; 
generic 

type  ELEMENT_TYPE  is  private; 
package  SEQUENTIAL.IO  ie 

type  FILE_TYPE  ie  limited  private; 

type  FILE_MODE  la  (IN.FILr,  OUT_FILE); 


-  File  management 


procedure  CREATE 

(FILE 

MODE 

NAME 

FORM 

:  In  out  FILE-TVPE; 

:  in  FU.E-MODE  :=  OUT-FILE; 

:  In  STRING  := 

:  In  STRING  :=  '"); 

procedure  OPEN 

(FILE 

MODE 

NAME 

FORM 

:  in  out  FILE-TYPE; 

:  in  FILE-MODE; 

;  in  STRING; 

:  In  STRING  :=  “'): 

procedure  CLOSE 

(PILE  : 

In  out  FILE-TYPE); 

procedure  DELETE 

(FILE  ; 

In  out  FILE..TYPE); 

procedure  RESET 

(FILE  ; 

in  out  FILE-TYPE;  MODE  !  In  FILE-MODE) 

procedure  RESET 

(PILE  ; 

in  out  FILE-TYPE); 

function  MODE 

(FILE  : 

in  FILE-TYPE)  return  FILE-MODE; 

function  NAME 

(FILE  ; 

In  FILE-TYPE)  return  STRING; 

function  FORM 

(FILE  : 

In  FILE-TYPE)  return  STRING; 

function  IS-OPEN 

(FILE  : 

In  FILE-TYPE)  return  BOOLEAN; 

I 

-  Input  and  output  operatlona 


procedure  READ  (FILE  ;  In  FILE_TYPE;  ITEM  :  out  ELEMENT.TYPE); 

procedure  WRITE  (FILE  !  In  FILE_TYPE;  ITEM  :  In  ELEMENT»TYPE); 

function  END_OF_FILE(FILE  :  In  FILE-TYPE)  return  BOOLEAN; 


--  Exceptions 


STATUS-ERROR 

MODE-ERROR 

NAME-ERROR 

USE-ERROR 

DEVICE-ERROR 

END-ERROR 

DATA-ERROR 


exception 

exception 

exception 

exception 

exception 

exception 

exception 


renames  lO-EXCEPTIONS.STATUS-ERROR; 
renames  lO-EXCEPTIONS.MODE-ERROR; 
renamea  lO-EXCEPTIONS.NAME-ERROR; 
renames  lO-EXCEPTIONS.USE-ERROR; 
renames  IO_EXCEPTIONS.DEVICE-ERROR; 
renamea  lO-EXCEPTIONS.END-ERROR; 
renames  IO_EXCEPTIONS,DATA_ERROR; 


private 

Implementation-dependent 
end  SEQUENTIAUO; 


14.2.3  Specification  of  the  Package  SequentlaUO 
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References;  close  procedure  14.2,1,  create  procedure  14.2.1,  data^error  exception  14,4,  delete  procedure  14.2.1, 
device.error  exception  14.4,  end_error  exception  14.4,  end_of_flle  function  14.2.2,  flle_mod9  14.1,  file_tYpe  14.1, 
form  function  14.2.1,  ln_flle  14.1,  lo-exceptlons  14.4,  l8_open  function  14,2.1,  mode  function  14,2.1,  mode_error 
exception  14.4,  name  function  14.2,1,  name_error  exception  14.4,  open  procedure  14,2.1,  out_flle  14,1,  read 
procedure  14.2.2,  reset  procedure  14.2.1,  sequentlaIJo  package  14.2  14.2.2,  stBtus_error  exception  14.4,  uBe_arror 
exception  14.4,  write  procedure  14.2.2, 


14.2.4  Direct  Input-Output 


The  operations  available  for  direct  Input  and  output  are  described  in  this  section.  The  exception 
STATUS-ERROR  is  raised  if  any  of  these  operations  is  attempted  for  a  file  that  is  not  open. 

procedure  READIFILE  :  In  FILE-TYPE;  ITEM  :  out  ELEMENT-TYPE; 

FROM  :  In  POSITIVE-COUNT); 

procedure  READIFILE  :  In  FILE-TYPE;  ITEM  :  out  ELEMENT-TYPE); 

Operates  on  a  file  of  mode  IN-FILE  or  lNOUT_FILE.  In  the  case  of  the  first  form, 
sets  the  current  Index  of  the  given  file  to  the  index  value  given  by  the  parameter 
FROM .  Then  (for  both  forms)  returns,  In  the  parameter  ITEM ,  the  value  of  the 
element  whose  position  in  the  given  file  ia  specified  by  the  current  Index  of  the  file; 
finally,  Increases  the  current  Index  by  one. 

The  exception  MODE-ERROR  is  raised  if  the  mode  of  the  given  file  Is  OUT-FILE. 
The  exception  END-ERROR  Is  raised  If  the  Index  to  be  used  exceeds  the  size  of  the 
external  file.  The  exception  DATA_ERROR  Is  raised  If  the  element  read  cannot  be 
Interpreted  as  a  value  of  the  type  ELEMENT-TYPE ;  however,  an  Implementation  Is 
allowed  to  omit  this  check  If  peiformlng  the  check  is  too  complex. 


proceduie  WRITEIFILE  l  In  FILE-TYPE;  ITEM  :  In  ELEMENT-TYPE; 

TO  :  In  POSITIVE-COUNT); 

proc»lurs  WRITEIFILE  :  In  FILE-TYPE;  ITEM  :  In  ELEMENT-TYPE); 

Operates  on  a  file  of  mode  INOUT-FILE  or  OUT-FILE .  In  the  case  of  the  first  form, 
sets  the  Index  of  the  given  file  to  the  Index  value  given  by  the  parameter  TO .  Then 
(for  both  forms)  gives  the  value  of  the  parameter  ITEM  to  the  element  whoso 
position  In  the  given  file  Is  specified  by  the  current  Index  of  the  file;  finally, 
increases  the  current  index  by  one. 

The  exception  MODE-ERROR  Is  raised  If  the  mode  of  the  given  file  Is  IN_FILE .  The 
exception  USE-ERROR  Is  raised  If  the  capacity  of  the  external  file  Is  exceeded. 


prooarture  SEF-INDEXlFILE  :  In  FILE-TYPE;  TO  i  In  POSITIVE-COUNT); 

Operates  on  a  file  of  any  mode.  Seta  tfie  current  Index  of  the  given  file  to  the  given 
Index  value  (which  may  exceed  the  current  size  of  the  file). 


function  INDEXIFILE  :  In  FILE-TYPE)  return  POSITIVE-COUNT; 

Operates  on  a  file  of  any  mode.  Returns  the  current  Index  of  the  given  file. 
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12  function  SIZEIFILE  :  In  FILE_TYPE)  return  COUNT; 

13  Operates  on  a  file  of  any  mode.  Returns  the  current  size  of  the  external  file  that  Is 
associated  with  the  given  file. 

M  function  END_OF_FILE(FILE  :  In  FILE_TYPE)  return  BOOLEAN; 

16  Operates  on  a  file  of  mode  IN_FILE  or  INOUT_FILE.  Returns  TRUE  If  the  current 
index  exceeds  the  size  of  the  external  file;  otherwise  returns  FALSE . 

1«  The  exception  MODE>.ERROR  is  raised  If  the  mode  of  the  given  file  Is  OUT_FILE . 

17  References;  count  type  14.2,  current  Index  14.2,  currant  size  14.2,  data_arror  exception  14.4,  element  14,1, 
element-type  14.1,  end_arror  exception  14.4,  external  file  14.1,  file  14.1,  file  mode  14,1,  flle_type  14.1,  ln_flle  14.1, 
Index  14,2,  lnout_flle  14.1,  mode_error  exception  14.4,  open  file  14.1,  poaltlve_oount  14.3,  atatua_error  exception 
14.4,  use-error  exception  14.4 


14.2.5  Spaolfloatlon  of  the  Package  DIraot-IO 


with  lO-EXCEPTIONS; 
generic 

type  ELEMENT-TYPE  Is  private; 
packege  DIRECTJO  Is 

type  FILE-TYPE  la  limited  private; 

type  FILE-MODE  Is  (IN«FILE,  INOUT_FILE.  OUT_FILE); 

type  COUNT  Is  range  0  ..  Implementetlon^deflned) 

subtype  POSITIVE-COUNT  Is  COUNT  range  1  ..  COUNTLAST; 


—  File  management 

procedure  CREATE  (  FILE  :  in  out  FILE-TYPE; 

MODE  :  In  FILE-MODE  :=  INOUT_FILE; 

NAME  :  In  STRING 

FORM  :  in  STRING  ;=  ”"); 

procedure  OPEN  (  FILE  :  in  out  FILE-TYPE; 

MODE  !  In  FILE-MODE; 

NAME  :  In  STRING; 

FORM  :  In  STRING  :n=  ""); 

procedure  CLOSE  (FILE  :  In  out  FILE-TYPE); 

procedure  DELETE  (FILE  :  In  out  FILE-TYPE); 

procedure  RESET  (FILE  :  In  out  FILE-TYPE;  MODE  ;  in  FILE-MODE); 

procedure  RESET  (FILE  :  In  out  FILE-TYPE); 

function  MODE  (FILE  :  In  FILE-'-YPE)  return  FILE-MODE; 

function  NAME  (FILE  :  In  FILE-TYPE)  return  STRING; 

function  FORM  (FILE  ;  In  FILE-TYPE)  return  STRING; 

function  IS_OPEN  (FILE  :  In  FILE-TYPE)  return  BOOLEAN; 


14.2.5  Specification  of  the  Package  Direct  JO 
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--  Input  and  output  operations 


procedure  READ  (FILE  :  In  FILE_TYPE:  ITEM  :  out  ELEMENT_TYPE;  FROM  :  POSITIVE_COUNT); 
procedure  READ  (FILE  ;  In  FILE_TYPE;  ITEM  :  out  ELEMENT-TYPE); 


procedure  WRITE  (FILE  :  In  FILE-TYPE;  ITEM  :  In  ELEMENT-TYPE;  TO  :  POSITIVE-COUNT); 
procedure  WRITE  (FILE  :  In  FILE-TYPE;  ITEM  :  In  ELEMENT-TYPE); 

procedure  SETJNDEX(FILE  ;  In  FILE-TYPE:  TO  :  In  POSITIVE-COUNT): 

function  INDEX  (FILE  !  In  FILE-TYPE)  rettem  POSITIVE-COUNT; 
function  SIZE  (FILE  ;  In  FILE-TYPE)  return  COUNT; 

function  END-OF-FILE  (FILE  :  In  FILE_TYPE)  return  BOOLEAN; 


"  Exceptions 


STATUS-ERROR 

MODE-ERROR 

NAME-ERROR 

USE-ERROR 

DEVICE-ERROR 

END-ERROR 

DATA-ERROR 


:  exception  ranemea 
;  exception  renamea 
;  exception  renamea 
!  exception  renamaa 
:  exception  renamaa 
;  exception  renamea 
:  exception  renames 


IO-EXCEPTIONS.STATUS_ERROR: 

lO-EXCEPTIONS.MODE-ERROR: 

lO-EXCEPTIONS.NAME-ERRORi 

lO-EXCEPTIONS.USE-ERROR; 

lO-EXCEPTIO  N  S.  D  EVI  CE_E  R  RO  R ; 

lO-EXCEPTIONS, END-ERROR; 

IO_EXCEPTIONS.DATA_ERROR: 


private 

-  Implementation-dependent 
end  DIRECTJO; 


P0far0nc»s  cloaa  procedure  14.2,1,  count  type  14.2,  create  procedure  14.2.1,  data_«rroi  exception  14.4,  2 

default-mode  14.2.6,  delate  procedure  14.2.1,  device-error  exception  14.4,  element-type  14.2.4,  end-error  excep¬ 
tion  14.4,  end-of-flle  function  14.2.4,  file-mode  14.2.6,  file-type  14.2.4,  form  function  14,2.1 .  In_flle  14.2.4,  Index 
function  14.2.4,  Inout-flle  14.2.4  14.2.1,  lo_axoaptlona  paokaga  14,4,  lo-opon  function  14,2.1,  mods  function 
14.2.1,  mode-error  exception  14.4,  name  function  14,2.1,  name-error  exception  14.4,  open  procedure  14.2.1,  ouu- 
fila  14.2.1,  read  procedure  14.2.4,  aeUndex  procedure  14.2.4,  alto  function  14.2.4,  Dtatua_«rror  exception  14.4, 
uee-arror  exception  14,4,  write  procedure  14.2.4  14.2.1 


14.3  Text  Input-Output 


Tills  section  describes  the  pacKage  TEXT-10,  which  provides  facilities  for  Input  and  output  In  1 
human-readable  form.  Each  file  is  read  or  written  sequentially,  as  a  sequence  of  characters 
grouped  Into  lines,  and  as  a  sequence  of  lines  grouped  Into  pages.  The  specification  of  the  pacK.ge 
Is  given  below  In  section  14.3.10. 

The  facilities  for  file  monagement  given  above,  In  sections  1 4.2. 1  and  1 4.2.2,  are  available  for  text  j 
input-output.  In  place  of  READ  and  WRITE,  however,  there  are  procedures  GET  and  PUT  that 
input  values  of  suitable  types  from  text  files,  and  output  values  to  them.  These  values  are  provided 
to  the  PUT  procedures,  and  returned  by  the  GET  procedures.  In  a  parameter  ITEM .  Several 
overloaded  procedures  of  these  names  exist,  for  different  types  of  ITEM .  These  GET  procedures 
analyze  the  Input  sequences  of  characters  as  lexical  elements  (see  Chapter  2)  and  return  the  cor¬ 
responding  values;  the  PUT  procedures  output  the  given  values  as  appropriate  lexical  elements. 
Procedures  GET  and  PUT  are  also  available  that  Input  and  output  Individual  characters  treated  as 
character  values  rather  than  as  lexical  elements. 
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In  addition  to  the  procedurea  QET  and  PUT  for  numeric  and  enumeration  types  of  ITEM  that 
operate  on  text  files,  analogous  procedures  are  provided  that  read  from  and  write  to  a  parameter  of 
type  STRING.  These  procedures  perform  the  same  analysis  and  composition  of  character 
sequences  as  their  counterparts  which  have  a  file  parameter. 

For  all  GET  and  PUT  procedures  that  operate  on  text  files,  and  for  many  other  subprograms,  there 
are  forms  with  and  without  a  file  parameter.  Each  such  GET  procedure  operates  on  an  input  file, 
and  each  such  PUT  procedure  operates  on  an  output  file.  If  no  file  is  specified,  a  default  Input  file  or 
a  default  output  file  is  used. 

At  the  beginning  of  program  execution  the  default  Input  and  output  files  are  the  so-called  standard 
Input  file  and  standard  output  file.  These  files  are  open,  have  respectively  the  current  modes 
IN^FILE  and  OUT.FILF,  and  are  associated  with  two  implamentatlon-defined  external  files. 
Procedures  are  provided  to  change  the  current  default  input  file  and  the  current  default  output  file. 

From  a  logical  point  of  view,  a  text  file  Is  a  sequence  of  pages,  a  page  is  a  sequence  of  lines,  and  a 
line  Is  a  sequence  of  characters;  the  end  of  a  line  la  marked  by  a  /ln»  terminator,  the  end  of  a  page 
Is  marked  by  the  combination  of  a  line  terminator  Immediately  followed  by  a  page  terminator,  and 
the  end  of  a  file  Is  marked  by  the  combination  of  a  line  terminator  Immediataly  followed  by  a  page 
terminator  and  then  a  file  terminator.  Terminators  ara  ganerated  during  output;  either  by  calls  of 
procedures  provided  expressly  for  that  purpose;  or  Implicitly  as  part  of  other  operations,  for  exam¬ 
ple,  when  a  bounded  line  length,  a  bounded  page  length,  or  both,  have  been  specified  for  a  file. 

The  actual  nature  of  terminators  Is  not  defined  by  the  language  and  hence  depends  on  the 
Implementation.  Although  terminators  are  recognized  or  generated  by  certain  of  the  procedures 
that  follow,  they  are  not  necessarily  implemented  as  characters  or  as  sequences  of  characters. 
Whether  they  are  characters  (and  If  so  which  ones)  In  any  particular  Implementation  need  not  con¬ 
cern  a  user  who  neither  explicitly  outputs  nor  explicitly  Inputs  control  characters.  The  affect  of 
input  or  output  of  control  characters  (other  than  horizontal  tabulation)  Is  not  defined  by  the 
language. 

The  characters  of  a  line  are  numbered,  starting  from  one;  the  number  of  a  character  Is  called  Its 
column  number.  For  a  line  terminator,  a  column  number  la  also  defined:  It  Is  one  more  than  the 
number  of  characters  in  the  line.  The  lines  of  a  page,  and  the  pages  of  a  file,  are  similarly 
numbered,  The  current  column  number  is  the  column  number  of  the  next  character  or  lino  ter¬ 
minator  to  bo  transferred.  The  currant  line  number  Is  the  number  of  the  current  line.  The  currant 
page  number  Is  the  number  of  the  current  page.  These  numbers  are  values  of  the  subtype 
POSrnVE_COUNT  of  the  typo  COUNT  (by  convention,  the  value  zero  of  the  type  COUNT  is  used  to 
Indicate  special  conditions). 

type  COUNT  Is  range  0  ..  lmplementatton,.deflned', 

subtype  POSITIVE-COUNT  is  COUNT  range  1  ..  COUNT’LAST; 

For  an  output  file,  a  maximum  line  length  can  be  specified  and  a  maximum  page  length  can  be 
specified.  If  a  value  to  be  output  cannot  fit  on  the  current  line,  for  a  specified  maximum  line  length, 
then  a  new  line  Is  automatically  started  before  the  value  Is  output;  If,  further,  this  new  line  cannot 
fit  on  the  current  page,  for  a  specified  maximum  page  length,  then  a  new  page  Is  automatically 
started  before  the  value  la  output.  Functions  are  provided  to  determine  the  maximum  line  length 
end  the  maximum  page  length.  When  a  file  Is  opened  with  mode  OUT-FILE ,  both  values  are  zero; 
by  convention,  this  means  that  the  line  lengths  and  page  lengths  are  unbounded.  (Consequently, 
output  consists  of  a  single  line  If  the  subprograms  for  explicit  control  of  line  and  page  structure  are 
not  used.)  The  constant  UNBOUNDED  is  provided  for  this  purpose. 

References;  count  type  14,3,10,  default  currant  Input  file  14,3,2,  default  currant  output  file  14.3.2,  external  file  14.1, 
file  14.1 ,  get  procedure  14.3.B,  ln_fllB  14.1 ,  out-flle  14.1,  put  procedure  14.3.6,  read  14.2.2,  sequential  accesa  14,1, 
atandarcl  Input  file  14.3.2,  standard  output  file  14.3.2 
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14.3.1  Flit  Mantgtmtnt 


The  only  allowed  file  modes  for  text  files  are  the  modes  IN_FILE  and  OUT.FILE .  The  subprograms 
given  in  section  14.2.1  for  the  controi  of  externai  fiies,  and  the  function  END_OF_FILE  given  in 
section  14.2.2  for  sequential  Input-output,  are  also  available  for  text  files.  There  Is  also  a  version  of 
END_OF_FILE  that  refers  to  the  current  default  Input  file.  For  text  files,  the  procedures  have  the  fol¬ 
lowing  additional  effects; 

t  For  the  procedures  CREATE  and  OPEN  :  After  opening  a  file  with  mode  OLIT_FILE,  the  page 
length  and  line  length  are  unbounded  (both  have  the  conventional  value  zero).  After  opening  a 
file  with  mode  IN_FILE  or  OUT_FILE,  the  current  column,  current  line,  and  current  page 
numbers  are  set  to  one. 

e  For  the  procedure  CLOSE :  If  the  file  has  the  current  mode  OUT_FtLE ,  has  the  effect  of  calling 
NEW..PAQE,  unlesa  the  current  page  Is  already  terminated;  then  outputs  a  file  terminator. 

e  For  the  procedure  RESET :  If  the  file  has  the  current  mode  OUT.FILE ,  has  the  effect  of  calling 
NEW_PAQE,  unless  the  current  page  Is  already  terminated;  then  outputs  a  file  terminator.  If 
the  new  file  mode  Is  OUT.FILE .  the  page  and  line  lengths  are  unbounded.  For  all  modes,  the 
current  column,  line,  and  page  numbers  are  set  to  one. 

The  exception  MODE..LRROR  la  raised  by  the  procedure  RESET  upon  an  attempt  to  change  the 
mode  of  a  file  that  is  either  the  current  default  input  file,  or  the  current  default  output  file. 

Raf0r§nc9s:  oreats  procedure  14.2.1,  current  column  number  14.3,  current  default  Input  file  14.3,  current  line 
number  1 4  3,  current  page  number  1 4.3,  encL-oLflle  1 4.3.  external  file  1 4. 1 ,  file  1 4. 1 ,  file  mode  14.1,  file  terminator 
14.3,  ln_flla  14,1,  line  length  14.3,  mode_arror  exception  14.4,  open  procedure  14.2.1,  ouL..f1le  14.1,  page  length 
14.3,  reset  procedure  14.2.1 


14.3.2  Dafault  Input  and  Output  Flits 


The  following  subprograms  provide  for  the  control  of  the  particular  default  files  that  are  used  whan 
a  file  parameter  Is  omitted  from  a  QET,  PUT  or  other  operation  of  text  Input-output  described 
below. 


preoedure  SETJNPUTjFILE  :  In  FILE_TYPE): 

Operates  on  a  file  of  mode  IN..FILE.  Sots  thj  current  default  input  file  to  FILE . 

The  exception  STATUS.ERROR  lo  raised  if  the  given  file  Is  not  open.  The  exception 
MODE.ERROR  Is  raised  If  the  mode  of  the  given  file  Is  not  IN_FILE . 


procedure  SET_OUTPUT(FILE  :  In  FILE_TYPE); 

Operates  on  a  file  of  mode  OUT„FILE .  Sets  the  current  default  output  file  to  FILE . 

The  exception  8TATUS_ERROR  Is  raised  if  the  given  file  Is  not  open.  The  exception 
MODEL-ERROR  is  raised  If  the  mode  of  the  given  file  Is  not  OUI-FILE . 
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funciicn  STANDARDJNPUT  ratum  FILLTYPE; 

Returns  the  standard  Input  file  (see  14.3). 

function  STANDARD_OUTPUT  return  FILE.  TYPE; 

Returns  the  standard  output  file  (see  14.3). 

furxjtloo  CURRENT.INPUT  return  FILF..TYPE: 

Returns  the  current  default  Input  file. 

function  CURRENT.OUTPUT  return  FILE_TYPE; 

Returns  the  current  default  output  file. 


Not*: 

The  standard  Input  and  the  standard  output  files  cannot  be  opened,  closed,  reset,  or  deleted, 
because  the  parameter  FILE  of  the  corresponding  procedures  has  the  mode  In  out. 

ftaf»r*nc§s;  currant  dafault  flla  14.3,  default  file  14.3,  flle_typa  14.1,  gat  prooadura  14.3.5,  nnoda..arror  axoaptlon 
14.4.  put  prooadura  14.3.5,  itatua_arror  aMoaptlon  14.4 

14.3.3  Speoifioetlon  of  Line  and  Page  Lengths 


The  subprograms  described  In  thlsj  section  are  concerned  with  the  line  and  page  structure  of  a  file 
of  mode  OUT.FILE .  They  operate  either  on  the  file  given  as  the  first  parameter,  or.  In  the  absence 
of  such  a  file  parameter,  on  the  current  dafault  output  file.  They  provide  for  output  of  text  with  a 
specified  maximum  line  length  or  page  length.  In  these  cases,  line  and  page  terminators  ore  out¬ 
put  Implicitly  and  automatlcslly  when  needed.  When  line  and  page  lengths  are  unbounded  (that  Is, 
when  they  have  the  conventional  value  zero),  as  in  the  case  of  a  newly  opened  file,  new  lines  and 
new  pages  are  only  started  when  explicitly  called  for. 

In  all  cases,  the  exception  STATUS.ERROR  is  raised  If  the  file  to  be  used  Is  not  open;  the  exception 
MODE„ERROR  Is  raided  If  the  mode  of  the  file  Is  not  OUT_FILE . 


procedure  SET.LINE-LENQTHIFILE  :  In  FILE_7YPE:  TO  :  In  COUNT); 
procedure  SET..LINE_LENQTH(TO  ;  In  COUNT); 

Sets  the  maximum  line  length  of  the  specified  output  file  to  the  number  of 
characters  specified  by  TO.  The  value  zero  for  TO  specifies  an  unbounded  line 
length. 

The  exception  USE_ERROR  Is  raised  if  the  specified  line  length  Is  Inappropriate  for 
the  associated  external  file. 


14.3.3  Specification  of  Line  end  Pege  Lengths 
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proo«dur«  SET_PAGE_LENQTH  (FILE  :  In  FILE_TYPE;  TO  :  In  COUNT); 
pKHMdura  SET_PAQE_LENGTH  (TO  :  In  COUNT); 

Set$  the  maximum  page  length  of  the  apeclfled  output  file  to  the  number  of  lines 
specined  by  TO .  The  value  zero  for  TO  specifies  an  unbounded  page  length. 

The  exception  USE_ERROR  Is  raised  If  the  specified  page  length  Is  inappropriate  for 
the  aasoclated  external  file. 


function  LINE_LENOTH(FILE  ;  In  FILE-TYPE)  return  COUNT; 
function  LINE._LENGTH  return  COUNT; 

Returns  the  maximum  line  length  currently  set  for  the  specified  output  file,  or  zero 
if  the  line  length  Is  unbounded. 


function  PAQE_LENGTH(FILE  :  In  FILE-TYPE)  return  COUNT; 
function  PAGE-LENGTH  return  COUNT: 

Returns  the  maximum  page  length  currently  aet  for  the  specified  output  file,  or  zero 
If  the  page  length  Is  unbounded. 


count  type  14.3,  current  default  output  file  14.3,  external  file  14.1,  file  14.1,  file-type  14.1 ,  line  14.3,  t 
line  length  14.3,  line  terminator  14.3,  maximum  llna  length  14.3,  maximum  page  length  14.3,  mode-error  exception 
14.4,  open  file  14.1,  out_flle  14.1,  pege  14.3,  page  length  14.3,  page  terminator  14.3,  atatua_arror  exception  14.4, 
unbounded  page  length  14.3,  uie-error  exception  14.4 


14.3.4  Oporatlona  on  Columns.  Linos,  and  Pagas 


Tha  subprograms  dascribad  In  this  saotlon  provide  for  explicit  control  of  line  and  page  structure; 
they  operate  either  on  tha  file  given  as  tha  first  paramster,  or,  in  the  absence  of  such  a  file 
parameter,  on  tha  appropriate  (Input  or  output)  current  default  file.  The  exception  STATUS-ERROR 
la  raised  by  any  of  these  subprograms  If  tha  file  to  be  used  la  not  open. 


procedure  NEW-LINE(FILE  :  In  FILE-TYPE;  SPACING  :  In  POSITIVE-COUNT  :=  1); 
procedure  NEW_LINE(SPACING  i  in  POSITIVE-COUNT  1); 

Operates  on  a  file  of  mode  ot* T-FILE . 

For  a  SPACING  of  one:  Outputs  a  line  terminator  and  setL  the  current  column 
number  to  one.  Then  Increments  the  current  line  number  by  one,  except  In  the  case 
that  the  currant  line  number  la  already  greater  than  or  equal  to  the  maximum  page 
length,  for  a  bounded  page  length;  In  that  case  a  page  terminator  Is  output,  the 
current  pegs  number  Is  Incremented  by  one,  and  the  current  line  number  Is  set  to 
one. 

For  a  SPACING  greater  than  one,  the  above  actions  are  performed  SPACING  times. 
The  exception  MODE-ERROR  is  raised  If  the  mode  Is  not  OUT_FILE . 
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procadura  SKIP».LINE(FILE  :  In  FILE_TYPE;  SPACING  ;  In  POSITIVE_COUNT  :=  1); 

procadura  SKIP.LINEISPACINQ  :  in  POSITIVE-COUNT  1); 

Operates  on  a  file  of  mode  IN-FILE . 

For  a  SPACING  of  one:  Reads  and  discards  all  characters  until  a  line  terminator 
has  been  read,  and  than  sets  the  currant  column  number  to  one.  If  the  line  ter¬ 
minator  la  not  Immediately  followed  by  a  page  terminator,  the  current  line  number 
Is  Incremented  by  one.  Otherwise,  If  the  line  terminator  Is  Immediately  followed  by 
a  page  terminator,  then  the  page  terminator  Is  skipped,  the  current  page  number  Is 
Incremented  by  one,  and  the  current  line  number  Is  sat  to  one. 

For  a  SPACING  greater  than  one,  the  above  actions  are  performed  SPACING  times. 

The  exception  MODE-ERROR  Is  raised  If  the  mode  Is  not  IN-FILE.  The  exception 
END-ERROR  Is  raised  If  an  attempt  is  made  to  read  a  file  terminator. 


function  END-OF-LINE(FILE  :  In  FILE-TYPE)  return  BOOLEAN; 
function  END-OF-LINE  return  BOOLEAN; 

Operates  on  a  file  of  mode  IN-FILE.  Returns  TRUE  If  a  line  terminator  or  a  file 
terminator  Is  next;  otherwise  returns  FALSE . 

The  exception  MODE-ERROR  is  raised  If  the  mode  Is  not  IN-FILE . 


procedure  NEW-PAGE(FILE  i  In  FILE-TYPE); 
procedure  NEW-PAGE; 

Operates  on  a  file  of  mode  OUT-FILE .  Outputs  a  line  terminator  If  the  current  line  Is 
not  terminated,  or  If  the  current  page  Is  empty  (that  Is,  If  the  current  column  and 
line  numbers  are  both  equal  to  one).  Then  outputs  a  page  terminator,  which  ter¬ 
minates  the  current  page.  Adds  one  to  the  current  page  number  and  sets  the  cur¬ 
rent  column  and  line  numbers  to  one. 

The  exception  MODE-ERROR  Is  raised  If  the  mode  Is  not  OUT_FILE . 


procedure  SKIP-PAGE(FILE :  In  FILE>TYPE); 
procedure  SKIP-PAGE; 

Operates  on  a  file  of  mode  IN-FILE.  Reads  and  discards  all  characters  and  line 
terminators  until  a  page  terminator  has  been  read.  Then  adds  one  to  the  current 
page  number,  and  sets  the  current  column  and  line  numbers  to  one. 

The  exception  MODE-ERROR  Is  raised  If  the  mode  Is  not  IN-FILE.  The  exception 
END-ERROR  Is  raised  If  an  attempt  Is  made  to  read  a  file  terminator. 


1 4,3.4  Operations  on  Columns,  Lines,  and  Pages 
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funotlon  END_OF_PAQE(FILE  :  In  FILE_TYPE)  Mturn  BOOLEAN; 
function  END..OF_PAQE  rotum  BOOLEAN; 

Operates  on  a  fils  of  mods  IN.FILE.  Returns  TRUE  If  the  combination  of  a  line 
terminator  and  a  page  terminator  Is  next,  or  if  a  file  terminator  Is  next;  otherwise 
returns  FALSE. 

The  exception  MODE.ERROR  is  raised  If  the  mode  Is  not  IN.FILE . 


funotlon  END_OF..FILE(FILE  ;  In  FILE_TYPE)  return  BOOLEAN; 
function  END_OF_FILE  return  BOOLEAN; 

Operates  on  a  file  of  mode  IN.FILE .  Returns  TRUE  If  a  fils  terminator  Is  next,  or  If 
the  combination  of  a  line,  a  page,  and  a  file  terminator  Is  next;  otherwise  returns 
FALSE. 

The  exception  MODE_ERROR  Is  raised  If  the  mode  Is  not  IN.FILE . 


The  following  subprograms  provide  for  the  control  of  the  current  position  of  reading  or  writing  In  a 
file.  In  all  cases,  the  default  file  la  tha  currant  output  file. 

procedure  8ET_COL(FILE  :  In  FILE_TYPE;  TO  ;  in  POSITIVE_COUNT); 
procedure  SET.COLjTO  ;  In  POSITIVE_COUNT): 

If  tha  file  models  OUT.FILE: 

If  the  value  apaoifled  by  TO  la  greater  than  tha  current  column  number, 
outputs  spaces,  adding  one  to  the  current  column  number  after  each 
space,  until  the  current  column  number  equals  the  specified  value.  If  the 
value  specified  by  TO  Is  equal  to  the  currant  column  number,  there  Is  no 
affect.  If  the  value  specified  by  TO  Is  less  than  the  current  column  number, 
has  the  effect  of  calling  NEW_LINE  (with  a  spacing  of  one),  then  outputs 
(TO  - 1 )  spaces,  and  seta  the  current  column  number  to  the  specified  value. 

The  exception  LAYOUT.ERROR  is  raised  If  the  value  specified  by  TO 
exceeds  LINE_LENGTH  when  the  line  length  Is  bounded  (that  Is,  when  It 
doss  not  have  the  conventional  value  zero). 


If  tha  file  mode  Is  IN.FILE : 

Reads  (and  disoardal  Individual  characters,  line  terminators,  and  page  ter¬ 
minators,  until  the  next  character  to  be  read  has  a  column  number  that 
equals  the  value  specified  by  TO;  there  Is  no  offset  If  the  current  column 
number  already  equals  thin  value.  Each  transfer  of  a  character  or  ter¬ 
minator  maintains  the  current  column,  line,  and  page  numbers  In  the  same 
way  as  a  GET  procedure  (see  14.3.5).  (Short  lines  will  be  skipped  until  a 
line  Is  reached  that  has  a  character  at  the  specified  column  position.) 

The  exception  END.ERROR  Is  raised  If  an  attempt  Is  made  to  read  a  file 
terminator. 
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procedure  SET-LINE(FILE  :  In  FILE_TYPE;  TO  :  In  POSITIVE_COUNT): 
procedure  SET-LINE(TO  :  In  POSITIVE_COUNT); 


35  If  the  file  mode  la  OUT.Fl  LE : 

35  If  the  value  specified  by  TO  Is  greater  than  the  current  line  number,  has  the 

effect  of  repeatedly  calling  NEW_LINE  (with  e  spacing  of  one),  until  the 
current  line  number  equals  the  specified  value.  If  the  value  specified  by  TO 
Is  equal  to  the  currant  line  number,  there  is  no  effect.  If  the  value  specified 
by  TO  Is  loss  than  the  current  line  number,  has  the  effect  of  calling 
NEW_PAQE  followed  by  a  call  of  NEW_LINE  with  a  spacing  equal  to  (TO  - 
1). 

31  The  exception  LAYOUT..ERnOR  is  ralssd  If  the  value  speoifisd  by  TO 

exceeds  PAQE.LENGITH  when  the  page  length  Is  bounded  (that  Is,  when  It 
does  not  have  the  conventional  value  zero). 


35  IfthemodeloiN.FILE! 

35  Has  the  effect  of  repeatedly  calling  SKIP-LINE  (with  a  spacing  of  one),  until 

the  current  line  number  equals  the  value  specified  by  TO ;  there  Is  no  effect 
If  the  current  line  number  already  equals  this  value.  (Short  pages  will  bo 
skipped  until  a  page  Is  reached  that  has  a  line  at  the  specified  line  position.) 

40  The  exception  END-ERROR  is  raised  If  an  attempt  la  made  to  read  a  file 

terminator. 


41  function  COMPILE  :  In  FILE.TYPE)  return  P08ITIVE.C0UNT; 

function  COL  return  POSITIVE.COUNT; 

4]  Returns  the  current  column  number. 

43  The  exception  LAYOUT-ERROR  is  raised  If  this  number  exceeds  COUNT'LAST . 


44  function  LINEIFILE  !  In  FILE-TYPE)  return  POSITIVE-COUNT: 
function  LINE  return  POSITIVE-COUNT; 

45  Returns  the  current  line  number. 


45  The  exception  LAYOUT.ERROR  Is  raised  If  this  number  exceeds  COUNT'LAST. 


47  function  PAQE(FILE  :  In  FILE-TYPE)  return  POSITIVE-COUNT; 

function  PAGE  return  POSITIVE-COUNT; 

45  Returns  the  current  page  number. 

45  The  exception  LAYOUT-ERROR  Is  raised  If  this  number  exceeds  COUNT'LAST . 


50  The  column  number,  line  number,  or  page  number  are  allowed  to  exceed  COUNT'LAST  (as  a 
conaequence  of  the  Input  or  output  of  sufficiently  many  characters,  lines,  or  pages).  These  events 
do  not  cause  any  exception  to  be  raised.  However,  a  call  of  COL,  LINE,  or  PAGE  raises  the 
exception  LAYOUT.ERROR  If  the  corresponding  number  exceeds  COUNT'LAST. 


f  4.3.4  Operations  on  Columns,  Lines,  and  Pages 
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Note: 

A  page  terminator  is  always  skipped  whertevar  the  preceding  line  terminator  Is  skipped.  An  51 
Implementation  may  represent  the  combination  of  these  terminators  by  a  single  character, 
provided  that  It  Is  properly  recognized  at  Input. 

References;  current  column  number  14.3,  currant  default  file  14.3,  current  line  number  14.3,  currant  page  number  <» 
14.3,  end_error  exception  14.4,  tile  14.1,  file  terminator  14.3,  get  procedure  14,3.B,  InJIla  14.1 ,  lavout_error  excep¬ 
tion  1 4,4,  line  1 4,3,  line  number  1 4,3,  line  terminator  1 4.3,  maximum  page  .'nngth  1 4,3,  mode-error  exception  1 4.4, 
open  file  14.1,  page  14.3.  page  length  14.3,  page  terminator  14.3,  poeltlve  count  14.3,  8tatuB_arror  exception  14.4 


14.3.5  Qtt  and  Put  Prooaduras 


The  procedures  GET  and  PUT  for  Items  of  the  types  CHARACTER,  STRING,  numeric  types,  and  1 
enumeration  types  are  described  In  subsequent  sections.  Features  of  these  procedures  that  are 
common  to  most  of  these  types  are  described  in  this  section.  The  GET  and  PUT  procedures  for 
Items  of  type  CHARACTER  and  STRING  deal  with  individual  character  valueo;  the  GET  and  PUT 
procedures  for  numeric  end  enumeration  types  treat  the  Items  as  lexical  elements. 

All  procedures  GET  and  PUT  hava  forms  with  a  file  psremetor,  written  first.  Where  this  parameter  3 
Is  omitted,  the  appropriate  (Input  or  output)  current  default  file  la  understood  to  be  specified.  Each 
procedure  GET  operates  on  a  file  of  mode  IN..FILE.  Each  procedure  PUT  operates  on  a  file  of 
mode  OUT«PILE. 

All  procedures  GET  and  PUT  maintain  the  current  column,  Hne,  and  page  numbers  of  the  specified  3 
file;  the  effect  of  each  of  these  prooaduras  upon  these  numbers  is  the  resultant  of  the  effects  of 
individual  transfers  of  charaotera  and  of  Individual  output  or  skipping  of  terminators.  Each  transfer 
of  a  character  adds  one  to  the  current  cniumn  number.  Each  output  of  a  line  terminator  seta  the 
current  column  number  to  one  and  adds  one  to  the  current  line  number.  Each  output  of  a  pegs 
terminator  sets  the  current  column  and  line  numbers  to  one  and  adds  one  to  the  current  page 
number.  For  Input,  each  skipping  of  e  line  terminator  sets  the  current  column  number  to  one  and 
adds  one  to  the  current  line  number;  each  skipping  of  e  page  terminator  sets  the  current  column 
and  line  numbers  to  one  end  adds  one  to  the  current  pegs  number.  Similar  considerations  apply  to 
the  procedures  QET.LINE ,  PUT^INE ,  end  SET- COL. 

Several  GET  and  PUT  procedures,  for  numeric  and  enumeration  types,  have  format  parameters  4 
which  specify  field  lengths;  these  parameters  are  of  the  nonnegative  subtype  FIELD  of  the  type 
INTEGER. 

Input-output  of  enumeration  values  uses  the  syntax  of  the  corresponding  lexical  elements.  Any  t 
GET  procedure  for  an  unumaratlon  type  begins  by  skipping  any  leading  blanks,  oi'  line  or  page  ter¬ 
minators;  a  blank  being  defined  as  a  space  or  a  horizontal  tabulation  chareoter.  Next,  characters 
are  Input  only  so  long  as  the  sequence  Input  is  on  Initial  sequence  of  sn  Identifier  or  of  a  character 
literal  (Ir.  particular.  Input  ceases  when  a  line  terminator  Is  encountered).  The  character  or  lino  ter¬ 
minator  that  causes  Input  to  cease  remains  available  for  subsequent  Input. 

For  a  numeric  type,  the  GET  procedures  have  a  format  parameter  celled  WIDTH .  If  the  value  given  « 
for  this  parameter  Is  zero,  the  GET  procedure  proceeds  in  the  same  mai.ner  au  for  enumeration 
types,  but  us'ng  the  syntax  of  numeric  literals  Instead  of  that  of  enurnerotlon  literals.  If  a  nonzero 
value  Is  given,  then  exactly  WIDTH  characters  are  Input,  or  the  oharacters  up  to  a  line  terminator, 
whichever  comes  first;  any  skipped  loading  blanks  are  Included  In  the  co"nt.  The  syntax  used  for 
numeric  literals  Is  an  extended  syntax  that  allows  a  leading  sign  (but  no  '  .lurvenlng  blanks,  or  line 
or  page  terminators). 
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Any  PUT  procedure,  for  an  Item  of  a  numeric  or  an  enumeration  type,  outputs  the  value  of  the  Item 
as  a  numeric  literal.  Identifier,  or  character  literal,  as  appropriate.  This  Is  preceded  by  leading 
spaces  If  required  by  the  format  parameters  WIDTH  or  FORE  (as  described  In  later  sections),  and 
then  a  minus  sign  for  a  negative  value;  for  an  enumeration  type,  the  spaces  follow  Instead  of 
leading.  The  format  given  for  a  PUT  procedure  la  overridden  If  It  Is  Insufficiently  wide. 

Two  further  cases  arise  for  PUT  procedures  for  numeric  and  enumeration  types,  If  the  line  length  of 
the  specified  output  file  Is  bounded  (that  Is,  If  It  does  not  have  the  conventional  value  zero).  If  the 
number  of  characters  to  be  output  does  not  exceed  the  maximum  line  length,  but  is  such  that  they 
cannot  fit  on  the  current  line,  starting  from  the  cirront  column,  then  (In  effect)  NEW_LINE  Is  called 
(with  a  spacing  of  one)  before  output  of  the  Item.  Otherwise,  If  the  number  of  characters  exceeds 
the  maximum  line  length,  then  the  exception  LAYOUT..ERROR  Is  raised  and  no  characters  are 
output. 

The  exception  STATUS^ERROR  la  relied  by  any  of  the  procedures  GET,  QET_LINE,  PUT,  and 
PUT.LINE  If  the  file  to  be  used  Is  not  open.  The  exception  MODE.ERROR  is  raised  by  the 
procedures  GET  and  GFT.LINE  If  the  mode  of  the  flle  to  bo  used  Is  not  IN.PILE;  and  by  the 
procedures  PUT  and  PUT-LINE .  If  the  mods  Is  not  6UT_FILE . 

The  exception  END.ERROR  Is  raised  by  a  GET  procedure  If  an  attempt  Is  made  to  skip  a  file 
terminator.  The  exception  DATA-ERROR  is  raised  by  a  GET  procedure  If  the  sequence  finally  input 
is  not  a  lexical  element  corresponding  to  the  type,  In  particular  If  no  characters  were  Input;  for  this 
test,  leading  blanks  are  Ignored;  for  an  item  of  a  numeric  type,  when  a  sign  Is  Input,  this  rule 
applies  to  the  succeeding  numeric  literal.  The  exception  LAYOUT-ERROR  is  raised  by  n  PUT 
procedure  that  outputs  to  a  parameter  of  type  STRING,  if  the  length  of  the  actual  string  Is 
insufficient  for  the  output  of  the  Item, 

£!x9mpt05! 


In  the  examples,  here  and  In  sections  14,3.7  and  14.3.B,  the  string  quotes  and  tha  lower  case  let¬ 
ter  b  are  not  transferred;  they  are  shown  only  to  reveal  the  layout  and  spaces. 

N  I  INTEGER; 

QET(N); 

-  Characteri*  at  input  Sequence  Input  Value  of  N 


bb<12635b  -12636 

bb12-53BE1b  12_83BE1 

bb12-635E;  12-b36E 


-12B36 

12B3B0 

(none)  DATA-ERROR  raised 


Bxamph  of  ovrridden  width  paramoter 


PUTIITEM  =..>  -23,  WIDTH  »<>  2);  -  "-23" 


Rafarancaa;  blank  14,3.9,  nolumn  numbar  14, .3,  currant  dafauit  fils  14,3,  datH_arror  exception  14,4,  end_,error 
exception  14,4,  file  14.1,  fore  14,3,8,  cjet  procedure  14,3,6  14.3,7  14,3.0  14,3,9,  In-flle  14,1,  lavout.error  oxceptlon 
14,4,  line  number  14,1  line  ternilnutor  14,1,  maximum  lino  lenfjth  14,3,  mode  14,1,  modo_error  exception  14.4, 
new_flle  procedure  14.3.4,  ouL.flla  14.1,  page  number  14.1,  page  terminator  14.1,  put  procedure  14.3.6  14.3.7 
14.3.8  14.3,9,  eklpplng  14,3.7  14,3.8  14.3.9,  atBtue_error  exception  14,4,  width  14. 3. B  14,3.7  14,3.9 


14,3,5  Get  and  Put  Procedures 
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For  an  item  of  type  CHARACTER  the  following  procedures  are  provided: 

procedure  GETIFILE  :  In  FILE-TYPE;  ITEM  :  out  CHARACTER); 
procedure  GETIITEM  :  out  CHARACTER); 

After  skipping  any  line  terminators  and  any  page  terminators,  reads  the  next 
character  from  the  specified  input  file  and  returns  the  value  of  this  character  In  the 
out  parameter  ITEM . 

The  exception  END-ERROR  is  raised  if  an  attempt  Is  made  to  skip  a  file  terminator. 


procedure  PUTIFILE  :  In  FILE-TYPE;  ITEM  :  In  CHARACTER); 
procedure  PUTIITEM  :  In  CHARACTER); 

If  the  line  length  of  the  specified  output  file  is  bounded  (that  Is,  does  not  have  the 
conventional  value  zero),  and  the  current  column  number  exceeds  it,  has  the  effect 
of  calling  NEW-LINE  with  a  spacing  of  one.  Then,  or  otherwise,  outputs  the  given 
character  to  the  file. 


For  an  item  of  type  STRING  the  following  procedures  are  provided: 

procedure  QET(PILE  :  In  FILE-TYPE;  ITEM  ;  out  STRING); 
procedure  GET(ITEM  ;  out  STRING); 

Determines  the  length  of  the  given  string  and  attempts  that  number  of  GET 
operations  for  successive  characters  of  the  string  (In  particular,  no  operation  is  per¬ 
formed  If  the  string  Is  null). 


procedure  PUT(FILE  :  in  FILE-TYPE;  ITEM  ;  In  STRING); 
procedure  PUTIITEM  :  in  STRING;; 

Determines  the  length  of  the  given  string  and  attempts  that  number  of  PUT 
operations  for  successive  characters  of  the  string  (In  particular,  no  operation  Is  per¬ 
formed  If  the  string  Is  null). 


procedure  GET_LINE(FILE  :  In  FILE-TYPE;  ITEM  :  out  STRING;  LAST  :  out  NATURAL); 
procedure  GET-LINE(ITEM  :  out  STRING;  LAST  ;  out  NATURAL); 

Replaces  successive  characters  of  the  specified  string  by  successive  characters 
read  from  the  specified  input  file.  Reading  stops  If  the  end  of  the  line  is  met.  In 
which  case  the  procedure  SKIP-LINE  is  then  called  (in  effect)  with  a  spacing  of 
one;  reading  also  stops  if  the  end  of  the  string  Is  met.  Characters  not  replaced  are 
left  undefined. 

If  characters  are  read,  returns  in  LAST  the  Index  value  such  that  ITEM  ( LAST )  Is  the 
last  character  replaced  (the  Index  of  the  first  character  replaced  Is  ITEM'FIRPT).  If 
no  characters  are  read,  returns  in  LAST  an  index  value  that  is  one  less  than 
ITEM'FIRST. 

The  exception  END-ERROR  Is  raised  If  an  attempt  Is  made  to  skip  a  file  terminator. 
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procedure  PUT_LINE|FILE  ;  In  FILE_TYPE:  ITEM  :  in  STRING); 
procedure  PUT_LINE(ITEM  :  In  STRING); 

Calls  the  procedure  PUT  for  the  given  string,  and  then  the  procedure  NEW_LINE 
with  a  spacing  of  one. 


Notes; 

In  a  literal  string  parameter  of  PUT,  the  enclosing  string  bracket  characters  are  not  output.  Each 
doubled  string  bracket  character  in  the  enclosed  string  is  output  as  a  jingle  string  bracket 
character,  as  a  consequence  of  the  rule  for  string  literals  (see  2.6). 

A  string  read  by  GET  or  written  by  PUT  can  extend  over  several  lines. 

References;  current  column  number  14.3,  end_error  exception  14.4,  file  14.1,  file  terminator  14.3,  get  procedure 
14.3.5,  line  14.3,  line  length  14,3,  newJIne  procedure  14.3,4,  page  terminator  14.3,  put  procedure  14.3.4,  skipping 
14.3.5 


14.3.7  Input-Output  for  Intogor  Types 


The  following  procedures  are  defined  In  the  generic  package  INTEGERJO.  This  must  be 
Instantiated  for  the  appropriate  Integer  type  (Indicated  by  NUM  In  the  specification). 

Values  are  output  as  decimal  or  baaed  literals,  without  underline  characters  or  exponent,  and 
preceded  by  a  minus  sign  If  negative.  The  format  (which  Includes  any  leading  spaces  and  minus 
sign)  can  be  specified  by  an  optional  field  width  parameter.  Values  of  w'dths  of  fields  In  output  for¬ 
mats  are  of  the  nonnegative  Integer  subtype  FIELD.  Values  of  bases  are  of  the  integer  subtype 
NUMBER_BASE. 

subtype  NUMBER_BASE  Is  INTEGER  range  2  ..  16; 

The  default  field  width  and  base  to  be  used  by  output  procedures  are  defined  by  the  following 
variables  that  are  declared  In  the  generic  package  INTEGERJO : 

DEFAULT_WIDTH  ;  FIELD  NUM'WIDTH; 

DEFAULT„BASE  :  NUMBER_BASE  ;=  10; 

The  following  procedures  are  provided: 

procedure  QET(FILE  :  In  FILE_TYPE;  ITEM  :  out  NUM;  WIDTH  :  In  FIELD  :=  0); 
procedure  QET(ITEM  :  out  NUM;  WIDTH  ;  In  FIELD  :=  U); 

If  the  value  of  the  parameter  WIDTH  is  zero,  skips  any  leading  blanks,  line 
terminators,  or  page  terminators,  then  reeds  p  plus  or  a  minu,?  s'gn  If  present,  then 
reads  according  to  the  syntax  of  an  Integer  literal  (which  may  be  a  based  literal).  If 
a  nonzero  value  of  WIDTH  Is  supplied,  then  exactly  WIDTH  characters  are  Input,  or 
the  characters  (possibly  none)  up  *c  a  line  terminator,  whichever  comes  first;  any 
skipped  loading  blanks  are  Included  In  the  count. 

Returns,  in  the  parameter  ITEM,  the  value  of  type  NUM  that  corresponds  to  the 
sequence  Input. 

The  exception  DATA_ERROR  is  raised  if  the  sequence  Input  does  not  have  the 
required  syntax  or  If  the  value  obtained  is  not  of  the  subtype  NUM  . 


14.3.7  Input-Output  for  Integer  Types 
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procedure  PUT(FILE 
ITEM 
WIDTH 
BASE 


:  in  riLE_TYPE; 

;  In  NUM; 

:  In  FIELD  :=  DEFAULT.WIDTH; 

:  In  NUMBER_BASE  :=  DEFAULT.BASE); 


procedure  PUTdTEM  ;  in  NUM; 

WIDTH  :  In  FIELD  :=  DEFAULT.WiDTH; 

BASE  ;  in  NUMBER_BASE  :=  DEFAULT.BASE); 


Outputs  the  value  of  the  parameter  ITEM  as  an  integer  literal,  with  no  underlines, 
no  exponent,  and  no  leading  zeros  (but  a  single  zero  for  the  value  zero),  and  a 
preceding  minus  sign  for  a  negative  value. 


If  the  resulting  sequence  of  characters  to  be  output  has  fewer  than  WIDTH 
characters,  then  leading  spaces  are  first  output  to  make  up  the  difference. 

Uses  the  syntax  for  decimal  literal  If  the  parameter  BASE  has  the  value  ten  (either 
explicitly  or  through  DEFAULT_BASE);  otherwise,  uses  the  syntax  for  based  literal, 
with  any  letters  In  upper  case. 


procedure  GET(FROM  :  In  STRING;  ITEM  :  out  NUM;  LAST  :  out  POSITIVE); 

Reads  an  Integer  value  from  the  beginning  of  the  given  string,  following  the  same 
rules  as  the  GET  procedure  that  reads  an  Integer  value  from  a  file,  but  treating  the 
end  of  the  string  as  a  file  terminator.  Returns,  In  the  parameter  ITEM ,  the  value  of 
type  NUM  that  corresponds  to  the  sequence  Input.  Returns  In  LAST  the  Index 
value  such  that  FROM  ( LAST )  Is  the  last  character  read. 


The  exception  DATA-ERROR  Is  raised  If  the  sequence  input  does  not  have  the 
required  syntax  or  if  the  value  obtained  Is  not  of  the  subtype  NUM . 


procedure  PUT(TO  ;  out  STRING; 

ITEM  :  in  NUM; 

BASE  ;  in  NUMBER_BASE  DEFAULT.BASE); 

Outputs  the  value  of  the  parameter  ITEM  to  the  given  string,  following  the  same 
rule  as  for  output  to  a  file,  using  the  length  of  the  given  string  as  the  value  for 
WIDTH. 


Examples: 

package  INTJO  Is  new  INTEGER JO(SMALUNT);  use  INTJO; 

-  default  format  used  at  Instantiation,  DEFAULT.WIDTH  >=  4,  DEFAULT..BASE  ==  10 

PUT(12G);  ~  "b12B" 

PUT(-126,  7);  -  "bbb-126" 

PUT(126,  WIDTH  «>  13,  BASE  «>  2);  ™  "bbb2#1 111110#" 


References:  based  literal  2.4.2,  blank  14.3.6,  data_error  exception  14.4,  decimal  literal  2.4.1,  field  subtype  14.3.6, 
flle.type  14.1,  get  procedure  14.3.6,  IntegerJo  package  14.3.10,  Integer  literal  2.4,  lflyout_error  exception  14,4,  line 
terminator  14.3,  put  procedure  14.3.6,  skipping  14.3.6,  width  14.3. 6 
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14.3.8  Input-Output  for  Rail  Typoa 


The  following  procedures  are  defined  In  the  generic  packages  FLOATJO  and  FIXED.IO ,  which 
must  be  instantiated  for  the  appropriate  floating  point  or  fixed  point  type  respectively  (indicated  by 
NUM  In  the  specifications). 

Values  are  output  as  decimal  literals  without  underline  characters.  The  format  of  each  value  output 
consists  of  a  FORE  field,  a  decimal  point,  an  AFT  field,  end  (If  a  nonzero  EXP  parameter  Is  supplied) 
the  letter  E  and  an  EXP  field.  The  two  possible  formats  thus  correspond  to: 

FORE  .  AFT 

and  to: 

FORE  .  AFT  E  EXP 

without  any  spaces  between  these  fields.  The  FORE  field  may  include  leading  spaces,  and  a  minus 
sign  for  negative  values.  The  APT  field  Includes  only  decimal  digits  (possibly  with  trailing  zeros). 
The  EXP  field  Includes  the  sign  (plus  or  minus)  and  the  exponent  (possibly  with  leading  zeros). 

For  floating  point  types,  the  default  lengths  of  these  fields  are  defined  by  the  following  variables 
that  are  declared  In  the  generic  package  FLOATJO : 

DEFAULT.FORE  :  FIELD  :-  2; 

DEFAULT_AFr  :  FIELD  NUM'DIQITS-1i 

DEFAULT_EXP  :  FIELD  3; 

For  fixed  point  types,  the  default  lengths  of  these  fields  are  defined  by  the  following  variables  that 
are  declared  In  the  generic  package  FIXEDJO : 


DEFAULT_FORE  ;  FIELD  NUM'FOHE; 

OEFAULTJVFT  :  FIELD  :«  NUM'AFTj 

DEFAULT_EXP  :  FIELD  :-  0; 

The  following  procedures  are  provided: 

prooedurt  GET(FILE  ;  In  FILE.TYPE;  ITEM  :  out  NUM;  WIDTH  :  In  FIELD  :==  0); 
procedure  GETdTEM  :  out  NUM;  WIDTH  ;  in  FIELD  0); 

If  the  value  of  the  parameter  WIDTH  Is  zero,  skips  any  leading  blanks,  line 
terminators,  or  page  terminators,  then  roads  a  plus  or  a  minus  sign  If  present,  then 
reads  according  to  the  syntax  of  a  r«al  literal  (which  may  be  a  based  literal).  If  a 
nonzero  value  of  WIDTH  Is  supplied,  then  exactly  WIDTH  characters  are  Input,  or 
the  characters  (possibly  none)  up  to  a  line  terminator,  whichever  comes  first;  any 
skipped  leading  blanks  ere  Included  In  the  count. 

Returns,  In  the  parameter  ITEM  ,  the  value  of  type  NUM  that  corresponds  to  the 
sequence  Input. 

The  exception  DATA_ERROR  Is  raised  If  the  sequence  Input  does  not  have  the 
required  syntax  or  If  the  value  obtained  Is  not  of  the  subtype  NUM . 


14.3.8  Input-Output  for  Real  Types 
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pioe«du^  i  ,  H  FILE-TYPE; 

»>.'  ."UM; 

flELD  ;«  DEFAULT_FORE; 

!  in  DFLD  :»  DEFAULTJ^FT; 

EXP  .  in  FltlO  :=  DEFAULT.EXP); 

proMdur*  Pt.JT(!TFM  :  in  NUM; 

FORE  :  in  FlEl.D  :=  DEFAULT.FORE; 

AFT  ;  »n  FIELD  :=  DEFAULT-AFT; 

EXP  ;  in  FIELlt  :«  DEFAULT.EXP); 

Outputs  the  value  of  the  parameter  ITEM  as  a  decimal  literal  with  the  format 
defined  by  FORE.  AFT  and  EXP>  If  the  value  Is  negative,  a  minus  sign  is  Included  In 
the  integer  part.  If  EXP  has  the  value  zero,  then  the  Integer  part  to  be  output  has  as 
many  digits  as  Are  needed  to  represent  the  Integer  part  of  the  value  of  ITEM , 
overriding  fore  If  neoessary,  or  consists  of  the  digit  zero  If  the  value  of  ITEM  has 
no  Integer  part. 

If  EXP  haa  a  value  greater  than  zero,  then  the  Integer  part  to  be  output  haa  a  single 
digit,  which  Is  nonzero  except  for  the  value  0.0  of  ITEM . 

In  both  oases,  however,  If  the  Integer  part  to  be  output  has  fewer  than  FORE 
charaotera.  Including  any  minus  sign,  then  leading  spaces  are  first  output  to  make 
up  the  difference.  The  number  of  digits  of  the  fractional  part  Is  given  by  AFT.  or  is 
one  If  AFT  equals  zero.  The  value  Is  rounded;  a  value  of  exactly  one  half  in  the  last 
place  may  be  rounded  either  up  or  down. 

0 

If  EXP  has  *he  value  zero,  there  la  no  exponent  part.  If  EXP  has  a  value  greater  than 
zero,  then  the  exponent  part  to  be  output  has  as  many  digits  as  are  needed  to 
represent  the  exponent  part  of  the  value  of  ITEM  (for  which  a  single  digit  integer 
part  Is  used),  and  Includes  an  Initial  sign  (plus  or  minus).  If  the  exponent  part  to  be 
output  has  fewer  than  EXP  charaotera,  including  the  sign,  then  leading  zeros 
precede  the  digits,  to  make  up  the  difference.  For  the  value  0.0  of  ITEM ,  the 
exponent  has  the  value  zero. 


proeeduie  GET(FROM  :  In  STRING;  ITEM  :  out  NUM;  LAST  ;  out  POSITIVE); 

Reads  a  real  value  from  the  beginning  of  the  given  string,  following  the  same  rule 
as  the  GET  procedure  that  reads  a  real  value  from  a  file,  but  treating  the  end  of  the 
string  as  a  file  terminator.  Returns,  In  the  parameter  ITEM ,  the  value  of  type  NUM 
that  corresponds  to  the  sequence  Input.  Returns  In  LAST  the  index  value  such  that 
FROMlLAST)  is  the  last  character  read. 

The  exception  DATA-ERROR  Is  raised  If  the  sequence  input  does  not  have  the 
required  syntax,  or  If  the  value  obtained  Is  not  of  the  subtype  NUM  ■ 


procedure  PUT(TO  :  out  STRING; 

ITEM  :  In  NUM; 

AFT  :  In  FIELD  :=>  DEFAULT-AFT; 

EXP  :  In  INTEGER  DEFAULT-EXP); 

Outputs  the  value  of  the  parameter  ITEM  to  the  given  string,  following  the  same 
rule  aa  for  output  to  a  file,  using  a  value  for  FORE  such  that  the  sequence  of 
characters  output  exactly  fills  the  string,  including  any  leading  spaces. 
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Examples; 

paokage  REAL.IO  la  new  FLOATJOIREAU;  uaa  REAUO; 

--  default  format  used  at  Inatantlatlon,  DEFAULT_EXP  «  3 

X  ;  REAL  -123.4567;  ~  digita  8  (aee  3.5.71 

PUT(X):  -  default  format  "-1.234B670E+02" 

PUTIX,  FORE  =>  5.  AFT  =>  3,  EXP  =>  2);  -  "bbb-1 .235E+2" 

PUT(X,  5,  3,  01:  ~  ”b-1 23.467“ 

Note; 

For  an  Item  with  a  positive  value,  If  output  to  a  string  exactly  fills  the  string  without  leading  spaces, 
then  output  of  the  corresponding  negative  value  will  raise  LAYOUT.ERROR . 

Baferancaa;  aft  attribute  3.B.10,  baaad  literal  2.4.2,  blank  14.3.6,  data_error  exception  14.3.6,  decimal  literal  2.4.1, 
field  aubtype  14.3.5,  file-type  14.1,flxad_lo  package  14.3.10,  floatlng_lo  package  14.3.10,  fore  attribute  3.5.10,  get 
procedure  14.3.5,  layout-error  14.3.6,  line  terminator  14.3.5,  put  procedure  14.3.6,  real  literal  2.4,  akipping  14.3.6, 
width  14.3.6 


14.3.9  Input-Output  for  Enumeration  Typos 


The  following  procedures  sre  defined  In  the  generic  package  ENUMERATIONJO,  which  must  be 
Instantiated  for  the  appropriate  enumeration  type  (Indicated  by  ENUM  in  the  specification}. 

« 

Values  are  output  using  either  upper  or  lower  oase  letters  for  Identifiers.  This  Is  specified  by  the 
parameter  SET,  which  Is  of  the  enumeration  type  TYPE-SET. 

type  TYPE-SET  Is  (LOWER-CASE,  UPPER-CASE); 

The  format  (which  Includes  any  trailing  spaoesi  can  be  specified  by  an  optional  field  width 
parameter.  The  default  field  width  and  letter  case  are  defined  by  the  following  variables  that  are 
declared  In  the  generic  paokage  ENUMERATIONJO : 

DEFAULT-WIDTH  :  FIELD  0; 

DEFAULT-SETTING  ;  TYPE-SET  UPPER-CASE: 

The  following  procedures  are  provided: 

prooedura  GET(FILE  :  in  FILE-TYPE;  ITEM  :  out  ENUM); 
prooadura  GET(ITEM  :  out  ENUM); 

After  skipping  any  leading  blanks,  line  terminators,  or  page  terminators,  reads  an 
Identifier  according  to  the  syntax  of  this  lexical  element  (lower  and  upper  case 
being  considered  equivalent),  or  a  character  literal  according  to  the  syntax  of  this 
lexical  element  (Including  the  apostrophes).  Returns,  In  the  parametsr  ITEM,  the 
value  of  type  ENUM  that  corresponds  to  the  sequence  Input. 

The  exception  DATA_ERROR  is  raised  If  the  sequence  Input  does  not  have  the 
required  syntax,  or  If  the  Identifier  or  character  literal  does  not  correspond  to  a 
value  of  the  subtype  ENUM  . 


14.3.9  Input-Output  for  Enumeration  Types 
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prottMiuiw  PUT!  FILE  ;  In  FILE_TYPE; 

ITEM  :  In  ENUM; 

WIDTH  :  In  FIELD  :«  DEFAULT.WIDTH; 

SET  :  In  fVPE.SET  :»  DEFAULT.SETTINQ); 

piooMiurt  PUTdTEM  ;  In  ENUM; 

WIDTH  :  In  FIELD  DEFAULT_WIDTH; 

SET  :  In  TYPE^SET  :»  DEFAULT_SETTINQ); 

Outputs  the  valus  of  tha  paramstsr  ITEM  as  an  anumeration  literal  (either  an 
Identifier  or  a  character  literal).  The  optional  parameter  SET  indicates  whether 
lower  case  or  upper  case  Is  used  for  identifiers;  It  has  no  effect  for  character 
literals.  If  the  sequence  of  characters  produced  has  fewer  than  WIDTH  characters, 
than  trailing  spaces  are  finally  output  to  make  up  the  difference. 


prooedure  QETIFROM  :  In  STRING;  ITEM  :  out  ENUM;  LAST  ;  out  POSITIVE); 

Reads  an  anumeration  value  from  the  beginning  of  the  given  string,  following  the 
same  rule  as  the  GET  procedure  that  reads  an  enumeration  value  from  a  file,  but 
treating  the  end  of  the  string  as  a  file  terminator.  Returns,  In  the  parameter  ITEM , 
tha  value  of  type  ENUM  that  corresponds  to  the  sequence  Input.  Returns  in  LAST 
the  Index  value  such  that  FROM  (LAST)  la  the  last  character  read. 

Ths  exception  DATA-ERROR  Is  raised  if  the  sequence  Input  does  not  have  the 
required  syntax,  or  If  the  Identifier  or  character  literal  does  not  corraspond  to  a 
value  of  the  subtype  ENUM . 


prooedura  PUT(TO  i  out  STRING; 

ITEM  :  In  ENUM; 

SET  I  in  TYPE-SET  DEFAULT-SETTING); 

Outputs  the  value  of  the  parameter  ITEM  to  the  given  string,  following  the  same 
rule  as  for  output  to  a  file,  using  the  length  of  the  given  string  as  the  value  for 
WIDTH. 


Although  the  speoificstlon  of  the  package  ENUMERATION-IO  would  allow  Instantiation  for  an 
integer  type,  this  Is  not  the  Intended  purpose  of  this  generic  package,  and  the  effect  of  such  inatsn- 
tiationo  Is  not  defined  by  the  language. 

Not»s; 

There  Is  a  difference  between  PUT  defined  for  characters,  and  for  enumeration  values.  Thus 

TEXTJO.PUTCA');  --  outputs  the  character  A 

package  CHARJO  Is  new  TEXTJO.ENUMERATION_IO(CHaRACTER); 

CHARJO.PUT('A');  ~  outputs  the  character  'A',  between  single  quotes 

The  type  BOOLEAN  Is  on  enumeration  type,  hence  ENUMERATION_IO  can  be  Instantiated  for  this 
type. 

Rtf0nncas;  blank  14.3.6,  data-error  14.3,5,  anumeration  Jo  peckaga  14.3.10,  field  aubtypa  14.3.6,  fila.type  14.1, 
get  procedure  14,3.5,  line  terminator  14,3,5,  put  procedure  14.3.6,  skipping  14.3.5,  width  14.3.5 
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14^.10  Spcolfioatlon  of  tho  PaokaB*  TaxtJO 


whh  I0_EXCEPTI0NS; 
paokaga  TEXT-10  ia 

typa  FILE-TYPE  la  IlmHad  privata; 

typa  FILE-MODE  la  (IN-FILE,  OUT-FILE); 

typa  COUNT  la  ranga  0  ..  fmpl0m§ntatlon^d0fin»d', 

■ubtypa  POSITIVE-COUNT  la  COUNT  ranga  1  ..  COUNTLAST; 
UNBOUNDED  ;  oonatant  COUNT  :■  0;  »  llna  and  paga  langth 

Biibtypa  FIELD  It  INTEGER  ranga  0  imptamantatfon^daflnadi 

aubtypa  NUMBER-BASE  la  INTEGER  ranga  2  ..  16; 

typa  TYPE-SET  la  (LOWER-CASE.  UPPER-CASE); 

~  Flla  Managamant 


procedure 

CREATE 

(  FILE 

• 

« 

In  out  FILE-TYPE; 

MODE 

% 

i 

In  FILE-MODE 

OUT-FILE; 

NAME 

« 

« 

In  STRING 

MW, 

» 

FORM 

t 

t 

In  STRING  :« 

•*); 

procedure 

OPEN 

(  FILE 

« 

• 

In  out  FILE-TYPE; 

MODE 

t 

» 

In  FILE-MODE; 

NAME 

• 

« 

In  STRING; 

FORM 

< 

« 

In  STRING  •"); 

procedure 

CLOSE 

(FILE  ; 

In 

out  FILE-TYPE); 

procedure 

DELETE 

(PILE  s 

In 

out  FILE-TYPE); 

procedure 

RESET 

(FILE  ! 

In 

out  FILE-TYPE;  MODE  :  In  PILE-MODE); 

procedure 

RESET 

(FILE  : 

In 

out  FILE-TYPE); 

function 

MODE 

(FILE  : 

In 

FILE-TYPE)  return 

FILE-MODE  ; 

function 

NAME 

(FILE  ; 

In 

FILE-TYPE)  latum 

STRING; 

function 

FORM 

(FILE  ; 

In 

FILE-TYPE)  return 

STRING; 

function 

IS-OPEN(FILE  ; 

In 

FILE-TYPE)  return 

BOOLEAN; 

-  Control  of  default  Input  and  output  fllaa 

prooadura  SET-INPUT  (FILE  :  In  FILE-TYPE); 
prooadura  SET-OUTPUT  (FILE  :  In  FILE-TYPE); 


function  STANDARD-INPUT  return  FILE-TYPE; 
function  STANDARD-OUTPUT  return  FILE-TYPE; 


function  CURRENT-INPUT  return  FILE-TYPE; 

function  CURRENT-OUTPUT  return  FILE-TYPE; 
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~  Spscificatlon  of  lln*  and  paga  langtht 

pttMMdura  SET.LINE_LENQTH  (FILE  :  In  FILE.TYPE;  TO  :  in  COUNT); 
proowlurt  SET_LINE_LENQTH  (TO  ;  In  COUNT); 

proowfura  SET_PAQE_LENQTH  (FILE  :  in  FILE-TYPE;  TO  :  In  COUNT); 
prooadura  SET-PAQE_LENQTH  (TO  ;  In  COUNT); 

function  LINE_LENQTH  (FILE  :  In  FILE-TYPE)  ratum  COUNT; 

function  LINE-LENGTH  return  COUNT: 

function  PAGE-LENGTH  (FILE  ;  In  FILE-TYPE)  ratum  COUNT; 

function  PAGE-LENGTH  ratum  COUNT; 


-  Column,  Una,  and  Page  Control 


prooadura  NEW-LINE  (FILE  :  In  FILE-TYPE;  SPACING  :  In  POSITIVE-COUNT  1); 

prooadura  NEW-LINE  (SPACING  :  In  P08ITIVE.COUNT  1); 


prooadura  SKIP-LINE  (FILE  ;  in  FILE-TYPE;  SPACING  :  in  POSITIVE-COUNT  1); 

prooadura  SKIP-LINE  (SPACING  :  In  POSITIVE-COUNT  1); 


function  ENO-OF.LINE  (FILE  :  In  FILE-TYPE)  ratum  BOOLEAN; 
funotion  END-OF-LINE  ratum  BOOLEAN; 


procadura  NEW-PAQE  (FILE  ;  In  FILE-TYPE); 
prooadura  NEW-PAGE; 

prooadura  SKIP-PAGE  (FILE  ;  In  FILE-TYPE); 
prooadura  SKIP-PAGE; 

Amotion  END-OF-PAQE  (FILE  i  In  FILE-TYPE)  ratum  BOOLEAN; 
funotion  ENO-OF.PAQE  ratum  BOOLEAN; 


funotion  END-OF-FILE  (FILE  ;  In  FILE-TYPE)  ratum  BOOLEAN; 
funotion  ENO-OF-FILE  ratum  BOOLEAN; 


prooadura  SET-COL  (FILE  i  In  FILE-TYPE;  TO  i  In  POSITIVE-COUNT); 

prooadura  SET-COL  (TO  ;  In  POSITIVE-COUNT); 

prooadura  SET-LINE  (FILE  :  In  FILE-TYPE,  TO  ;  In  POSITIVE-COUNT); 

prooadura  SET-LINE  (TO  ;  in  POSITIVE-COUNT); 


funotion  COL  (FILE  :  In  FILE-TYPE)  ratum  POSITIVE-COUNT; 
funotion  COL  ratum  POSITIVE-COUNT; 

funotion  LINE  (FILE  :  In  FILE-TYPE)  ratum  POSITIVE-COUNT; 
function  LINE  ratum  POSITIVE-COUNT; 

funotion  PAGE  (FILE  .  In  FILE-TYPE)  ratum  POSITIVE-COUNT; 
funotion  PAGE  raturn  POSITIVE-COUNT; 
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-  Charactar  Input-Output 


procedure 

GETIFILE 

;  In 

FILE-TYPE;  ITEM 

:  out 

l  CHARACTER); 

procedure 

QETdTEM 

:  out 

CHARACTER): 

procedure 

PUTIFILE 

;  In 

FILE-TYPE;  ITEM 

;  In 

CHARACTER); 

procedure 

PUTIITEM 

;  In 

CHARACTER): 

>-  String  Input-Output 

procedure 

QETIFILE 

;  In 

FILE-TYPE;  ITEM  ; 

:  oul 

t  STRING): 

procedure 

QETIITEM 

:  out 

STRING); 

procedure 

PUTIFILE 

;  In 

FILE-TYPE;  ITEM  : 

:  In 

STRING): 

procedure 

PUTIITEM 

;  In 

STRING); 

proowlura  QET_LINE(FILE  i  In  FILE-^ypE;  ITEM  :  out  STRING;  LAST  ;  out  NATURAL); 
pioooduro  QET_LINE(ITEM  :  out  STRING:  LAST  :  out  NATURAL); 
proooduro  PUT_LINE(FILE  ;  In  FILE.TYPE;  ITEM  :  In  STRING); 
proooduro  PUT_LINE(ITEM  :  In  STRING); 

-  Generic  package  for  Input-Output  of  Integer  Typea 

generic 

typo  NUM  la  range  <>; 
peokage  INTEGERJO  la 

OEFAULT_WIDTH  :  FIELD  !-  NUM'WIDTH, 

DEFAULT.BASE  ;  NUMBER.BASE  10; 


procedure  QETIFILE  ;  In  FILE-TYPE;  ITEM  ;  out  NUM;  WIDTH  ;  In  FIELD  0); 
procedure  QETIITEM  :  out  NUM;  WIDTH  :  In  FIELD  !■  D); 


procedure  PUTIFILE  ;  In  FILE-TYPE; 

ITEM  ;  In  NUM; 

WIDTH  ;  In  FIELD  DEFAULT-WIDTH; 

BASE  :  In  NUMBER-BASE  :»  DEFAULT-BASE); 
procedure  PUTIITEM  i  In  NUM; 

WIDTH  !  In  FIELD  DEFAULT-WIDTH; 

BASE  !  In  NUMBER-BASE  !»  DEFAULT-BASE); 


procedure  QETIFROM 
procedure  PUT!  TO 
ITEM 
BASE 


In  STRING;  ITEM  :  out  NUM;  LAST  :  out  POSITIVE); 
out  STRING; 

In  NUM; 

In  NUMBER.BASE  DEFAULT-BASE); 


end  INTEGERJO; 
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—  Generic  package*  for  Input-Output  of  Reel  Types 
generic 

type  NUM  Is  digite  <>; 
package  PLOAT.IO  Is 

DEFAULT_FORE  :  FIELD  :=  2; 

DEFAULT^FT  :  FIELD  :=  NUM’DIQITS-I; 

DEFAULT.EXP  :  FIELD  :=  3; 

procedure  GET(FILE  ;  In  FILE_TYPE;  ITEM  :  out  NUM;  WIDTH  ;  In  FIELD  ;=  0); 
procedure  GETdTEM  ;  out  NUM;  WIDTH  :  In  FIELD  0|; 

procedure  PUT(FILE  ;  In  FILE_TYPE; 

ITEM  :  In  NUM; 

FORE  :  In  FIELD  DEFAULT.FORE; 

AFT  :  In  FIELD  i-  DEFAULT_AFT: 

EXP  !  In  FIELD  DEFAULT.EXP): 

preoedure  PUTdTEM  :  In  NUM; 

FORE  ;  In  FIELD  :»  OEFAULT.FORE; 

AFT  :  In  FIELD  :«  DEFAULTjkFT; 

EXP  :  In  FIELD  ;«  DEFAULT_EXP); 

procedure  GEdFROM  :  In  STRING:  ITEM  :  out  NUM;  LAST  ;  out  POSITIVE); 
procedure  PUT(T0  ;  out  STRING: 

ITEM  I  In  NUM; 

AFT  ;  In  FIELD  DEFAULTJVFT; 

EXP  :  In  FIELD  ;«  DEFAULT.EXP); 

end  FLOAT_IO; 
generic 

type  NUM  le  deRe  <>; 
package  FIXED.IO  ie 

DEFAULT_FORE  ;  FIELD  ;«  NUM'FORE; 

DEFAULT-AFT  !  FIELD  NUM'AFT; 

DEFAULT-EXP  !  FIELD  !«  0; 

procedure  GETIFILE  ;  In  FILE_TYPE;  ITEM  :  out  NUM;  WIDTH  ;  In  FIELD  0); 
procedure  GETdTEM  ;  out  NUM;  WIDTH  :  In  FIELD  ;-r  0); 

procedure  PUTIFILE  ;  In  FILE_TYPE; 

ITEM  ;  In  NUM; 

FURE  !  In  FIELD  DEFAULT_FORE; 

AFT  !  In  FIELD  :»  DEFAULTJkFT; 

EXP  !  In  FIELD  DEFAULT.EXP): 

procedure  PUTdTEM  :  In  NUM: 

FORE  :  In  FIELD  DEFAULT.FORE; 

AFT  1  In  FIELD  :»  DEFAULT-AFT; 

EXP  !  In  FIELD  ;«  DEFAULT.EXP); 

procedure  GETIFROM  :  In  STRING;  ITEM  ;  out  NUM;  LAST  :  out  POSITIVE); 
procedure  PUT(T0  :  out  STRING: 

ITEM  ;  In  NUM; 

AFT  :  In  FIELD  DEFAULT-AFT; 

EXP  :  In  FIELD  :»  DEFAULT.EXP): 

end  FIXED.IO; 
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-  Generic  package  for  lnput>Output  of  Enumeration  Typaa 
generic 

type  ENUM  la  (<»; 
peokege  ENUMERATIQNJO  la 

DEFAULT_WIDTH  :  FIELD  0; 

DEFAULT-SETTINQ  :  TYPE_SET  ;=  UPPER-CASE; 


procedure  QET(riLE  ;  In  FILE-TYPE;  ITEM  :  out  ENUM); 
procedure  GETjlTEM  ;  out  ENUMI; 

procedure  PUTIFILE  ;  In  FILE-TYPE; 

ITEM  ;  In  ENUM; 

WIDTH  :  In  FIELD  i-  DEFAULT-WIDTH; 

SET  :  In  TYPE-SET  DEFAULT-SETTING); 

procedure  PUT(ITEM  ;  In  ENUM; 

WIDTH  :  In  FIELD  DEFAULT-WIDTH; 

SET  :  In  TYPE-SET  DEFAULT-SETTING); 

procedure  GETIFROM  :  In  STRING;  ITEM  :  out  ENUM;  LAST  :  out  POSITIVE); 

procedure  PUTIto  :  out  STRING; 

ITEM  I  In  ENUM; 

SET  I  In  TYPE-SET  DEFAULT-SETTING); 

end  ENUMERATIONJO; 


"  Exosptlona 


STATUS-ERROR 

MODE-ERROR 

NAME-ERROR 

USE-ERROR 

DEVICE-ERROR 

END-ERROR 

DATA_ERROR 

LAYOUT-ERROR 


exception  renomea 
exception  renemea 
exception  renemea 
exception  renemea 
exceptien  renemea 
exception  renemea 
exception  renemea 
exception  renemea 


I0-EXCEPTI0N3.STATUS-ERR0R! 

I0-EXCEPTI0NS.M0DE-ERR0R; 

IO-EXCEPTIONS.NAME.ERROR; 

lO-EXCEPTIONaUSE-ERROR; 

IO-EXCEFTIONS.DEVICE..ERROR; 

I0-EXCEPTI0N8.END-ERR0R; 

I0-EXCEPTI0N8.DATA-ERR0R! 

I0-EXCEPTI0N8.LAY0UT-ERR0R: 


private 

-  Implementatlon-dapandont 
end  TEXT.JO; 


14.4  Exoeptlona  in  Input-Output 


The  following  exoeptlona  can  bo  ralaed  by  Input-output  oparetlona.  They  ere  deolarod  In  the 
package  I0..EXCEPTI0NS  >  defined  In  aeotlort  14.6;  thia  package  la  named  In  the  context  olauae  for 
each  of  the  three  Input-output  pookagea.  Only  outline  deaorlptlona  are  given  of  the  conditlona 
under  which  NAME-ERROR,  USE-ERROR,  and  DEVICE-ERROR  are  rolaed;  for  full  detalla  aee 
Appendix  F.  If  more  than  ona  error  condition  exiata,  the  corresponding  exooptlon  that  anpeara 
earliest  In  the  following  Hat  la  the  ona  that  la  ralaed. 

The  exception  STATUS-ERROR  Is  raised  by  an  attempt  to  operate  upon  a  file  that  Is  not  open,  and 
by  an  attempt  to  open  a  file  that  la  already  open. 


14,4  Exceptions  In  Input-Output 
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The  exception  MODE_ERROR  is  raised  by  an  attempt  to  read  fr^^m,  or  test  for  the  end  of,  a  file 
whose  current  mode  Is  OUT.fiie  ,  end  also  by  an  attempt  to  write  to  a  file  whose  current  mode  is 
IN_FILE.  In  the  case  of  TEXTJO,  the  ex'f^eptlon  MODE_ERROR  Is  also  raised  by  specifying  a  file 
whose  current  mode  Is  OUT_FILE  in  a  call  of  SETJNPUT.  SKIP.„LINE,  END..OH_LINE,  SKIP_PAGE , 
or  END^OF_PAQE ;  and  by  specifying  a  file  whose  current  mode  la  IN.FILE  In  a  call  of 
SET_OIJTPUT,  SET_UNE_LENQTH.  SET_PAQEaENQTH ,  LINE_LENGTH,  PAGEJ.ENGTH , 
NEWSLINE ,  or  NEW.PAGE . 

The  exception  NAME_ERROR  Is  raised  by  a  call  of  CREATE  or  OPEN  If  the  string  given  for  the 
parameter  NAME  does  not  allow  the  Identification  of  an  external  file.  For  example,  this  exception  is 
raised  If  the  string  Is  Improper,  or,  alternatively,  If  either  none  or  more  than  Oi  iB  external  flic  uorroa- 
ponde  to  the  string. 

The  exception  USE^ERROR  Is  raised  If  an  opsratlon  Is  attempted  that  Is  not  possiola  for  reasons 
that  depend  on  characteristics  of  the  external  file.  For  example,  thia  exception  Is  raised  by  the 
procedure  CREATE,  among  other  ciroumstanoaa,  If  the  given  mode  Is  OUT..FILE  but  the  form 
specifies  an  Input  only  davloa,  If  the  parameter  form  specifies  Invalid  aocsas  rights,  or  If  cn 
external  file  with  the  given  name  already  axiata  and  oven»vrltlng  Is  not  allowed, 

The  exception  DEVICE^ERROR  la  raised  If  an  Input-output  operation  cannot  be  oompletec  because 
of  a  malfunction  of  thu  underlying  system. 

The  exception  END_ERROR  Is  raised  by  an  attsmpt  to  skip  (read  past)  ths  end  of  a  file. 

The  exception  DATA_ERROR  may  ba  raised  by  the  procedure  READ  If  ths  element  read  cannot  be 
interpreted  as  a  value  of  the  required  type.  This  exception  Is  also  raised  by  a  procedure  get 
(defined  In  the  package  TEXTJO )  If  the  Input  oharsotsr  laquanoa  falls  to  satisfy  the  required 
•yntex,  or  If  the  value  Input  doea  not  belong  to  the  range  of  the  required  type  or  subtype. 

The  exception  UVOUT.ERHOR  Is  ralaad  (In  text  input-output)  by  COL,  LINE,  or  PAGE  If  ths  value 
returned  exceeds  COUNTLAST.  Tho  exosptlon  LAYOUT.ERROR  Is  also  ralssd  on  output  by  an 
attempt  to  set  column  or  line  numbers  In  sxosss  of  spsolfisd  maxImuni  llns  or  page  lengths, 
rsspsotively  (excluding  ths  unbounded  oases).  It  Is  also  raised  by  an  attsmpt  to  PUT  too  many 
characters  to  a  string, 

fief»r»nC9s;  col  function  14,3,4,  or«at«  proosdur*  14,2,1.  cnd-otjln*  function  14,3.4,  ind-oLpsoe  function  14,3,1, 
■xtsrnal  (lls  14,1,  fll«  14.1,  form  itrlng  14,1,  gat  prooedura  14.3.6,  InJIle  14.1  lo_e.4oeptlonR  paokago  14,6,  line 
function  14,3,4,  IlnaJanglh  function  14,3.4,  name  itrlng  14.1,  nawJIni  prooidurt  14.3,4,  naw_page  prooaduro 
14,3,4,  opan  prooedura  14.2,1,  out_flla  14,1,  page  function  14.3,4,  pagajBngth  function  14,3  4,  put  pmoartura 
14.3.6,  read  prooadura  14,2.2  14,2.3,  latJnput  prootdure  14.3.2,  latJInaJangth  14,3,3,  let-pageJangth  14.3.3, 
■nt_output  14.3.2,  ikIpJIna  prooadura  14.3.4,  iklp_paoa  prooadura  14.3.4,  taxtJo  pankago  14.3 
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14.6  Speiolfloatlon  of  th«  Pnokagt  lOuExoapttiont 


This  package  defines  the  exceptions  needed  by  the  packages  SEQUENTIAL.IO,  DIRECTJO,  and 
TOXT_IO. 

peoksae  lO.EXCEPTIONS  Is 

STATUS-ERROR  :  siroeptlon: 

MODE-ERROR  :  exooption: 

NAML-ERROR  ;  axoaption: 

USE-ERROR  :  exception; 

DEVICE-ERROR  :  exception; 

END-ERROR  ;  exception; 

DATA.-ERROR  :  exception; 

LAYOUT-ERROR  :  exception; 

end  iO-.cXCEPTIONS; 


14.6  loM  Level  Inpot-Oiitput 


A  low  level  Input-output  operation  Is  an  operation  acting  on  a  physical  device.  Such  an  operation 
is  handled  by  using  one  of  the  (overloaded)  predefined  procedures  SEND..CONTROL  and 
RECEIVE-CONTROl 

A  procedure  SEND-CONTROL  may  be  used  to  send  control  Information  to  a  physical  device.  A 
procedure  RECEIVE-CONTROL  may  be  used  to  rnonitor  the  execution  of  an  lnput>output  operation 
by  requesting  Infortoutlon  from  the  physical  device. 

Such  procedures  are  deolar  d  in  the  standard  package  LOW-LEVEL.IO  and  have  two  parameters 
identifying  the  device  and  the  data.  However,  the  kinds  and  formeta  of  the  control  Information  will 
depend  on  the  physical  characteristics  of  the  mschlne  and  the  device  Hence,  the  types  of  the 
parameters  are  Implamsntetlori-deflned.  Overloaded  doflnltlona  of  these  procedures  should  he 
provided  for  the  supported  devices. 

The  visible  part  of  the  pacKaga  defining  these  procedures  Is  outlined  as  follovyrs; 
package  LOW-LEVEUO  Is 

-  declarations  of  ths  possible  types  for  DEVICE  end  DATA; 

-  declarations  of  overloaded  procedures  for  these  types; 

procedure  SENO_CONTROL  (DEVICE  ;  dev/ce_fype;  DATA  :  In  out  dhtnjtyp^V, 

procedure  RECEIVE-CONTROL  (DEVICE  :  d»vlc0jtyp9',  DATA  ,  In  out  data.jyp9)\ 
und; 

The  bodloa  of  the  procedures  SEND-CONTROL  and  RECEIVE-CONTROL  for  various  devices  can  be 
supplied  In  the  body  of  the  package  LOW_LEVELJO .  These  procedure  bodies  may  be  written  with 
node  statomentu, 
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14.7  Example  of  Input-Output 


The  following  example  shows  the  use  of  some  of  the  text  input-output  facilities  in  a  dialogue  with 
a  user  at  a  terminal.  The  user  is  prompted  to  type  a  color,  and  the  program  responds  by  giving  the 
number  of  items  of  that  color  available  in  stock,  according  to  an  Inventory.  The  default  input  and 
output  files  are  used.  For  simplicity,  all  the  requisite  instantiations  are  given  within  one  sub¬ 
program;  in  practice,  a  package,  separate  '  m  the  procedure,  would  be  used. 

with  TEXT_IO:  use  TEXT.JO; 
procedure  DIALOGUE  is 

type  COLOR  Is  (WHITE,  RED,  ORANGE,  YELLOW,  GREEN,  BLUE,  BROWN): 
package  COLORJO  is  new  ENUMERATIONJO(ENUM  =>  COLOR): 
package  NUMBERJO  Is  new  INTEGERJOdNTEGER); 
use  COLORJO,  NUMBERJO; 

INVENTORY  :  array  (COLOR)  of  INTEGER  :=  (20,  17,  43,  10,  28,  173,  87); 

CHOICE  :  COLOR; 

procedure  ENTER.COLOR  (SELECTION  ;  out  COLOR)  Is 
begin 
loop 
begin 

PUT  ("Color  selected:  ");  -  prompts  user 

GET  (SELECTION);  --  accepts  color  typed,  or  raises  exception 

return; 

exception 

whan  OATA_ERROR  => 

PUT(* Invalid  color,  try  again.  ");  -  user  has  typed  new  line 

NEW_LINE(2); 

~  completes  execution  of  the  block  statement 

end; 

and  loop;  --  repeats  the  block  statement  until  color  accepted 
end; 

begin  -  statements  of  DIALOGUE; 

NUMBERJO.DEFAULT.WIDTH  :=  B; 
loop 

ENTER_COLOR(CHOICE);  -  user  types  color  and  new  line 

3ET_COL(5);  PUT(CHOICE);  PUT("  items  available;"); 

Sl-T_C0L(40);  PUT(INVENTORY(CHOICE));  -  default  width  Is  B 
NEW_LINE; 
end  loop; 
end  DIALOGUE; 

Example  of  an  Interaction  (characters  typed  by  the  user  ere  Italicized^: 


Color  selected:  Black 

Invalid  color,  try  again. 

Color  selected;  Blue 

BLUE  items  available: 

173 

Color  selected:  Yellow 

YELLOW  Items  available: 

10 
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A.  Predefined  Lenguege  Attributes 


This  annex  summarizes  the  definitions  given  elsewhere  of  the  predefined  language  attributes. 


P'ADDRESS  For  a  prefix  P  that  denotes  an  object,  a  program  unit,  a  label,  or  an  entry: 

Yields  the  address  of  the  first  of  the  storage  units  allocated  to  P.  For  a  sub¬ 
program,  package,  task  unit, or  label,  this  value  refers  to  the  machine  code 
associated  with  the  corresponding  body  or  statement.  For  an  entry  for 
which  an  address  clause  has  been  given,  the  value  refers  to  the  cor¬ 
responding  hardware  Interrupt.  The  value  of  this  attribute  is  of  the  type 
ADDRESS  defined  In  the  package  SYSTEM  .  (See  13.7.2.) 

P’AFT  For  a  prefix  P  that  denotes  a  fixed  point  subtype: 

Yields  the  number  of  decimal  digits  .needed  after  ihe  point  to  accommodate 
the  precision  of  the  subtype  P,  unless  the  delta  of  the  subtype  P  Is  greater 
than  0.1,  In  which  case  the  attribute  yields  the  value  one.  (P'AFT  Is  the 
smallest  positive  Integer  N  for  which  (lOmioNjiHP’DELTA  Is  greater  than  or 
equal  to  one.)  The  value  of  this  attribute  Is  of  the  type  unIverssUnteger, 
(Sea  3.5.10.) 

P'BASE  For  a  prefix  P  that  denotes  a  type  or  subtype; 

This  attribute  denotes  the  base  type  of  P.  It  la  only  allowed  as  the  prefix  of 
the  name  of  another  attribute:  for  example,  P'BASE'FIRST .  (See  3.3.3.) 

P' CALLABLE  For  a  prefix  P  that  Is  appropriate  for  a  task  type: 

Yields  the  value  FALSE  when  the  execih  of  the  task  P  Is  either  completed 
or  terminated,  or  when  the  task  <  rmal;  yields  the  value  TRUE 

otherwise.  The  value  of  this  attribute  ,»  predefined  type  BOOLEAN  . 
(See  9.9.) 

P'CONSTRAINED  For  a  prefix  P  that  denotes  an  object  of  a  type  with  discriminants: 

Yields  the  value  TRUE  if  a  discriminant  constraint  applies  to  the  object  P,  or 
if  the  object  Is  a  constant  (Including  a  formal  parameter  or  generic  formal 
parameter  of  mode  »n);  yields  the  value  FALSE  otherwise.  If  P  Is  a  generic 
formal  paranreter  of  mode  In  out,  or  If  P  is  a  formal  parameter  of  mode  In  out 
or  out  and  the  rype  mark  given  in  the  corresponding  parameter  specification 
denotes  an  unconstrained  type  with  discriminants,  then  the  value  of  this 
attribute  Is  obtained  from  that  of  the  corresponding  actual  parameter.  The 
value  of  this  attribute  Is  of  the  predefined  type  BOOLEAN .  (See  3.7.4.) 
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P'CONSTRAINED  For  a  prefix  P  that  denotes  a  private  type  or  subtype: 

Yields  the  value  FALSE  If  P  denotes  an  unconstrained  nonformal  private  type 
with  discriminants;  also  yields  the  value  FALSE  If  P  denotes  a  generic  formal 
private  type  and  the  associated  actual  subtype  Is  either  an  unconstrained 
type  with  discriminants  or  an  unconstrained  array  type;  yields  the  value 
TRUE  otherwise.  The  value  of  this  attribute  Is  of  the  predefined  type 
BOOLEAN.  (See  7.4.2.) 

P’COUNT  For  a  prefix  P  that  denotes  an  entry  of  a  task  unit: 

Yields  the  number  of  entry  calls  presently  queued  on  the  entry  (If  the 
attribute  Is  evaluated  within  an  accept  statement  for  the  entry  P,  the  count 
doss  not  Include  the  calling  task).  The  value  of  this  attribute  Is  of  the  type 
unfversaUntegor,  (See  9.9.) 

P’DELTA  For  a  prefix  P  that  denotes  a  fixed  point  subtype: 

Yields  the  value  of  the  delta  specified  In  the  fixed  accuracy  definition  for  the 
subtype  P.  The  value  of  this  attribute  Is  of  the  type  unfversatweal.  (See 
3.6.10.) 

P'DIGITS  For  a  prefix  P  that  denotes  a  floating  point  subtype: 

Yields  the  number  of  decimal  digits  In  the  decimal  mantissa  of  model 
numbers  of  the  subtype  P.  (This  attribute  yields  the  number  U  of  section 

3.6.7. )  The  value  of  this  attribute  Is  of  the  type  unfvarsaUntager  (See 

3.6.8. ) 

P'EMAX  For  a  prefix  P  that  denotes  a  floating  point  subtype: 

Yields  the  largest  exponent  value  In  the  binary  canonical  form  of  model 
numbers  of  the  subtype  P.  (This  attribute  yields  the  product  4*B  of  section 

3.6.7. )  The  value  of  this  attribute  is  of  the  type  unfversaUntoger,  (See 

3.6.8. ) 

P'EPSILON  For  a  prefix  P  that  denotes  a  floating  point  subtype: 

Yields  the  absolute  value  of  the  difference  between  the  model  number  1.0 
and  the  next  model  number  above,  for  the  subtype  P.  The  value  of  this 
attribute  Is  of  the  type  unlversaUeal,  (See  3.6.8.) 

P'FIRST  For  a  prefix  P  that  denotes  a  scalar  type,  or  a  subtype  of  a  scalar  typo: 

Yields  the  lower  bound  of  P.  The  value  of  this  attribute  has  the  same  type  as 
P.  (See  3.6.) 

P'FIRST  For  a  prefix  P  that  Is  appropriate  for  an  array  type,  or  that  denotes  a  con¬ 

strained  array  subtype: 

Yields  the  lower  bound  of  the  first  Index  range.  The  value  of  this  attribute 
has  the  same  type  as  this  lower  bound.  (See  3.6.2  and  3.8.2.) 
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P'FIRST(N) 


P'FIRST_BIT 


P'FORE 


P'lMAGE 


P'LARGE 


P’LAST 


P'LAST 


For  a  prefix  P  that  Is  appropriate  for  an  array  type,  or  that  denotes  a  con-  ts 
strained  array  subtype; 

Yields  the  lower  bound  of  the  N-th  Index  range.  The  value  of  this  attribute 
has  the  same  type  as  this  lower  bound.  The  argument  N  must  be  a  static 
expression  of  type  unlvarsaUnteger.  The  value  of  N  must  be  positive 
(nonzero)  and  no  greater  than  the  dimensionality  of  the  array.  (See  3.6.2  and 
3.8.2.) 

For  a  prefix  P  that  denotes  a  component  of  a  record  object;  le 

Yields  the  offset,  from  the  start  of  the  first  of  the  storage  units  occupied  by 
the  component,  of  the  first  bit  occupied  by  the  component.  This  offset  Is 
measured  In  bits.  The  value  of  this  attribute  Is  of  the  type  unlversaUntegar, 

(See  13,7.2.) 

For  a  prefix  P  that  denotes  a  fixed  point  subtype;  t? 

Yields  the  minimum  number  of  characters  needed  for  the  Integer  part  of  the 
decimal  representation  of  any  value  of  the  subtype  P,  assuming  that  the 
representation  does  not  Include  an  exponent,  but  Includes  a  one-character 
prefix  that  Is  either  a  minus  sign  or  a  space.  (This  minimum  number  does  not 
include  superfluous  zeros  or  underlines,  and  Is  at  least  two.)  The  value  of 
this  attribute  Is  of  the  type  unfvanaUntager,  (See  3.5.10.) 

For  a  prefix  P  that  denotes  a  discrete  type  or  subtype;  <» 

This  attribute  Is  a  function  with  a  single  parameter.  The  actual  parameter  X 
must  be  a  value  of  the  base  type  of  P.  The  result  type  Is  the  predefined  type 
STRING.  The  result  Is  the  Imaga  of  the  value  of  X,  that  Is,  a  sequence  of 
characters  representing  the  value  In  display  form.  The  Image  of  an  Integer 
value  Is  the  corresponding  decimal  literal;  without  underlines,  loading 
zeros,  exponent,  or  trailing  spaces;  but  with  a  one  charactei  prefix  that  Is 
either  a  minus  sign  or  a  space. 

The  Image  c.f  an  enumeration  value  is  either  the  corresponding  Identifier  In 
upper  case  or  the  corresponding  character  literal  (including  the  two 
apostrophes);  neither  leading  nor  trailing  spaces  are  Included.  The  Image  of 
a  character  other  than  a  graphic  character  is  implementation-defined.  (See 
3.6.5.) 

For  a  prefix  P  that  denotes  a  real  subtype;  is 

The  aft.'lbute  yields  the  largest  positive  model  number  of  the  subtype  P.  The 
value  of  this  attribute  is  of  the  type  universal waal.  (See  3.5.8  and  3.5.10.) 

For  a  prefix  P  that  denotes  a  scalar  type,  or  a  subtype  of  a  scalar  type;  2c 

Yields  the  upper  oound  of  P.  The  value  of  this  attribute  has  the  same  type  as 
P.  (See  3.5.) 

For  a  prefix  P  that  Is  appropriate  for  an  array  type,  or  that  denotes  a  con-  n 
strained  array  subtype: 

Yields  the  upper  bound  of  the  first  Index  range.  The  value  of  this  attribute 
has  the  same  type  as  this  upper  bound.  (See  3.6.2  and  3.8.2.) 
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P'LAST(N) 


P'LAST_BIT 


P’LENQTH 


P'LENQTH(N) 


P'MACHINE«EMAX 


P'MACHINE_EMIN 


P'MACHINE^MANTISSA 


For  a  prefix  P  that  la  appropriate  for  an  array  type,  or  that  denotes  a 
constrained  array  subtype; 

Yields  the  upper  bound  of  the  N~th  Index  range.  The  value  of  this 
attribute  has  the  same  type  as  this  upper  bound.  The  argument  N 
must  be  a  static  expression  of  typo  universaljnteger.  The  value  of  N 
must  be  positive  (nonzero)  and  no  greater  than  the  dimensionality  of 
the  array.  (See  3.6.2  and  3.8.2.) 

For  a  prefix  P  that  denotes  a  component  of  a  record  object; 

Yields  the  offset,  from  the  start  of  the  first  of  the  storage  units 
occupied  by  tha  component,  of  the  last  bit  occupied  by  the  compo¬ 
nent.  This  offset  la  measured  in  bits.  The  value  of  this  attribute  is  of 
the  type  unlvarsaUntegar.  (See  13.7.2.) 

For  a  prefix  P  that  is  appropriate  for  an  array  type,  or  that  denotes  a 
constrained  array  subtype: 

Yields  the  number  of  values  of  the  first  Index  range  (zero  for  a  null 
range).  The  value  of  this  attribute  Is  of  the  type  un/versaijntagar, 
(See  3.6.2.) 

For  a  prefix  P  that  is  appropriate  for  an  array  type,  or  that  denotes  a 
constrained  array  subtype: 

Yields  the  number  of  values  of  the  N-th  Index  range  (zero  for  a  null 
range).  The  value  of  this  attribute  Is  of  the  typo  untvarsaUntagar, 
The  argument  N  must  be  a  static  expression  of  type  un/ver- 
saljntagar.  The  value  of  N  must  be  positive  (nonzero)  and  no 
greater  than  the  dimensionality  of  the  array.  (See  3.6.2  and  3.8.2.) 

For  a  prefix  P  that  denotes  a  floating  point  type  or  subtype: 

Yields  the  largest  value  of  exponant  for  the  machine  representation 
of  the  base  type  of  P.  The  value  of  this  attribute  Is  of  the  type  unlvar- 
salJntagar,  (See  13.7.3.) 

For  a  prefix  P  that  denotes  a  floating  point  type  or  subtype: 

Yields  the  smallest  (most  negative)  value  of  exponent  for  the 
machine  representation  of  the  base  type  of  P.  The  value  of  this 
attribute  is  of  the  type  unIversaUntager.  (See  13.7.3.) 

For  a  prefix  P  that  denotes  a  floating  point  type  or  subtype: 

Yields  the  number  of  digits  In  the  mantissa  for  the  machine 
representation  of  the  base  type  of  P  (the  digits  are  extended  digits  In 
the  range  0  to  P'MACHINE.RADIX  - 1).  The  value  of  this  attribute  Is 
of  the  type  unIversaUntager.  (See  13.7.3.) 


Predefined  Language  Attributes 


P'MACHINE_OVERFLOWS  For  a  prefix  P  that  denotes  a  real  type  or  subtype: 

Yields  the  value  TRUE  If  every  predefined  operation  on  values  of  the 
base  type  of  P  either  provides  a  correct  result, or  raises  the  exception 
NUMERIC_ERROR  In  overflow  situations;  yields  the  value  FALSE 
otherwise.  The  value  of  this  attribute  is  of  the  predefined  type 
BOOLEAN.  (See  13.7.3.) 

P'MACHINE_RADIX  For  a  prefix  P  that  denotes  a  floating  point  type  or  subtype; 

Yields  the  value  of  the  radix  used  by  the  machine  representation  of 
the  base  type  of  P.  The  value  of  this  attribute  is  of  the  type  unlvar- 
saUntagar,  (See  13.7.3.) 

P‘MACHINE_ROUNDS  For  a  prefix  P  that  denotes  a  real  type  or  subtype: 

Yields  the  value  TRUE  If  every  predefined  arithmetic  operation  on 
values  of  the  base  type  of  P  either  returns  an  exact  result  or  performs 
rounding;  yields  the  value  FALSE  otherwise.  The  value  of  this 
attribute  Is  of  the  predefined  type  BOOLEAN .  (See  1 3.7.3.) 

P'MANTISSA  For  a  prefix  P  that  denotes  a  real  subtype: 

Yields  the  number  of  binary  digits  In  the  binary  mantissa  of  model 
numbers  of  the  subtype  P.  (This  attribute  yields  the  number  B  of 
section  3.5.7  for  a  floating  point  type,  or  of  section  3.5.9  for  a  fixed 
point  type.)  The  value  of  this  attribute  Is  of  the  type  unlvar- 
saUntagar,  (See  3.5.6  and  3.5.10.) 

P'POS  For  a  prefix  P  that  denotes  a  discrete  type  or  subtype: 

This  attribute  la  a  function  with  a  single  parameter.  The  actual 
parameter  X  must  be  a  value  of  the  base  type  of  P.  The  result  type  Is 
the  type  unIvarsaUntagar,  The  result  Is  the  position  number  of  the 
value  of  the  actual  parameter.  (See  3.5.5.) 

P'POSITION  For  a  prefix  P  that  denotes  a  component  of  a  record  object; 

Yields  the  offset,  from  the  start  of  the  first  storage  unit  occupied  by 
the  record,  of  the  first  of  the  storage  units  occupied  by  the  compo¬ 
nent.  This  offset  Is  measured  In  storage  units.  The  value  of  this 
attribute  Is  of  the  type  unIvarsaUntagar,  (See  13.7,2.) 

P'PREO  For  a  prefix  P  that  denotes  a  discrete  type  or  subtype: 

This  attribute  Is  a  function  with  a  single  parameter.  The  actual 
parameter  X  must  be  a  value  of  the  base  type  of  P.  The  result  type  Is 
the  base  type  of  P.  The  result  Is  the  value  whose  position  number  Is 
one  lass  than  that  of  X.  The  exception  CONSTRAINT.ERROR  Is 
raised  If  X  equals  P'BASE'FIRST.  (See  3.5.5.) 

P'RANGE  For  a  prefix  P  that  Is  appropriate  for  an  array  type,  or  that  denotes  a 

constrained  array  subtype; 

Yields  the  first  Index  range  of  P,  that  Is,  the  range  P'FIRST  ..  P'LAST. 
(See  3.6.2.) 
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P'RANQEjN) 


P'SAFLEMAX 


P'SAFE_LARQE 


P'SAFE«SMALL 


P'SIZE 


P'SIZE 


P'SMALL 


P'STORAGE-SIZE 


P'STORAQE_SIZE 


For  a  prefix  P  that  It  appropriate  for  an  array  type,  or  that  denotes  a 
conatralned  array  subtype; 

Yields  the  N-th  Index  range  of  P,  that  Is,  the  range  P'FIRST(N)  .. 
P'LASTIN).  (See  3.8.2.) 

For  a  prefix  P  that  denotes  a  floating  point  type  or  subtype: 

Yields  the  largest  exponent  value  in  the  binary  canonical  form  of  safe 
numbers  of  the  base  type  of  P.  (This  attribute  yields  the  number  E  of 
section  3.6.7.)  The  value  of  this  attribute  Is  of  the  type  unlver- 
scljntag»r.  (Sea  3.6.8.) 

For  a  prefix  P  that  denotes  a  real  type  or  subtype: 

Yields  the  largest  positive  safe  number  of  the  base  typa  of  P.  The  value 
of  this  attribute  Is  of  the  type  unlv0raal^0al,  (See  3.6.8  and  3.5.10.) 

For  a  prefix  P  that  denotes  a  real  type  or  subtype: 

Yields  the  smallest  positive  (nonzero)  safe  number  of  the  base  type  of  P. 
The  value  of  this  attribute  is  of  the  type  unIvarsaUaal.  (See  l5.8  and 

3.6.10. ) 

For  a  prefix  P  that  denotes  an  objoct; 

Yields  the  number  of  bits  allocated  to  hold  the  object.  7  he  value  of  this 
attribute  Is  of  the  type  unfvarsaUntagar,  (See  13.7.2.) 

For  a  prefix  P  that  denotes  any  type  or  subtype: 

Yields  the  minimum  number  of  bits  that  Is  needed  by  the  implementation 
to  hold  any  possible  object  of  the  type  or  subtype  P.  The  value  of  this 
attribute  Is  of  the  type  unfvarsaUntegar,  (See  13.7.2.) 

For  a  prefix  P  that  denotes  a  real  subtype: 

Yields  the  smallest  positive  (nonzero)  model  number  of  the  subtype  P. 
The  value  of  this  attribute  is  of  the  type  unlvarsal-raal,  (See  3.5.8  and 

3.5.10. ) 


For  a  prefix  P  that  denotes  an  access  type  or  subtype; 

Yields  the  total  number  of  storage  units  reserved  for  the  collection 
associated  with  the  base  type  of  P.  The  value  of  this  attribute  Is  of  the 
type  un/varsaUntagar.  (See  13.7.2.) 

For  a  prefix  P  that  denotes  a  task  type  or  a  task  object; 

Yields  the  number  of  storage  units  reserved  for  each  activation  of  a  task 
of  the  type  P  or  for  the  activation  of  the  task  object  P.  The  value  of  this 
attribute  Is  of  the  typo  un/varsaUntagar,  (See  13.7.2.) 
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P’SUCC 


PTERMINATED 


PVAL 


P' VALUE 


P'WIDTH 


For  a  prefix  P  that  denotaa  a  diacrete  type  or  aubtype: 

Thia  attribute  la  a  function  with  a  aingle  parameter.  The  actual  parameter 
X  must  be  a  value  of  the  baae  type  of  P.  The  result  type  is  the  base  type 
of  P.  The  result  Is  the  value  whose  position  number  Is  one  greater  than 
that  of  X.  The  exception  CONSTRAINT.ERROR  is  raised  if  X  equals 
P'BASE’LAST.  (Sse  3.5.5.) 

For  a  prefix  P  that  la  appropriate  for  a  task  type; 

Yields  the  value  TRUE  If  the  task  P  Is  terminated;  yields  th^  value  FALSE 
otherwise.  The  value  of  this  attribute  is  of  the  predefined  type  BOOLEAN . 
(Sea  9.9.) 

For  a  prefix  P  that  denotes  a  discrete  type  or  aubtype; 

This  attribute  la  a  special  function  with  a  single  parameter  X  which  can 
be  of  any  integer  type.  The  result  type  Is  the  base  type  of  P.  The  result  is 
the  value  whose  position  number  la  the  unlv»rsaUnt»g9r  value  cor^ 
raapondlng  to  X.  The  exception  CONSTRAINT.ERROR  Is  raised  If  the 
unNanaUntagar  value  corresponding  to  X  la  not  in  the  range 
P'POS  (P'BASE'FIRST ) ..  P’POS  (P'BASE'LAST ).  (See  3.5.5.) 

For  a  prefix  P  that  denotes  a  discrete  type  or  aubtype; 

This  attribute  is  a  function  with  a  ngle  parameter.  The  actual  parameter 
X  must  be  a  value  of  the  predefined  typo  STRING .  The  result  type  la  the 
base  type  of  P.  Any  leading  and  any  trailing  spaces  of  the  saquenoa  of 
characters  that  correaponda  to  X  are  Ignored. 

For  an  enumeration  type,  if  the  sequence  of  characters  has  the  syntax  of 
an  enumeration  literal  and  If  thia  literal  exists  for  the  base  type  of  P,  the 
result  la  the  corresponding  enumeration  value.  For  an  Integer  type,  If  the 
sequence  of  characters  has  the  syntax  of  an  Integer  literal,  with  an 
optional  single  leading  character  that  Is  a  plus  or  minus  sign,  and  If  there 
Is  a  corresponding  value  In  the  baae  type  of  P,  the  result  Is  this  value.  In 
any  other  case,  the  exception  CONSTRAINT-ERROR  Is  raised.  (See  3.5.5.) 

For  a  prefix  P  that  denotes  a  discrete  subtype; 

Yields  the  maximum  Image  length  over  all  values  of  the  subtype  P  (the 
/maga  Is  the  sequence  of  characters  returned  by  the  attribute  IMAGE). 
The  value  of  this  attribute  Is  of  the  type  unfvarsaIJntagar.  (See  3.6.6.) 


B.  Prtdtfincd  Languoga  Pragmas 


This  annex  defines  the  pragmas  LIST,  PAGE ,  and  OPTIMIZE ,  and  summarizes  the  definitions  given  i 

eiaewhere  of  the  remaining  language-defined  pragmas. 

Pragma  Meaning 

CONTROLLED  Takes  the  simple  name  of  an  access  type  as  the  single  argument,  This  pragma  } 
Is  only  allowsd  Immediately  within  the  declarative  part  or  package  specification 
that  contains  the  daolaratlon  of  the  access  type;  the  declaration  must  occur 
before  the  pragma.  This  pragma  la  not  allowed  for  a  derived  type,  This  pragma 
apeclflaa  that  automatic  storage  reclamation  must  not  be  performed  for  obleots 
designated  by  valuao  of  the  aoceas  type,  except  upon  leaving  the  Innermost 
block  ststement,  subprogram  body,  or  task  body  that  encloses  the  access  type 
declaration,  or  after  leaving  the  main  program  (see  4.8). 

ELABORATE  Takes  one  or  more  simple  namea  denoting  library  units  as  arguments.  This  3 

pragma  Is  only  showed  Immediately  after  the  context  clause  of  a  compilation 
unit  (before  the  subsequent  library  unit  or  secondary  unit).  Each  argument 
must  ba  the  aimpla  name  cf  a  library  unit  mentioned  by  the  context  clause.  This 
pregmr'i  bjvaolfioa  that  thu  t'orreepor  i!ng  llbraty  unit  body  must  be  elaborated 
before  the  given  compilation  unit.  If  the  given  compilation  unit  Is  a  auhunit,  the 
library  unit  body  must  ba  elaborated  before  the  body  of  the  ancestor  library  unit 
of  the  subunit  (see  10.6). 

INLINE  Takes  one  or  more  names  as  arguments;  each  name  la  either  the  name  of  a  ^ 

subprogram  or  the  name  of  a  generic  subprogram.  This  pragma  l«  only  allnwed 
at  the  place  of  a  declarative  item  in  a  declarative  part  or  package  specification, 
or  after  a  library  unit  In  a  compilation,  but  before  any  subsequent  compilation 
unit.  This  pragma  apeclflaa  that  the  subprogram  bodies  should  be  expanded 
Inline  at  each  call  whenever  possible;  In  the  case  of  a  generic  subprogram,  the 
pragma  applies  to  calls  of  its  Instantiations  (see  6.3.2). 

INTERFACE  Takes  a  language  name  and  a  subprogram  name  oa  arguments.  This  pragma  Is  5 

allowed  at  the  place  of  a  declarative  Item,  and  must  apply  In  this  case  to  a  sub¬ 
program  declared  by  an  earlier  declarative  Item  of  the  same  declarative  part  or 
package  apacifloatlon.  Thia  pragma  is  also  allowed  for  a  library  unit;  In  this 
case  the  pragma  must  appear  after  the  subprogram  declaration,  and  before  any 
aubaequent  compilation  unit.  This  pragma  speolfles  the  other  language  (and 
thereby  the  calling  conventions)  and  Informs  the  compiler  that  an  object 
module  will  ba  supplied  for  the  corresponding  subprogram  (see  13.9). 

LIST  Takes  one  of  the  Identifiers  ON  or  OFF  as  the  tingle  argument.  This  pragma  Is  u 

allowed  anywhere  a  pragma  Is  allowed.  It  specifies  that  listing  of  the  compila¬ 
tion  Is  to  be  continued  or  suspendad  until  a  LIST  pragma  with  the  opposite 
argument  Is  given  within  the  same  compilation.  The  pragma  Itself  la  elwaya 
Hated  If  the  compiler  Is  producing  a  listing. 

MEMORV-SIZE  Takes  a  numeric  literal  as  the  single  argument,  This  pragma  la  only  allowed  at  1 
the  start  of  a  compilation,  before  the  first  compilation  unit  (If  any)  of  the  com¬ 
pilation.  The  affect  of  this  pragma  Is  to  use  the  value  of  the  apeclfied  numeric 
literal  for  the  definition  of  the  named  number  MEMORY.SIZE  (see  1 3.7). 
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OPTIMIZE 

PACK 

PAGE 

PRIORITY 

SHARED 

STORAGE..UNIT 

SUPPRESS 


SYSTEM_NAME 


Takaa  one  of  the  Identifiers  TIME  or  SPACE  as  the  single  argument.  This 
pragma  Is  only  allowed  within  a  declarative  part  and  It  applies  to  the  block  or 
body  enclosing  the  declarative  part.  It  specifies  whether  time  or  space  Is  the 
primary  optimization  criterion. 

Takes  tho  simple  name  of  a  record  or  array  type  as  the  single  argument,  The 
allowed  positions  for  this  pragma,  and  the  restrictions  on  the  named  type,  are 
governed  by  the  oame  rules  as  for  a  representation  clause.  The  pragma 
specifies  that  storage  minimization  should  be  the  main  criterion  when  selecting 
the  representation  of  the  given  type  (see  13.1). 

This  pragma  has  no  argument,  and  Is  allowed  anywhere  a  pragma  Is  allowed.  It 
specifies  that  the  program  text  which  follows  the  pragma  should  start  on  a  new 
page  Ilf  the  compiler  Is  currently  producing  a  listing). 

Takes  a  static  expression  of  the  predefined  Integer  subtype  PRIORITY  as  the 
single  argument,  This  pragma  Is  only  allowed  within  the  specification  of  a  task 
unit  or  Immediately  within  the  outermost  declarative  part  of  a  main  program.  It 
specifies  the  priority  of  the  task  (or  tasks  of  the  task  type)  or  the  priority  of  the 
main  program  (see  9.8). 

Takes  the  simple  name  of  s  variable  as  the  single  argument.  This  pragma  la 
allowed  only  for  e  variable  declared  by  an  oblect  declaration  and  whose  type  Is 
s  scalar  or  access  type;  the  variable  declaration  and  the  pragma  must  both 
occur  (In  this  order)  Immediately  within  the  same  declarative  part  or  package 
specification.  This  pragma  apccifiea  that  every  read  or  update  of  the  variable  Is 
s  synchronization  point  for  that  variable.  An  Implementation  must  restrict  the 
objects  for  which  this  pragma  Is  allowed  to  objects  for  which  each  of  direct 
roadlng  and  direct  updating  Is  Implemented  as  an  Indivisible  operation  (see 
9.11). 


Takes  a  numeric  literal  as  the  single  argument.  This  pragma  Is  only  allowed  at 
the  start  of  a  oompllotlon,  before  the  first  compilation  unit  (if  any)  of  the  com¬ 
pilation.  The  effect  of  this  pragma  Is  to  use  the  value  of  the  specified  numeric 
llterel  for  the  definition  of  the  named  number  STORAGE-UNIT  (see  1 3,7). 

Takes  as  arguments  the  Identifier  of  a  check  and  optionally  also  the  name  of 
either  an  object,  s  type  or  subtype,  a  subprogram,  a  task  unit,  or  a  generic  unit. 
This  pragma  Is  only  allowed  either  Immediately  within  a  declarative  part  or 
immediately  within  a  package  epeolflcatlon.  In  the  latter  case,  the  only  allowed 
form  is  with  s  name  that  denotes  an  entity  (or  several  overloaded  subprograms) 
declared  Immediately  within  the  package  specification.  The  permission  to  omit 
the  given  check  extends  from  the  place  of  the  pragma  to  the  end  of  the 
declarative  region  sssoclt'ted  with  the  Innermost  enclosing  block  statement  or 
program  unit,  For  a  pragma  given  In  a  package  specification,  the  permission 
extends  to  the  end  of  the  scope  of  the  named  entity. 

If  the  pragma  Includes  e  name,  the  permission  to  omit  the  given  check  Is  further 
restricted:  It  is  given  only  for  operations  on  the  named  object  or  on  all  objects 
of  the  base  type  of  a  named  typo  or  subtype:  for  calls  of  a  named  subprogram; 
for  activations  of  tasks  of  the  named  task  type;  or  for  Instantiations  of  the  given 
generic  unit  (see  1 1.7). 

Takes  an  enumeration  literal  as  the  single  argument.  This  pragma  Is  only 
allowed  at  the  start  of  a  compilation,  before  the  first  compilation  unit  (If  any)  of 
the  compilation.  The  effect  of  this  pragma  Is  to  use  the  enumeration  literal  with 
the  specified  Identifier  for  the  definition  of  the  constant  SYSTEM-NAME .  This 
pragma  Is  only  allowed  If  the  specified  Identifier  corresponds  to  one  of  the 
literals  of  the  type  NAME  declared  In  the  package  SYSTEM  (see  1 3,7). 
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This  annex  outlines  the  specification  of  the  package  STANDARD  containing  all  predefined 
identifiers  in  the  language.  The  corresponding  package  body  Is  Implementation-defined  and  is  not 
shown. 

The  operators  that  are  predefined  for  the  types  declared  In  the  package  STANDARD  are  given  in 
comments  since  they  are  Implicitly  declared.  Italics  are  used  for  pseudo-names  of  anonymous 
types  (such  as  unfvanal^aat)  and  for  undefined  Information  (such  as  imptam»ntatfon.jdaf/nad  and 
any^lxad^olntjtypa), 

paekage  STANDARD  Is 

type  BOOLEAN  Is  (FALSE,  TRUE); 

-  The  prsdafinod  relational  operators  for  thia  type  are  as  followa: 

-  function  (LEFT,  RIGHT  ;  BOOLEAN)  return  BOOLEAN; 

-  function  7-"  (LEFT,  RIGHT  :  BOOLEAN)  return  BOOLEAN; 

-  function  V''  (LEFT,  RIGHT  :  BOOLEAN)  return  BOOLEAN; 

-  function  X-”  (LEFT,  RIGHT  :  BOOLEAN)  return  BOOLEAN; 

-  function  (LEFT,  RIGHT  :  BOOLEAN)  return  BOOLEAN; 

-  function  '>»*  (LEFT,  RIGHT  ;  BOOLEAN)  return  BOOLEAN; 

The  pradaflnad  logical  operators  and  the  predefined  logical  negation  operator  are  as  follows: 

-  function  "and"  (LEFT,  RIGHT  ;  BOOLEAN)  return  BOOLEAN: 

-  function  "or"  (LEFT,  RIGHT  :  BOOLEAN)  return  BOOLEAN; 

-  function  "xor*  (LEFT,  RIGHT  :  BOOLEAN)  return  BOOLEAN; 

-  function  "not’'  (RIGHT  ;  BOOLEAN)  return  BOOLEAN; 


-  The  universal  type  imIvarsaUntagar  Is  predefined. 


type  INTEGER  Is  /mplamantadon-daf/nadi 
-  The  predefined  operators  for  this  typo  are  os  followa; 


-  function  "=*" 

-  function  "/=" 

-  function 

-  function  "<=" 

-  function  "V' 

-  function 


(LEFT,  RIGHT 
(LEFT,  RIGHT 
(LEFT,  RIGHT 
(LEFT,  RIGHT 
(LEFT,  RIGHT 
(LEFf,  RIGHT 


INTEGER)  return  BOOLEAN 
INTEGER)  return  BOOLEAN 
INTEGER)  return  BOOLEAN 
INTEGER)  return  BOOLEAN 
INTEGER)  return  BOOLEAN 
INTEGER)  return  BOOLEAN 
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-  function 

■'  +  " 

(RIGHT 

;  INTEGER)  return  INTEGER; 

-  function 

(RIGHT 

;  INTEGER)  ratum  INTEGER; 

--  function 

"abs" 

(RIGHT 

;  INTEGER)  return  INTEGER; 

-  function 

(LER, 

RIGHT 

INTEGER)  return  INTEGER 

-  function 

(LER, 

RIGHT 

INTEGER)  return  INTEGER 

-  function 

(LER, 

RIGHT 

INTEGER)  return  INTEGER 

-  function 

7" 

(LER, 

RIGHT 

INTEGER)  return  INTEGER 

function 

"rem" 

(LER. 

RIGHT 

INTEGER)  return  INTEGER 

-  function 

"mod" 

(LER, 

RIGHT 

INTEGER)  return  INTEGER 

--  function 

(LER 

INTEGER;  RIGHT  ;  INTEGER)  return  INTEGER; 

-  An  implementation  may  provide  additional  pradaflnad  Integer  typaa.  It  la  racommandad  that  tha 

-  namea  of  such  additional  typaa  and  with  INTEGER  aa  In  SHORTJNTEGER  or  LONGJNTEGER. 

-  The  specification  of  each  operator  for  tha  typa  unlvri»IJnt»g»r,  or  for  any  additional 

-  predefined  Integer  type,  Is  obtained  by  replacing  INTEGER  by  tha  name  of  tha  type  In  tha 
specification  of  the  corresponding  operator  of  tha  typa  INTEGER,  except  for  the  right  operand 

-  of  the  exponentiating  operator. 


The  universal  typa  unlvtraalwatl  la  pradaflnad. 
typa  FLOAT  Is  lmplam»ntatlon-def/n»di 


-  The  predefined  operators  for  this  typa  ara  aa  follows: 


-  function 

-  function  7=" 

-  function  "C 
•  function 

-  function  “Y 

-  function 


(LEFT,  RIGHT 
(LEFT,  RIGHT 
(LEFT,  RIGHT 
(LEFT,  RIGHT 
(LEFT,  RIGHT 
(LEFT,  RIGHT 


FLOAT)  return  BOOLEAN; 
FLOAT)  return  BOOLEAN; 
FLOAT)  return  BOOLEAN; 
FLOAT)  return  BOOLEAN; 
FLOAT)  return  BOOLEAN; 
FLOAT)  return  BOOLEAN; 


-  function  "+■'  (RIGHT  :  FLOAT)  return  FLOAT 

function  (RIGHT  i  FLOAT)  return  FLOAT 

-  function  "aba"  (RIGHT  i  FLOAT)  return  FLOAT 


-•  function  "+" 
--  function 
--  function 
-■  function  7" 


(LEFT,  RIGHT  i  FLOAT)  return  FLOAT 
(LEFT,  RIGHT  i  FLOAT)  return  FLOAT 
(LEFT,  RIGHT  :  FLOAT)  return  FLOAT 
(LEFT,  RIGHT  :  FLOAT)  return  FLOAT 


-  function  (LER  :  FLOAT;  RIGHT  ;  INTEGER)  return  FLOAT; 


-  An  Implementation  may  provide  additional  pradaflnad  floating  point  types.  It  Is  reoom- 

-  mended  that  the  names  of  such  additional  types  end  with  FLOAT  as  in  SHORT,_FLOAT  or 

-  LONG_FLOAT,  The  specification  of  each  operator  for  tha  typa  un/v#rsa/_/ae/,  or  for  any 

-  additional  predefined  floating  point  typa.  Is  obtained  by  replacing  FLOAT  by  tha  name  of  the 
--  typo  In  the  specification  of  the  corresponding  operator  of  the  type  FLOAT. 
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--  In  addition,  the  following  operators  are  predefined  for  universal  typee; 

-  function  (LEFT  :  un/v»rs§Unt»g»r,  RIGHT  :  un/v»ra»U0»D  return  univtraal^aal) 

--  function  (LEFT  :  unlvaraaUuah  RIGHT  :  unlvarsaUntegar)  return  unlv»raaU»ali 

--  function  7"  (LEFT  :  untvtraaUaali  RIGHT  :  unlvaraaUntagar)  return  unlvaraaf-real: 

The  type  unIvaraaUIxad  la  pradafinad.  The  only  operators  declared  for  this  type  are 

--  function  (LEFT  :  any^/xad^olnt^typai  RIGHT  :  any^lxedjjoint^typo)  return  unfversaUtxod', 

-  function  7"  (LEFT  :  anyjlxad^olntjtypa',  RIGHT  :  any^lxad-polnt^typa)  return  unlversaUIxad] 


-  The  following  oharaoters  form  the  standard  ASCII  oharaotar  set.  Character  literals  oor- 

-  responding  to  control  oharaoters  are  not  Identifiers;  thay  ara  indloatad  In  Italios  In  this  definition. 


type  CHARACTFR  Is 


( nut, 

aoh, 

atx. 

atx, 

act. 

anq, 

aek. 

bal, 

ba, 

ht, 

If, 

vt. 

ft. 

or. 

so. 

at. 

dh, 

dcJ, 

dc2. 

deS, 

dc4. 

nak. 

ayn. 

atb. 

can, 

am, 

aub. 

•sc. 

fa, 

8», 

ra. 

ua, 

*  » 

I 

•r. 

I 

%•, 

■S'. 

»n 

1 

■(', 

■*', 

*  t 

t  » 

t  t 

“  * 

i  f 

»  > 

'O', 

■r. 

•2', 

*3'. 

•4'. 

•8*. 

■8', 

■7', 

■8', 

■9'. 

•  # 

t  t 

•<•. 

■(81'. 

'A'. 

•B', 

‘C, 

•O'. 

'E', 

•P'. 

•O'. 

■H', 

T, 

■J', 

■K', 

•L'. 

•M'. 

•N', 

'O’, 

■P', 

■Q'. 

■R', 

•8', 

T. 

•U'. 

•v. 

•w. 

■X', 

■v. 

r. 

•c, 

V. 

•)', 

(At 

t 

*  \  * 

'a'. 

'b*. 

•o'. 

•d*. 

'f. 

'g'. 

■h'. 

T. 

•k'. 

•1'. 

'm'. 

'n'. 

■o', 

'P'. 

■q'. 

■r', 

•f. 

'u'. 

V’, 

■w', 

'x'. 

V. 

■i'. 

•c, 

T. 

'1'. 

dal) 

for  CHARACTER  use  --  128  ASCII  oheracter  set  without  holes 

(0,  1,  2,  3,  4,  B .  125,  126,  127); 


-  The  pradafinad  operators  for  the  type  CHARACTER  are  the  same  as  for  any  anumsratlon  typs. 
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package  ASCII  la 

“  Control  characters: 


NUL  ! 

oonatant 

CHARACTER 

tea 

nu/; 

SOH 

constant 

CHARACTER 

sss 

sob; 

STX 

aonstant 

CHARACTER 

au 

stx; 

ETX 

constant 

CHARACTER 

= 

atx; 

EOT 

aonstant 

CHARACTER 

un 

eot; 

ENQ 

oonatant 

CHARACTER 

= 

enq; 

ACK 

aonstant 

CHARACFER 

n 

ack; 

BEL 

oonatant 

CHARACTER 

as 

bah 

BS 

oonatant 

CHARACTER 

!a: 

br, 

HT 

constant 

CHARACTER 

ht; 

LF 

constant 

CHARACTER 

u 

lf\ 

VT 

constant 

CHARACTER 

vt; 

FF  : 

constant 

CHARACTER 

su 

ff', 

CR 

constant 

CHARACTER 

sa 

or; 

SO  : 

constant 

CHARACTER 

so; 

SI 

constant 

CHARACTER 

sa 

Dh 

OLE  : 

oonatant 

CHARACTER 

•JS 

dfo; 

DC1 

oonatant 

CHARACTER 

del; 

DC2  ; 

constant  CHARACTER 

m 

dc2; 

DCS 

oonatant 

CHARACTER 

aa: 

dc3; 

DC4 

constant 

CHARACTER 

m 

dc4; 

NAK 

oonatant 

CHARACTER 

=ri 

nak; 

SYN 

constant 

CHARACTER 

m 

syn; 

ETB 

constant 

CHARACTER 

an 

atb' 

CAN  ! 

oonatant 

CHARACTER 

m 

tan; 

EM 

constant 

CHARACTER 

« 

am; 

SUB 

constant 

CHARACTER 

m 

sub; 

ESC 

constant 

CHARACTER 

BB 

asc; 

PS  : 

oonatant 

CHARACTER 

m 

h; 

QS 

constant  CHARACTER 

SB 

9s; 

RS 

constant 

CHARACTER 

m 

rs\ 

US 

constant 

CHARACTER 

!)■ 

us; 

DEL 

constant 

CHARACTER 

m 

dal; 

--  Other  charaotars: 

EXCLAM 

constant 

CHARACTER 

• 

QUOTATION 

constant 

CHARACTER 

f 

SHARP  : 

constant 

CHARACTER 

m 

DOLLAR 

constant 

CHARACTER 

ni 

PERCENT  1 

constant 

CHARACTER 

m 

•96'; 

AMPERSAND 

constant 

CHARACTER 

M 

'B'l 

COLON  I 

oonatant  CHARACTER 

m 

* 

»» 

• 

SEMICOLON 

constant 

CHARACTER 

H 

'i»i 
>  * 

QUERY 

constant  CHARACTER 

m 

?*! 

AT..SIQN 

constant 

CHARACTER 

Wl 

L,QRACKET  ; 

oonatant  CHARACTER 

m 

t 

* 

BACKUS LASH 

constant 

CHARACTER 

♦u: 

V; 

R„BRACKET  ; 

constant 

CHARACTER 

m 

* 

CIRCUMFLEX 

constant 

CHARACTER 

■ft 

* 

UNDERLINE  ! 

constant 

CHARACTER 

TW 

GRAVE 

constant 

CHARACTER 

m 

* 

L.BRAC6  ! 

constant 

CHARACTER 

m 

• 

C: 

BAR 

constant 

CHARACTER 

m 

T; 

R«BRACE 

constant  CHARACTER 

m 

» 

fi 

TILDE 

constant 

CHARACTER 

NS 

‘-v’; 

•"  Lower  oaae  letters: 

LC_A  :  aonstant  CHARACTER  :»  'a'; 
LC_2  :  constant  CHARACTER  :*»  'x'; 


end  ASCII; 


in  --  Predefined  subtypes: 

BublYpa  NATURAL  Is  INTEGER  range  0  ..  INTEQER'LAST; 
subtype  POSITIVE  Is  INTEGER  range  1  ..  INTEQER'LAST; 


predefined  Language  Environment 


-  Predefined  string  tyoo: 

type  STRING  is  orraylPOSITlVE  rang*  <>)  of  CHARACTER; 
pragma  PACK(STRING); 


—  The  predefined  operators  for  this  type  are  as  follows: 


-  function 

(LEFT, 

"  function 

(LEFT, 

—  function  "•(" 

(LEFT, 

"  function  "<(=" 

(LEFT, 

••  function  "y 

(LEFT, 

-  function  ">=" 

(LEFT, 

—  function 

(LEFT  : 

-  function  "8t" 

(LEFT  : 

“  function 

(LEFT  : 

-  function  "8i" 

(LEFT  : 

RIGHT  ;  STRING)  return  BOOLEAN 
RIGHT  ;  STRING)  ratum  BOOLEAN 
RIGHT  :  STRING)  return  BOOLEAN 
RIGHT  ;  STRING)  return  BOOLEAN 
RIGHT  ;  STRING)  return  BOOLEAN 
RIGHT  :  STRING)  ratum  BOOLEAN 


STRING;  RIGHT  ;  STRING)  ratum  STRING; 

CHARACTER;  RIGHT  :  STRING)  ratum  STRING; 

STRING:  RIGHT  :  CHARACTER)  ratum  STRING; 

CHARACTER;  RIGHT  ;  CHARACTER)  ratum  STRING; 


type  DURATION  Is  delta  Implementutlon^deffned  rang*  Implemontatfon^deflned', 

-•  The  predefined  operators  for  the  type  DURATION  are  the  same  as  for  any  fixed  point  type, 


--  The  predefined  exceptions: 


CONSTRAINT.ERROR  ;  axoaption; 

NUMERIC-ERROR  ;  axoaption; 

PROGRAM-ERROR  :  axoaption; 

STORAGE-ERROR  :  axoaption; 

TASKING-ERROR  :  axoaption; 


and  STANDARD; 


Certain  aspects  of  the  predefined  entitles  cannot  be  completely  described  In  the  language  Itself. 
For  example,  although  the  enumeration  type  BOOLEAN  can  be  written  showing  the  two 
enumeration  literals  FALSE  and  TRUE,  the  short-circuit  control  forms  cannot  be  expressed  In  the 
language. 


Note; 


The  language  definition  predefines  the  following  library  units; 


-  The  package  CALENDAR 

-  The  package  SYSTEM 

-  The  package  MACHINE-CODE  (If  provided) 

-  The  generic  procedure  UNCHECKED-DEALLOCATION 

-  The  generic  function  UNCHECKED-CONVERSION 

-  The  generic  package  SEQUENTIAL-IO 

-  The  generic  package  DIRECTJO 

-  The  package  TEXTJO 

-  The  package  lO-EXCEPTIONS 

-  The  package  LOW_LEVEL_IO 


(see 

9.6) 

(see 

13.7) 

(see 

13.8) 

(see 

13.10.1) 

(see 

13.10.2) 

(see 

14.2.3) 

(see 

14.2.B) 

(see 

14.3.10) 

(see 

14.5) 

(see 

14.6) 

iThls  oloisary  It  r,^ .  part  of  the  itandard  dafinitlon  of  the  Ada  programming  languaga.l 
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appendix  is  informative  and  is  not  part  of  the  standard  definition  of  the  Ada  programming 
language.  Italicized  terms  in  the  abbreviated  descriptions  below  either  have  glossary  entries 
themselves  or  are  described  in  entries  for  related  terms. 


Accept  statement.  See  entry, 

Access  type.  A  valur  of  on  access  type  (an 
access  value)  Is  either  a  null  value,  or  a  value 
that  designates  an  object  created  by  an 
allocater.  The  designated  object  can  be  read 
and  updated  via  the  access  value.  The  defini¬ 
tion  of  an  access  type  specifies  the  type  of 
the  objects  designated  by  values  of  the 
access  type.  See  also  collection. 

Actual  parameter.  See  parameter. 

Aggregate.  The  evaluation  of  an  aggregate 
yields  a  value  of  a  composite  type.  The  value 
is  specified  by  giving  the  value  of  each  of  the 
components.  Either  positional  association  or 
named  association  may  be  used  to  Indicate 
which  value  is  associated  with  which  compo¬ 
nent. 

Allocator.  The  evaluation  of  an  allocator 
creates  an  object  and  returns  a  new  access 
value  which  designates  the  object. 

Array  type.  A  value  of  an  array  type  consists 
of  components  which  are  all  of  the  same  sub- 
type  (and  lienee,  of  the  same  type).  Each 
component  is  uniquely  distinguished  by  an 
Index  (for  a  one-dlmenslonal  array)  or  by  a 
sequence  of  indices  (for  a  multidimensional 
array).  Each  Index  must  be  a  value  of  a  dis¬ 
crete  type  and  must  lie  In  the  correct  Index 
range. 

Assignment.  Assignment  Is  the  operation 
that  replaces  the  current  value  of  a  variable 
by  a  new  value.  An  assignment  statement 
specifies  a  variable  on  the  left,  and  on  the 
right,  an  expression  whose  value  is  to  be  the 
new  value  of  the  variable. 


Attribute.  The  evaluation  of  an  attribute 
yields  a  predefined  characteristic  of  a  named 
entity;  some  attributes  are  functions. 

Block  statement.  A  block  statement  Is  a 
single  statement  that  may  contain  a 
sequence  of  statements.  It  may  also  Include 
a  declarative  part,  and  exception  handlers', 
their  effects  are  local  to  the  block  statement. 

Body.  A  body  defines  the  execution  of  a  sub¬ 
program,  package,  or  task,  A  body  stub  Is  a 
form  of  body  that  indicates  that  this  execu¬ 
tion  is  defined  in  a  separately  compiled  sub- 
unit. 

Collection.  A  collection  Is  the  entire  set  of 
objects  created  by  evaluation  of  allocators  for 
an  access  type. 

Compilation  unit.  A  compilation  unit  Is  the 
declaration  or  the  body  of  a  program  unit, 
presented  for  compilation  as  an  Independent 
text.  It  Is  optionally  preceded  by  a  context 
clause,  naming  other  compilation  units  upon 
which  it  depends  by  means  of  one  more  with 
clauses. 

Component.  A  component  Is  a  value  that  Is  a 
part  of  a  larger  value,  or  an  object  that  is  part 
of  a  larger  object. 

Composite  type.  A  composite  type  Is  one 
whose  values  have  components.  There  are 
two  kinds  of  composite  type:  array  types  and 
record  types. 

Constant.  See  object. 

Constraint.  A  constraint  determines  a  subset 
of  the  values  of  a  type,  A  value  In  that  subset 
satisfies  the  constraint. 
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Context  clause.  See  compilation  unit. 

Declaration.  A  declaration  associates  an 
ioentifier  (or  some  other  notation)  with  an 
entity.  This  association  Is  In  effect  within  a 
region  of  text  called  the  scopo  of  the  declara¬ 
tion.  Within  the  scope  of  a  declaration,  there 
are  places  where  It  Is  possible  to  use  the 
identifier  to  refer  to  the  associated  declared 
entity.  At  such  places  the  identifier  Is  said  to 
be  a  simple  name  of  the  entity;  the  name  is 
said  to  denote  the  associated  entity. 

Declarative  Part.  A  declarative  part  Is  a 
sequence  of  declarations.  It  may  also  contain 
related  Information  such  as  subprogram 
bodies  and  representation  clauses. 


Denote.  See  declaration. 

Derived  Type.  A  derived  type  is  a  type  whose 
operations  and  values  are  replicas  of  those  of 
an  existing  typo.  The  existing  type  Is  called 
the  parent  type  of  the  derived  type. 

Designate.  See  access  type,  task. 

Direct  vlaiblllty.  See  ^risibility. 


Discrete  Type.  A  discrete  type  Is  a  type 
which  has  an  ordered  set  of  distinct  values. 
The  discrete  types  are  the  enumeration  and 
Integer  types.  Discrete  types  are  user'  for 
Indexing  end  iteration,  and  for  choices  in  case 
statements  and  record  variants, 

Discriminant.  A  discriminant  Is  n  dis¬ 
tinguished  component  of  an  ob/ect  or  value 
of  a  record  type.  The  subtypes  of  other  com¬ 
ponents,  or  even  Utolr  presence  or  absence, 
may  depend  on  the  value  of  the  discriminant. 

Discriminant  constraint.  A  discriminant  con¬ 
straint  on  a  record  type  or  private  type 
specifies  a  value  for  each  discriminant  of  the 
type. 

Elaboration.  The  elaboration  of  a  declaration 
Is  the  process  by  which  the  declaration 
achieves  its  effect  (such  as  creating  an 
object)',  this  process  occurs  during  program 
execution. 


Entry.  An  entry  Is  used  for  communication 
between  tasks.  Externally,  an  entry  Is  called 
just  as  a  subprogram  Is  called;  Its  Internal 
behavior  Is  specified  by  one  or  more  accept 
statements  specifying  the  actions  to  be  per¬ 
formed  when  the  entry  Is  called. 

Enumeration  type.  An  enumeration  type  Is  a 
discrete  type  whose  values  are  represented 
by  enumeration  literals  which  are  given 
explicitly  in  the  type  declaration.  Those 
enumeration  literals  are  either  Identifiers  or 
character  literals. 

Evaluation.  The  evaluation  of  an  expression 
is  the  process  by  which  the  value  of  the 
expression  Is  computed.  This  process  occurs 
during  program  execution. 

Exception.  An  exception  Is  an  error  situation 
which  may  arise  during  program  execution, 
To  raise  an  exception  Is  to  abandon  normal 
program  execution  so  ns  to  signal  that  the 
error  has  taken  place.  An  exception  handler  Is 
a  portion  of  program  text  specifying  a 
response  to  the  exception.  Execution  of  such 
a  program  text  is  colled  handling  the  excep¬ 
tion. 

Expanded  name.  An  expanded  name  denotes 
an  entity  which  Is  declared  Immediately 
within  some  construct,  An  expanded  name 
has  the  form  of  a  selected  component  the 
prefix  denotes  the  construct  (a  program  unit, 
or  a  block,  loop,  or  accept  statement)',  the 
.selector  Is  the  simple  name  of  the  entity. 

Expression.  An  expression  defines  the  com¬ 
putation  of  a  value. 

Fixed  point  type.  See  real  type. 

Fioating  point  type.  See  real  type. 

Formal  parameter.  See  parameter. 

Function.  See  subprogram. 

Generic  unit.  A  generic  unit  is  a  template 
either  for  a  set  of  subprograms  or  for  a  set  of 
packages.  A  subprogram  or  package  created 
using  the  template  Is  called  an  Instance  of 
the  generic  unit.  A  generic  Instantiation  Is  the 
kind  of  declaration  that  creates  an  Instance. 


( 
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A  generic  unit  Is  written  as  a  subprogram  or 
package  but  with  the  specification  prefixed 
by  a  generic  formal  part  which  may  declare 
generic  formal  parameters,  A  generic  formal 
parameter  is  either  a  type,  a  subprogram,  or 
an  object.  A  generic  unit  is  one  of  the  kinds  of 
program  unit. 

Handler.  See  exception. 

Index.  See  array  type. 

Index  constraint.  An  Index  constraint  for  an 
array  type  specifies  the  lower  and  upper 
bounds  for  each  index  range  of  the  array 
type. 

Indexed  component.  An  Indexed  component 
denotes  a  component  In  an  array.  It  Is  a  form 
of  name  containing  expressions  which 
specify  the  values  of  the  Indices  of  the  array 
component.  An  Indexed  component  may 
also  denote  an  entry  In  a  family  of  entries. 

instance.  See  generic  unit. 

Integer  typo.  An  integer  type  is  a  discrete 
type  whose  values  represent  all  Integer 
numbers  within  a  specific  range, 

Lexical  element.  A  lexical  element  is  an  Iden¬ 
tifier,  a  literal,  a  delimiter,  or  a  comment. 

Limited  typo.  A  limited  type  Is  a  type  for 
which  neither  assignment  nor  the  predefined 
comparison  for  equality  is  Implicitly  declared. 
All  task  types  are  limited.  A  private  type  can 
be  defined  to  be  limited.  An  equality  operator 
can  be  explicitly  declared  for  a  limited  type. 

literal.  A  llteial  represents  a  value  literally, 
that  is,  by  means  of  letters  and  other 
characters.  A  literal  Is  either  a  numeric  literal, 
an  enumeration  literal,  a  character  literal,  ora 
string  literal. 

Mode.  See  parameter. 

Model  number.  A  model  number  Is  an  exact¬ 
ly  representable  value  of  a  real  type.  Opera¬ 
tions  of  a  real  type  are  defined  In  terms  of 
operations  on  the  model  numbers  of  the  type. 


The  properties  of  the  model  numbers  and  of 
their  operations  are  the  minimal  properties 
preserved  by  all  implementations  of  the  real 
type. 

Name.  A  name  is  a  construct  that  stands  for 
an  entity;  It  is  said  that  the  name  denotes  the 
entity,  and  that  the  entity  Is  the  meaning  of 
the  name.  See  also  declaration,  prefix. 

Named  association.  A  named  association 
specifies  the  association  of  an  item  with  one 
or  more  positions  In  a  list,  by  naming  the 
positions. 

Object.  An  object  contains  a  value.  A 
program  creates  an  object  either  by 
elaborating  an  object  declaration  or  by 
evaluating  an  allocator.  The  declaration  or 
allocator  specifies  a  type  for  the  object;  the 
object  can  only  contain  values  of  that  type. 

Operation.  An  operation  Is  an  elementary 
action  associated  with  one  or  more  types.  It 
is  either  implicitly  declared  by  the  declaration 
of  the  type,  or  It  Is  a  subprogram  that  has  a 
parameter  or  result  of  the  type. 


Operator.  An  operator  Is  an  operation  which 
has  one  or  two  operands.  A  unary  operator  is 
written  before  an  operand;  a  binary  operator 
is  written  between  two  operands.  This  nota¬ 
tion  is  a  special  kind  of  function  call.  An 
operator  can  be  declared  as  a  function.  Many 
operators  are  implicitly  declared  by  the 
declaration  of  a  type  (for  example,  most  type 
declarations  imply  the  declaration  of  the 
equality  operator  for  values  of  the  type). 

Overloading.  An  identifier  can  have  several 
alternative  meanings  at  a  given  point  In  the 
program  text;  this  property  Is  called 
overloading.  For  example,  an  overloaded 
enumeration  literal  can  be  an  Identifier  that 
appears  in  the  definitions  of  two  or  more 
enumeration  types.  The  nffectivo  meaning  of 
an  overloaded  Identifier  Is  determined  by  .he 
context.  Subprograms,  aggregates, 
allocators,  and  string  literals  can  also  bo 
overloaded. 


ANSIlMIL-STD-1 81 5A  Ada  Reference  Manual 


Package.  A  package  specifies  a  group  of 
logically  related  entitles,  such  as  types, 
objects  of  those  types,  and  subprograms  with 
paramoiers  of  those  types.  It  Is  written  as  a 
package  declaration  and  a  package  body. 
The  package  declaration  has  a  visible  part, 
containing  the  declarations  of  all  entities  that 
can  be  explicitly  used  outside  the  package.  It 
may  also  have  a  private  part  containing  struc¬ 
tural  details  that  complete  the  specification 
of  the  visible  entities,  but  which  are  irrelevant 
to  the  user  of  the  package.  The  package  body 
contains  implementations  of  subprograms 
(and  possibly  tasks  as  other  packages)  that 
have  been  specified  In  the  package  declara¬ 
tion.  A  package  Is  one  of  the  kinds  of 
program  unit. 

Parameter.  A  parameter  la  one  of  the  named 
entitles  associated  with  a  subprogram,  entry, 
or  generic  unit,  and  used  to  communicate 
with  the  corresponding  subprogram  body, 
accept  statement  or  generic  body.  A  forma) 
parameter  Is  an  identifier  used  to  denote  the 
named  entity  within  the  body.  An  actual 
parameter  hi  the  particular  entity  associated 
witi  I  the  corresponding  formal  parameter  by 
a  subprogram  c»ll,  entry  call,  or  generic 
Instantiation,  The  mode  of  a  formal 
parameter  specifies  whether  the  associated 
actual  parameter  supplies  a  value  for  the  for¬ 
mal  parameter,  or  the  formal  supplies  a  value 
for  the  actual  parameter,  or  both.  The 
association  of  actual  parameters  with  fornial 
parameters  can  be  specified  by  named 
associations,  by  positional  associations,  or  by 
a  cfjmblnatlon  of  these. 

Parent  type.  See  derived  type. 

Positional  association.  A  positional  associa¬ 
tion  specifies  the  association  of  an  item  with 
a  position  In  a  list,  by  using  the  same  position 
in  the  text  to  specify  the  Item. 

Pragma.  A  pragma  conveys  information  to 
the  compiler. 

Prefix.  A  prefix  Is  used  as  the  first  part  of  cer¬ 
tain  kinds  of  name.  A  prefix  Is  either  a  func¬ 
tion  call  or  a  name. 

Private  part.  Sec  package. 


Private  type.  A  private  type  Is  a  type  whoso 
structure  and  sot  of  values  are  clearly 
defined,  but  net  directly  available  to  the  user 
of  the  type.  A  private  type  is  known  only  by 
Its  discriminants  (If  any)  pnrl  by  the  set  of 
operations  defined  for  it.  A  piivate  type  and 
its  applicable  operations  are  defined  in  the 
visible  part  of  a  package,  or  in  a  generic  for¬ 
mal  part.  Assignment,  equality,  and  Ine¬ 
quality  are  also  defined  for  private  types, 
unless  the  private  type  is  limited. 

Procedure.  See  subprogram. 

Program.  A  program  Is  composed  of  a 
number  of  compile  Uon  units,  one  of  which  Is 
a  subprogram  caned  the  main  program, 
Execution  of  the  program  consists  of  execu¬ 
tion  of  the  main  program,  which  may  Invoke 
subprograms  declared  in  the  other  compila¬ 
tion  units  of  the  program. 

Program  unit.  A  program  unit  is  any  one  of  a 
generic  unit,  package,  subprogram,  or  task 
unit. 

Qualified  expression.  A  qualified  expression 
is  an  expression  preceded  by  an  Indication  of 
its  type  or  subtype.  Such  qualification  Is 
used  when,  In  its  absence,  the  expression 
might  be  ambiguous  (for  example  as  a  conse¬ 
quence  of  overloading). 

Raising  an  exception.  Seo  exception. 

Range.  A  range  Is  a  contiguous  set  of  values 
of  a  scalar  type,  A  range  Is  specified  by  giv¬ 
ing  the  lower  and  upper  bounds  for  the 
values.  A  value  in  the  range  is  said  to  belong 
to  the  range. 

Range  constraint.  A  range  constraint  of  a 
type  specifies  a  range,  and  thereby  deter¬ 
mines  the  subset  of  the  values  of  the  type 
that  belong  to  the  range. 

Reel  type.  A  real  type  Is  a  type  whoso  values 
represent  approximations  to  the  real 
numbers.  There  are  two  kinds  of  real  type: 
fixed  point  typos  are  specified  by  absolute 
error  bound;  floating  point  types  are 
specified  by  a  relative  error  bound  expressed 
as  a  numbei  of  significant  decimal  digits. 
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Record  type.  A  value  of  a  record  type  con¬ 
sists  of  components  which  are  usually  of  dif¬ 
ferent  types  or  subtypes.  For  each  compo¬ 
nent  of  a  record  value  or  record  object,  the 
definition  of  the  record  type  specifies  an 
identifier  that  uniquely  determines  the  com¬ 
ponent  within  the  record. 

Renaming  declaration.  A  renaming  declara¬ 
tion  declares  another  name  ^or  an  entity, 

Rendeivous.  A  rendezvous  is  the  Interaction 
that  occurs  between  two  parallel  tasks  whan 
one  task  has  called  an  entry  of  the  other  task, 
and  a  corresponding  accept  statement  Is 
being  executed  by  the  other  task  on  behalf  of 
the  calling  task. 

Representation  clausa.  A  representation 
clause  directs  the  compiler  In  the  selection  of 
the  mapping  of  a  type,  an  object,  or  a  task 
onto  features  of  the  underlying  machine  that 
executes  a  program.  In  some  cases, 
representation  clauses  completely  specify  the 
mapping;  in  other  cases,  they  provide  criteria 
for  choosing  a  mapping. 

Satisfy.  See  constraint,  subtype. 

Scalar  typo.  An  object  or  value  of  a  scalar 
type  doss  not  have  components.  A  scalar 
type  is  either  a  discrete  type  or  a  real  type. 
The  values  of  a  scalar  type  are  ordered. 

Scope.  See  declaration. 


Selected  component.  A  selected  component 
is  a  name  consisting  of  a  prefix  and  of  an 
identifier  celled  the  selector,  Selected  com¬ 
ponents  are  used  to  denote  record  compo¬ 
nents,  entries,  and  objects  designated  by 
access  values;  they  are  also  used  as 
expanded  names. 


Selector.  See  selected  component. 


Simple  name.  See  declaration,  name. 


Statement.  A  statement  specifies  one  or 
more  actions  to  be  performed  during  the 
execution  of  a  program. 

Subcomponent.  A  subcomponent  is  either  a 
component,  or  a  component  of  another  sub¬ 
component. 

Subprogram.  A  subprogram  is  either  a 
procedure  or  a  function,  A  procedure 
specifies  a  sequence  of  actions  and  is 
Invoked  by  a  procedure  call  statement.  A 
function  specifies  a  sequence  of  actions  and 
also  returns  a  value  called  the  result,  and  so  a 
function  call  is  an  expression.  A  subprogram 
is  written  as  a  subprogram  declaration,  which 
specifies  Its  name,  formal  parameters,  and 
(for  a  function)  its  result;  and  a  subprogram 
body  which  specifies  the  sequence  of 
actions.  The  subprogram  call  specifies  the 
actual  parameters  that  are  to  be  associated 
with  the  formal  parameters.  A  subprogram  Is 
one  of  the  kinds  of  program  unit. 

Subtype.  A  subtype  of  a  type  characterizes  a 
subset  of  the  values  of  the  type.  The  subset  Is 
determined  by  a  constraint  on  the  type.  Each 
value  in  the  set  of  values  of  a  subtype 
belongs  to  the  subtype  and  satisfies  the  con¬ 
straint  determining  the  subtype. 

Subunit.  See  body. 

Task.  A  task  operates  In  parallel  with  other 
parts  of  the  program.  It  is  written  us  a  task 
specification  (which  specifies  the  name  of  the 
task  and  the  names  a.i  I  formal  parameters  of 
its  entries),  and  a  task  body  which  defines  Its 
execution.  A  task  unit  Is  one  of  the  kinds  of 
program  unit.  A  task  type  Is  a  type  that  per¬ 
mits  the  subsequent  declaration  of  any 
number  of  similar  tasks  of  the  type.  A  value 
of  a  task  type  Is  said  to  designate  a  task. 
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Type.  A  type  characterizes  both  a  aet  of 
values,  and  a  set  of  operations  applicable  to 
those  values.  A  type  definition  Is  a  language 
construct  that  defines  a  type.  A  particular 
type  Is  either  an  access  type,  an  array  typa,  a 
private  type,  a  record  type,  a  scalar  type,  or  a 
task  type. 

Use  clause.  A  use  clause  achieves  direct 
visibility  of  declarations  that  appear  In  the 
visible  parts  of  named  packages. 

Variable.  See  object. 

Variant  part.  A  variant  part  of  a  record 
specifies  alternative  record  components, 
depending  on  a  discriminant  of  the  record. 
Each  value  of  the  discriminant  establishes  a 
particular  alternative  of  the  variant  part. 


Visibility.  At  a  given  point  In  a  program  text, 
the  declaration  of  an  entity  with  a  certain 
Identifier  Is  said  to  be  visible  If  the  entity  Is  an 
acceptable  meaning  for  an  occurrence  at  that 
point  of  the  identifier.  The  declaration  is  visi¬ 
ble  by  selection  at  the  place  of  the  selector  in 
a  selected  component  or  at  the  place  of  the 
name  in  a  named  association.  Otherwise,  the 
declaration  Is  directly  visible,  that  is,  if  the 
identifier  alone  has  that  meaning. 


Visible  part.  See  package. 


With  clause.  See  compilation  unit, 
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E.  Syntax  Summaty 


3.1 


graphlc_chBrActer  basic-griphic.charictnr 
I  lower_ca«e_lettor  |  oth«r_»paclaLcharaotBr 

b8Blc,.graphlc..oharnotor  ;;~ 
upper^coseJatter  |  digit 
I  apaclaLcharaotar  j  tpaca„oharaotar 

baalc-character 

bailc_graphlo_charaetar  |  formauaffaetor 


bflslc_declarotlon 

oblecLdoclaration 
I  tvpo_declaratlon 
I  subpro()rom_doclaration 
I  task-declaration 
I  exceptlon-declaratlon 
1  renatnlng_declaratlon 

32 


numbar-daclaratlon 

aubtypa-daclaratlon 

package.-daclaratlun 

ganarlo_declaratlon 

ganarIcJnatantlatlon 

dtf8rrsd_oonitant_daclaratlon 


2.3 


idantlflar  ::>n^ 

latter  Hunda'ilnel  lettar-.or_dlglt| 


oblect-declaratlon 

Idontifler-llst  :  loonatanti  aubtypaJndloatlon  |:»  oNpraialon); 
I  Identifler-llat  :  loonatanti  conBtralnad_array„daflnltlon 

I '.a  txpraaalonl: 


lattar-or-digit  latter  |  digit 

letter  uppar_caaaJettar  |  lowar„oaaajtttar 

2.4 


number-daclarntlon  ;i 

Identiflur-llst  i  oonetant  i/n/m«a/^taf/c-axpreaalon; 
idantlfier-llst  "t.-  Identifier  |,  Idantiflarl 


numericjitaral  dbcImaUltaral  |  boaadjltaral 

2.4.1 

daolmaLlltaral  Intagor  l.intagarl  (axponantl 

Integer  :ik-  algit  Hundorllnal  digit! 


3,3.1 

type^declaratlon  fulLtypa.daolaratlon 

1  Incomplele-typa.dnclaratlon  |  prlvata-typa_daolaratlon 

fulLtype-declaratlon  i!™ 

type  Identifier  Idisorlmlnant-partl  la  typa.dafinitlon; 


exponent  in.-  E  (^j  Integer  |  E  -  Integer 

2.4.2 

baaedJItaral 

base  #  baiedJnteger  (.baiedJntegarl  #  [exponantl 
bean  Intagor 
baiecLInteger 

extonded-digit  ||undsrlln«|  axtended.digitl 
extended-digit  digit  |  letter 

2.5 

character-literal  'graphlo-oharaoter' 

2.6 


type-definitlon 

enumer8tlon_tvpe„detlnltlon 
I  real-type-deflnltlon 
I  record-type-deflnltlon 
I  derlved_type..deflnltlon 


lntager_typa_dsflnltlon 

array-type_datlnltlon 

aocess.tYpo_dafvnltlon 


3.3.2 

subtype-.daclaratlon 

■ubtype  Identifier  le  aubtypaJndloatlon; 
subtype-indlcetlon  ;;■.=>  tyoe_marK  [eonatrainti 
type-mark  ryp*_name  |  lu/ffype.name 
constraint 

rungo-.constraint  |  tloatlng_polnt_oonafralnt 
1  flxed-polnt-conatralnt  |  lndex_oonatralnt 
I  dlscrlmlnant._oon8iralnt 


string-literal  "Igraphlo-charactarr' 

2.8 

pragma 

pragma  Idardlfler  llargumant-aasoolatlon 

I,  argumant_aaaoclatlonl)l; 

argument-association 

larpumenfjdentlfler  .=  >1  name 
I  iarguma/tf-ldentlfler  »>!  expression 


3.4 

derivoil  .typo-dofinition  i;..!  nave  subtypaJndloitlon 

3.5 

range-conetriilnt  ::  range  range 

range  ::  reripo-iitirlbute 
I  simple-uxprnsslon  ..  sImpla-Bxpraaalon 
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3.6,1 

•num0ratlon_typa_do(inltlon 

(•numeration.  JItarsLtpscIfIcatlon 

I  •numaratlonJItoraLapacIfIcatlonll 

•numaratlon.JltarBl..ipaolfloatlon  ;;=>  •numaratlonJIteral 

onumeratlonjltaral  Idantifiar  |  character..lltaral 

3.5.4 

InteflBi-.type  .definition  range_oonatralnt 
3.6.6 


raaLtype.daflnltlon 

floatlno_polnt_oonatralnt  |  flead_polnt_conatralnt 
3.6.7 

floflllno..polni_conatralnt 

floatlno_accuracy_daflnltlon  |ranga_oonatralnt| 


3.7.1 

dlacrlmlnant_pBrt 

(dlacrlmlnant_speclfloatlon  |;  diaorlmlnantjpaolfloatloni) 

dlacrlmlnant_apeclflcatlon 

ldentltlBr_ll8t  ;  type.mark  (:=•  axpraaalon) 


3.7.2 

discriminant-constraint  ::■= 

(dlscrlmlitant..osaoolatlon  |.  rilsorlmlnant-asioolatlonl) 

dlacrlmlnant-assoclatlon  , 

|<//stY/mfr»anf.almpla_name  ||  <//fer/m//iedf-almpla_namal  ■>! 
Bxpraaslon 


3.7.3 


floatlng_Bcouraov_d«(lnlllon 

dlglta  sfar/c_almpla-axpi'astlon 


3.6.9 


varlant-part  :i= 

oaae  c/Zscr/m/nartf-sImpla-nama  la 
variant 
I  varlanti 

and  easa: 


flxad-polnt-conatralnt 

llxod..accuracv_daflnltlon  (ranga-eonatralntl 

(lxid-accuracy..daflnlilon 

delta  ifaf/c-slmpla-axpraialon 

3.6 

array_typa_do(lnlllon 

unconatralnad-array-daflnltlon  |  oonatralnad_arriy..deflnltlon 

uneonstralnad_array_datlnltlon  :i« 

•rravllnda)L.subtypo-daflnltlon  I.  lndex.uubtvpe_daflrtltlon||  ol 
componenf.aubtypa-indicatlon 

eonstralnad_array_daflnltlon  i!^ 

array  indax-conitralnt  ol  corrtportanl_eubtvpaJndloatlon 

Indax-subtvpa-dsflnltlon  type  .mark  rattge  <> 

Indax-construlnt  (dlaorata_ranga  I.  dlaorata_ranga|) 

dlictote_range  f//jcr*(a_aubtyp«Jndloetlon  |  ranga 

3.7 

record-type..deflnltlon  ii-i 
rarord 

component-list 

and  record 


variant 

tMhan  choice  l|  oholoal 
componant_llst 

choice  ::e  almpla-axpraaalon 

I  dlirrato-range  |  othert  |  componanf_ilmple_nama 


3.8 

eccesi_.typa_dellnltlon  aoeeee  •ubtvpe,.lndloatlon 


3.8,1 

Incomplets-.typa-declaratlon 

type  Identifier  Idlsorlmlnant-partll 


3.9 

doclaratlvc-port 

IbasIc-dflclaratIvaJtemI  |latar_deolaratlvoJtem| 

basic-declarativejtem  baslo-doclsratlon 
I  representatlun-.clauia  |  uaa_alauaa 


component-list 

component-declaration  loomponant-daelaratlon I 
I  icomponi/nt-deolaratlonl  varlant-part 
I  null: 


later  . declarative-item  i;-'  body 
I  subprogram-donlaratlon 
I  taslLdeclaratlon 
I  use-clauso 


package-deolaratlon 

ganerlu-daolaratlon 

genarloJnstantlatlon 


component-declaration  body  proper-body  |  body-atub 

Identifier-list  .  componf'it-iubtypa.datlnltlon  |>  expreaalonl; 

propor.,.body 

component-Mibtypo-daflnltlon  eubtypejndloatlon  subproqrain-br.dv  |  package-body  I  laskJoody 
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4,1 


ntmt  ">»  slmpla-namt 
I  charociar.lltvral 
I  lndax«i<1_coniponant 
I  salacted-compor.ant 


oparator_tymbol 

tiloa 

attrlbuta 


flnipla„noma  ;;>=i  Identiflar 
prafix  name  |  functlon_call 


4,1,1 


lndaxad_,componenf  praflxlaxpraailon  I,  axpraaalonK 


4.1.2 

alica  iin  praflx(dlaorata^anga) 

4.1.3 

aalaotad_oomponant  :>  praflx.aalaotor 

aalaotor  :>  tlmpla_nama 

I  oharaotarJItaral  |  oparator_jymbol  |  all 


4.1.4 


attribute  iim  pratlx'attrlbutt_daalgnator 

attrlbuta_daalgnator  i!« 
almpla_nama  ((un/t'ana/_irar^e_axpraialon)l 


4.3 


aggraoata  i> 

TeomponanUuaaoolatlon  |,  oompor\ant-aaaoolatlon|| 

oomponent_aaaoalatlon  :i» 

loholof  II  oholoal  »■>  )  axpraialon 


4.4 

axpraaalon 

relation  land  ralatloni  I  relation  jartd  than  ralatlon! 
I  relation  jor  relation)  |  relation  lor  olta  relation! 

I  relation  |xor  relation) 


relation 

almple.axpraaalon 
I  aimple-axpraaalon 
I  elmpla..exproi«lon 


ralatlonaLoparator  elmple.oxproealoti) 
not)  In  range 
not)  In  type_mtrl( 


■Imple.expreailon 

lunary.jiddlno-operatorl  term  Iblnarv-adding-operator  term) 
term  ::•«  factor  Imultlplylng^perator  factor) 
factor  primary  [♦*  primary)  |  abe  primary  I  not  pilmary 


primary  ;;•< 

numarlo_lltaral  )  null  )  aggregate  )  etrlngjltaral 
I  name  |  allocator  |  funotlon_oall  |  typa-oonvaralon 
I  quallfled-axpraaelon  |  laxpreealon) 


4.6 

loglcaLoperator  and  )  or  )  aor 

relational-operator  -  |  /«  |  <  )  <■  |  >  |  >■ 

blnary_addlng_oporator  :>  .»■  |  ^  |  & 

unary_addlng_oparator  +  I  - 

multiplying-oparator  ;i=s  *1/1  mod  |  ram 
hlghort_precadanca.j)parator  ::»<  *«.  |  abe  |  not 

4.6 

type-converilon  ;;•>  typa_mark|oxpratalonl 

4.7 

quallfled-axpreiilon  ;;■> 

typa-mark'laxproMlon)  )  typa_mark'aggregate 

4.8 

allocator 

new  eubtypeJndloatlon  )  new  quallflad-oxpraaalon 


6.1 


iaquanoa_of_atatamenta  !:«  atatament  latatainant) 
atetemant  ;:b 

I  label)  ilmplo-atatement  |  Habel)  oompound-atatement 


iimpla-atatamant  !i»  nulLatatemant 


aulgnmani.atatamont 
exluatatamant 
goto-itatemant 
dalay.jtatement 
ralao-itatemant 


prooeduro-oalLatatamant 

retum-atatamant 

antry-oall-atatamont 

abonjitatamont 

oode-atatament 


eompound-itatement 
If-atatament 
I  loop..itatamant 
I  acoepL.atatamant 


oaie-Jtatamant 

block-atatament 

Hleot-itatemant 


label  11-  <</abaf_almple_nama>> 
null-atatement  null; 


6.2 


aaelgnment-atatemant 
uar/aP/a-name  expraaelon; 

6.,1 


If-atatament 

If  condition  than 
aequanaa-of_atatamanti 
I  olalf  condition  then 
lequanco-of-atatementa ) 

I  olea 

aequanoe_of_alatomenti) 
end  If; 

condition  ;;•>  Poo/aa/r_axpreaalon 
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6.4 

caM-itat«m«nt 
oaaa  axpraatlon  la 

oaaa_atat0mant_altamatlva 
I  oaaa_ataiemanUjllamatlva| 

ami  «aaa; 

caM_atatamfnt_altarnatlva  ::u< 
whan  ohoica  ||  oholoa  |  •> 
aaqutnca_of.jitattmanti 

5.6 

loop_atatomant 

[/oap_almpla_nama:| 

I  ltaratlon_aohainal  loop 
aoquanoa-of_atatamanta 
and  loop  (/oop_almpla_nama); 

Itaratlotuachama  i!«  wMlo  condition 
I  ter  loop_paraniotar_apaalfloatlon 

loop_parannatar^paDlfloatlon  :> 

Idantiflar  In  (ravaraal  dlacrata_ranga 

6.6 

blook-atatamant 

|6/oe/lr^lmplo^ama:| 

I  daolara 

riaolaratlva_pail| 

bagin 

aaqu3noa_ofjitatamanta 
I  aaeapdon 

axocptlon_handlar 
I  axoaiMlon_handlar|| 
and  iP/oe/r_ali'npla^amo)i 

6.7 

axliutatamant  i:« 
aalt  |/oop-namal  (whan  condition)! 

6.8 

raturn..itatamont  i:**  mtum  (axpraaalon)! 

6.B 

Ooto_ataiomant  ii-  goto  /aPa/-nama; 


6.1 

aubprograni_daolaratlon  :;•>  aubprogramjapacincatlon; 

■ubprogram_apaolflcallon  iim 

procadura  Idantiflar  |formalj}art| 

I  function  datignator  |formal-pan|  ratum  tvpa_marl( 

dailgnator  ::wi  Idantiflar  |  oparator.aymbol 

oparator_tymbol  ::»•  atrlng^lltaral 

formal^iart  ;:■= 

lparametar_apaolfloitlon  |:  paramatar_apaolfloatlon|l 
paramttar-ipaelllcatlon 

IdanflflarJIit  ;  mode  typajnark  'i-  axpraaalon] 
mode  |ln|  |  In  out  I  out 


6.3 

aubprogram-body 

aubptooram_apaclfloatlon  la 
I  doolaratlva_part| 
bagin 

aaquBnca_of.^tatamanta 
I  oaoaptlon 

axcaptlon-handlar 
I  axcaptlon-handlarll 
and  (doaignatorl: 

6.4 

procodura.calLatalamant 
pi  '.'adura.namo  |aotual_paramatar_part); 

functlon_oall  :;k 

7uner/on_nama  |aotual_pai'amatar_part) 
aotual-paramatar_part 

(paramatar-aaaoclatlon  |,  parannalar..aaaoolatlon|) 

paramatar..aatoolatlon  !:• 

I  fonnal_paramatar  >>)  aotual_paramatar 

formal-paramatar  paramafa/'_almpla_iiania 

aotuaL.paramatar 

axpraaalon  |  yar/ab/a.nama  |  typo-marl((yar/ab/a_nama) 


7.1 

packaga-daclaratlon  ii»  paokaga-apaolflcatlon; 

paol(aoa_tpaolflcatlon  ii> 
paakapa  Idantiflar  la 
|baalo..daolaratlva  Jtam  | 

I  prlvata 

|baalo_daelaratlva  Jtam  | ) 
and  Ipac/Ita0a_almpla.jtama) 

packaga-body  !!» 

packaga  body  pacfrafft_almpla_nama  la 
I  daoloratlva^jart) 

I  bagin 

aaquanoa_of.j|atamanta 
I  axaaptlon 

axcaptlon.hondlar 
I  axoaptlon.jiandlarlll 
and  |p#cktpa_almpla.Jtama|; 

7.4 

prlyBta.^typa_daolart.  '7n 

typa  Idantiflar  IdlaorlmlnanUpartI  la  IllmItadI  privatai 

dafarrad-oonatont-daclaratlon  !!« 

IdantlflarJIat  :  oonatant  typa^mark; 


6.4 

uaa_olauaB  uaa  pac/capa_nama  |,  pae4a0a_nama|| 

8.6 

ranamlng.dBolarBtlon 

Idantiflar  :  iypa_mark  ranamaa  oP/fcr_nama; 

I  Idantiflar  :  axaaptlon  ranamaa  axctp(/on_nama; 

I  paokaga  Idantiflar  ranamaa  pacAapt..nama; 

I  aiibprooi'ani_apaalfloatlon  ranamaa 

aubp/'opram_or'„artfrv_nama 


Syntax  Summary 


9.1 

taik-declaratlon  i:«  taik_tpaolfloatlon; 

tatk_apaolfloation  ;{» 
laak  (typal  idantiflar  |la 
|antrv_daclaratlon| 
Irapraaantatlon.olauaal 
and  |ras/r..almpl8_.nama|| 

talk-body 

taak  body  raa/(_alnpla.nama  la 
I  daclaratlya_part) 
bagin 

aactuenca_of_jatatamanta 
I  aacaptlon 

axoaptlon„hindlar 
I  oxoaptloruharidlarll 
and  IraaA-tlmpla-namali 


9.B 

antry-daelaratlon  !i« 

antiy  Idantiflar  |(dlaorata_ranat)I  (formal-part^ 

antry-calLitatamant  ii> 

anrry-neima  (ealual-parama(ar_part|: 

accbpt-atatamant  !!■ 

aaoapi  #nfry-almpla_nama  ({antrvJndaxIl  (formal4>art)  (do 
aaquanea ...  of-alatomanta 
and  (a.')rry.Jiiimpla_nama||i 

antrv-Indax  :i»  iHpraailon 


e.e 

dalay-atatamani  :;»•  dolay  aimpla-axpraaalon: 


9,7 

aalacCatalamant  ii>'  aala«tlva_walt 
I  oondItlonaLantry-oall  |  timad-antry-oall 


9.7.1 

aalaollva-walt 

lalMt 

aalaot-altamallva 
I  or 

lalaot-altamatival 

I  alaa 

aaquanaa-of..itatamnt'ta| 
and  aalaot; 

aalaot-altarnativa 

I  whan  condition  »>! 
aalaotlva-walt_altarnatlva 

aalaotiva-walt-altarnativa  !>  acoapLjaltarnatlva 
I  dalay-altamativa  |  tarmlnata_altamatlva 

aocapt-altarnativa 

auoapt-atalatnant  [Mquonaa_of_itatamanta| 

dalay-altarnativa  :i» 

dalay-atatantant  |aaquanaa..of_atatamanta| 

tarmlnata-altarnativa  i;«<  tormburta; 


9.7.2 

condltlonaLentry_call  ::>>< 

aalaot 

antry-call-atatamant 
I  aaquanoa-of-itatamanta| 

alia 

aaquenca..of_atatomanti 
and  aalaot; 

9.7.3 

tlmad-ontry-call  i:‘" 

aalaot 

antry-calLitatemant 
I  aaquancn_of_atatamanta| 
or 

dalay-altarnativa 
and  aalaot; 

9.10 

abort-itatamant  abort  fM/t-nama  |,  raaHr-namal; 


a»  101 

compilation  |oompllatlon_unlt| 

compllatlon-unlt 

oontaxt-olauaa  llbraiv-unlt 
I  oontaxt-olauaa  aaoondary-unlt 

llbrary-unit 

aubprogrim-daolaratlon  I  paokaga-daolirillon 
I  ganarlcudaolaritlon  |  gonarlOL.Inatantlitlon 
I  subprogram-body 

aacondary-unit  llbrary-unlUtody  |  lubunlt 

llbrary-unlt-body  subprogram-body  |  paokaga-body 

10.1,1 

contaxt-olausB  (wlih-olausa  |uia-olauaa|| 

witb-olausa 

with  on/f-slmpla-nama  I,  un/f-almpla-namal; 

10.2 

bodv_atub 

subprogram-apaolfloatlon  la  aaparata; 

I  paokaga  body  pocAaga-almpla-nama  It  aaparata; 

I  taak  body  roxA-almplo.jtama  It  aaparata; 

subunit  aaparata  Iparartf-sr/tff-nama)  proper-body 


11,1 

axoaptlon-daolaratlon  IdantlflarJIat  i  axoaptlon; 

11,2 

axcoptlon-handlar 

when  axoaptlon-oholoa  ||  axoaptlon-oholcal  •> 
taquanoa_of_atatamantt 

axoaptlon-oholoa  ;;•»  axeapr/ort-namt  I  othaia 

11,3 

ralaa-statamant  ralaa  [axoap(/ort-nama|; 
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12.1 

cen«rlc_d«claratlon  o*narlo_iptclfloatlon; 

ganarle_apaclflcatlon  ::=> 

ganericjormal-part  iubprogram_aptolfloatlon 
I  gBnerlc_formal_part  paokagt-tpaoinoatlon 

ganarlc..formal_part  ganodo  |ganarlo-piramattr_daclaratlon| 

ganarlc_paramatar_daclaratlon 

IdentIflarJIat  :  llii  loutll  typt-mark  [:i>  axpratilonl; 

I  type  Idenllflar  la  ganarlc_typa_daflnltloni 
I  prlvata_type_deolaratlon 
I  with  tubprograni_spaclflcatlon  |la  nama); 

I  with  lubprogram^paolfloatlon  [li  <>|; 

ganarlc_typa-daflnltlon 

(<>)  I  ranga  <>  |  dlglta  <>  |  datta  <> 

I  array.typa.dafinitlon  |  aooaBt-typa_daf1nltlon 

12.3 

ganarlejnitantlatlon  i:» 
paekaga  Idantifitr  It 

naw  gentrtc-pMektgt^ntm*  (ganarlo-iotual-partl; 

I  proaadura  Idantiflar  li 

naw  gtn§rle^nc»dut»jf\tmt  [ganBrlo_aotual_partl; 

I  (unellon  diilgnttor  li 

naw  gfn»flcJunetlonMmg  |gantrla.totual_pBrtli 

ganarlo_aoiuai_part  :i» 

(ganarlc.aiioolatlon  |,  ganarla_aaaoolatl9n|) 

ganarlo_aiioolatloii 

|ganarlojormil_paramatar  •>>]  ganarlo_aotual4)aramttar 

ginarlo-formaLpiramatar  ;iu 
part/ntt«r_il(npla.-nania  |  oparatpr.iymbol 

gtnarlo-autual_paraniit8r  i;»  axpraialon  |  y»ri$bl»jn»m» 

I  subprogtam^namt  |  aflfryjiann  |  tYpa.mgrk 


13.1 

rapraaentatlon.clauia 

typa_repratantatlon_olauta  |  addrait_elauia 

typa_repratentatlon_.clauta  langth..olauta 
I  anumarallon_raprosantatlon_olauta 
I  racord_rapres8ntatlon_clauia 

13.2 

langth^clauae  for  attrlbuta  uaa  aimpit.axpraaalorii 

13.3 

anumaratlon.rapraaantatlon.olauaa  :  i- 
for  fypajtimpli-nima  um  aggragata; 

13.4 

racorcLrtpreiantatlon.olauii  :;<■ 
for  fypa_ilmplB_nBma  uia 
raeord  lallgnmant-olauial 
lcomponBnt_olauat| 
and  raaord; 

allgnmant-clBuio  at  mod  «rar/e_BlmplB..txpraialon; 
componanL-olauii  iia 

cornponanr.nama  at  afaf/e_ilmpla_axpraialon 
ranga  afaf/e.ranga; 

13.B 

addroat..Qlauia 

for  almpla.nama  uaa  at  aimpla.axpraailon; 

13.8 

ooda..itatamatit  ::•<  typa.mark'raoord.agyrogata; 


Syntax  Crota  flafaranoa 


In  the  list  given  below  each  syntactic  category  la  followed  by  the  section  number  where  it  Is 
defined.  For  example: 

addlng_op«trator  4.6 

In  addition,  each  syntactic  oatagory  la  followed  by  the  names  of  other  categories  In  whose  defini¬ 
tion  It  appears.  For  example,  addlng_oparator  appears  In  the  definition  of  simple.expresslon: 


sddlng_.operator  4.B 

Blmpls_exprssslon  4.4 

An  ellipsis  (...)  Is  used  when  ths  syntactic  catagory  Is  not  defined  by  a  syntax  rule.  For  exampis: 


lowsr.^sseJettcr 

All  uses  of  parenthsaaa  are  combined  In  ths  term  "iV,  The  Italloliad  prefixes  used  with  some  terms 
have  bean  deleted  hare. 


abort 

•beiuilattmott 

■Impli-itiumint 


sbs 

fiotor 

hlgh«it-prto*dinof_op«'ator 

aoeept 

•ooaputlatamtnt 

MMptJiHamidv* 

Mltotlvt-w«lt_tlttmitlv( 

■ecspLjiUltnMnt 

■ooapt_altim«tlvt 

oompound.jitit*ni*nt 

aoooes 

■oatit_tYPt-daflnltlon 

M««tt_typa.jila(lnldon 

Oantrl0-tvp*_d«flnltlon 

typa^daflnltlon 


Ml 

caiMaLparamalar 

6.4 

s.to 

piram»t»r_itto  elation 

6.4 

9.10 

aotuaLparamatar_pai1 

a.4 

6.1 

antry_oall_Jtaiamant 

9.6 

tunctlon_oall 

6.4 

Ml 

prooadura-oalljitatamant 

6.4 

4.4 

4.6 

addrtaa_olauN 

13.6 

rapraaantatlon.olauia 

13.1 

9.6 

aser«9*l* 

4.3 

ooda_ataiamani 

13.S 

9.7.1 

anumaratlon_rapraaanlatlon_olaiiaa 

13.3 

9,7.1 

primary 

4.4 

qMallflad-axpraaalon 

4,7 

9.6 

9,7.1 

allenmtnl-alauaa 

13.4 

6.1 

raaard„rapraaantallon.-olauaa 

13.4 

3.6 

all 

aalaotni 

4.1.3 

3.S 

12.1 

allocalor 

4.8 

3.3.1 

primary 

4.4 
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and 


sxpretslon 

4.4 

logical-oparator 

4.6 

argumant-aaaoolation 

2.8 

pragtria 

2.8 

array 

... 

conatralnad..arrav_daflnltlan 

3.8 

unconatraln«(J_array_deflnltlon 

3.6 

airay-typa-daflnIUon 

3.6 

generic- tYpe_deflnltlon 

12.1 

type-definition 

3.3.1 

aaalgnment-autameni 

5.2 

ilmple-atatement 

6.1 

at 

MS 

addrati-olauae 

13.6 

alignment-clauia 

13.4 

componant-claute 

13.4 

attribute 

4.1.4 

length-claute 

13.2 

name 

4.1 

range 

3.6 

attrlbute-dealgnator 

4.1.4 

attribute 

4.1.4 

baaa 

2.4.2 

baaed-lltaral 

2.4.2 

baaed-lnlegar 

2.4.2 

baaed-lltaral 

2.4.2 

baaodJK'ral 

2.4.2 

numeric-literal 

2.4 

baaic-oharaotar 

2.1 

baale-deelaration 

3.1 

bailn-deolaratlvajtem 

3.9 

baalo-doolarativa-hom 

3.9 

declarative-part 

3.9 

packaga^poclflcatlon 

7.1 

baalo-grephlo-oharaoter 

2,1 

baalc-charactar 

2.1 

graphic-charactar 

2.1 

beoin 

SM 

block-atatement 

5<6 

package-body 

7.1 

aubprogram-body 

6.3 

task-body 

9.1 

binary-addIng-operator 

4.6 

tlmplt-axpraaalon 

4.4 

bloek-statemant 

6.6 

compound-statement 

6.1 

body 

3.9 

later-declarative-ltam 

3.9 

body 

sss 

body-stub 

10.2 

package-body 

7.1 

task-body 

9.1 

body-stub 

10.2 

body 

3.9 

case 


case-statement 

6.4 

verlant-part 

3.7,3 

sasa-statamant 

6.4 

compound-statement 

6.1 

ease-atatemant-aKamatlve 

6.4 

case-statement 

6.4 

charaotarJItaral 

2.6 

snumsratlonJItsral 

3.6.1 

name 

4.1 

selector 

4,1.3 

oholee 

3.7.3 

case-statement-altarnatlve 

5.4 

component-association 

4.3 

variant 

3,7.3 

cods-stataniant 

13.8 

slmpls-statemant 

6.1 

compilation 

10.1 

oompllatlon-unlt 

10,1 

compilation 

10,1 

oomponant-assoolatlon 

4.3 

aggregate 

4.3 

componant-olausa 

13.4 

record-representatlon-clause 

13.4 

componant-daolaratlon 

3,7 

component-list 

3,7 

eomponantjlst 

3.7 

rscord-typs.deflnltlon 

3.7 

variant 

3.7,3 

componant-subtypa-doflnMon 

3,7 

componant-daolaratlon 

3,7 

compound-alatomont 

6.1 

statement 

6.1 

condition 

6.3 

SHlt-statement 

6,7 

If-statsment 

6.3 

Iteration-scheme 

6.5 

select-alternative 

9,7,1 

condItlonaLentry-oall 

9.7.2 

select-ststsmant 

9,7 

oonttant 

defarrsd-constani-dsolsratlon 

7.4 

number-declaration 

3.2 

ob|sot-dsolaratlon 

3.2 

oonstrsinsd-array-daflnltlon 

3.6 

srray-type-deflnltlon 

3.6 

object-declaration 

3.2 

constraint 

3.3.2 

subtypejndicatlon 

3.3.2 

contaxt-olausa 

10,1.1 

compllatlon-unit 

10.1 

dacImaUltaral 

2.4.1 

numeric-literal 

2.4 

E-8 
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daolarativo-part 

3.9 

block_atatamant 

B.e 

package-body 

V.1 

iubprogram_body 

e.3 

tafk_b^y 

8.1 

daelaro 

block-statement 

B.e 

deforrad-oonatantjlaalaratlon 

7.4 

baalc-daclaratlon 

3.1 

delay 

delay-statement 

9.6 

delay-altematiee 

9.7.1 

selectlvn-walt-allernatlve 

9.7.1 

timed-entry-call 

9.7.3 

deiay-statamant 

9.6 

delay-alternative 

9.7.1 

simple-statement 

6.1 

delta 

fIxecLaccuracy-dafInItlon 

3.6.9 

generla.typs-definitlon 

12.1 

derivad-typa-doflnMon 

3.4 

type-definition 

3.3.1 

daelgnator 

6.1 

genarloJnatantlatlon 

12.3 

subprogram-body 

6.3 

subprogram-spacinoatlon 

6.1 

digit 

... 

bealamraphlc-oharaotar 

2.1 

extended-digit 

2.4.2 

Integer 

2.4.1 

lattar.or_dlglt 

2.3 

digita 

floatlng-aocuraoy-deflnltlon 

3.6.7 

generlo-type-deflnltlon 

12.1 

dleereteurange 

3.6 

choice 

3.7.3 

entry-declaration 

9.6 

Index-constralnt 

3.6 

loop-paremeter-spofllfloatlon 

6.6 

slice 

4.1.2 

dlaorlmlnant-aeeoalatlon 

3.7.2 

dlxcrlmlnant-constralnt 

3.7.2 

dtaorlmlnantjoonslralnt 

3.7.2 

conatraint 

3.3.2 

dlaorlmlnant-part 

3.7.1 

full-type-deolaratlon 

3.3.1 

Inoomplete-typo-daolaratlon 

3.6.1 

prlvate-type-daclaratlon 

7.4 

dleerlmhtantjtiMoMoatlon 

3.7.1 

dlaorlmlnanUpart 

3.7.1 

do 

acoept-statemant 

8.6 

E 

exponent 

2.4.'l 

elaa 

condltlonaL*ntrv_oill 

•xpraulon 

lf_ttat«msnt 

salactiva.walt 


alaif 

ir_jtatamant 

and 

accaptjitatamant 

block^tatamant 

cate_atatement 

condltlonaLantrv_call 

lf_Btatament 

loop_atatamant 

packaga-body 

paokaga_apaolfloatlon 

raeord-rapraaantatlorr^lauaa 

racord_typa_daflnltlon 

atlaotlva_walt 

aubprogramjsody 

taakJsody 

taak_apaolflcatlon 

tlmad_antry_oall 

varlant_part 


antry 

antry-daolaratlon 

antry_oalLatatanMnt 

oondltlonaLantry^all 

almpla^tatamant 

tlmacLantry^all 

antfy_daela  ration 

taak_apaolfl  cation 

antryjndai 

aooaptjitatamant 

anumaratlonJItatal 

anumaratlonjltaraljipaolfloatlon 

onuwaratlenJIttraLjpaalHaatlon 

anumaratlorutypa-daflnltlon 

onumoratlon_jr«prooonta11on.aiaHao 

typa_raprai«ntatlon_clauia 

onumoratloii_typaLjilaflnMon 

tvpa_dlaflnltlon 

•xeapthm 

blook_atatamant 

axoaptlon_daolaratlon 

paokagaJSody 

ranamlng_daolaratlon 

aubprogramjbody 

taak_body 

axoaption^holua 

axotptlon_handlar 

axeaptlon-daelaratlon 

baalc-daolaratlon 

axeapthMiLjHindlar 

blook_atatamaiit 

paokaga_body 

aubprogranvJtody 

taakJiody 
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axh 

**• 

axlLjatatamant 

6.7 

nxlcjttatamant 

6.7 

almpla-itatemertt 

6.1 

axponant 

2.4.1 

baaacLIItaral 

2.4.2 

dacImaUltaral 

2.4.1 

axpraaalon 

4.4 

actual-paramatar 

6.4 

argurr^ant-aaaoclatlon 

2.8 

atalgnmant_statemant 

6.2 

attributa_daalgnator 

4.1.4 

ca8e_ttatar  .ant 

6.4 

componani_astoelatlon 

4.3 

componant_daolaratlon 

3.7 

conditlort 

6.3 

dltcrlmlnant_aaaoolatlon 

3.7.2 

dIaerlmlnanLjapaolfloatlon 

3.7.1 

antryjndax 

9.6 

ganarlo;_aotual_paramatar 

12.3 

oanarle_paramatar_daolaratlon 

12.1 

lndaxad_componant 

4,1.1 

numbar.daolaratlon 

3.2 

ob|aat_daelaratlon 

3.2 

paramatar-epaolfloatlon 

8.1 

primary 

4.4 

quallfled..axpraaalon 

4.7 

raturn^tatamant 

6.8 

typa_convaralon 

4.6 

axtandaiLjdlglt 

2.4.2 

baaad-Intagar 

2.4.2 

faator 

4.4 

tarm 

4.4 

llaad-aeeuraey_daflnMon 

3.6.9 

flxad_point_con8tralnt 

3.6.9 

fixadLpalnt^onatralnt 

3.6.9 

conitraint 

3.3.2 

raaLtypa_dfflnltlon 

3,6.8 

floating_aoeuraey.da8nHlon 

3.6.7 

floatlna_polnt_canatralnt 

3.6.7 

floatlng_palnt_eon8tralnt 

3.6.7 

conitraint 

3.3.2 

reaLtypa^daflnltlon 

3.6.6 

for 

addr8iL.claua8 

13.8 

anumaratlon-rapraaantatlon-olauaa 

13.3 

ltaratlon_aahama 

8.6 

langth-olauaa 

13.2 

racord_rapraaantatlon_olauia 

13.4 

tortnaLparainatar 

8.4 

paramatar.aaaoolatlon 

8.4 

lormaLpart 

6.1 

accapt_atatamant 

9.6 

antry..daclaratlon 

9.6 

iubprogram_apaclflcatlon 

8.1 

format_atfaotur 

baalc_charaotar 

2.’i’ 

fulLtypa-dacIa  ration 

3.3.1 

type_daclaratlon 

3.3.1 

function 

genarirJnttantlatlon  12.3 

itjbprogram_apaclflcatlon  0. 1 

hinctlon_oall 

prefix  4.1 

primary  4.4 

ganario 

gan8rlc_formal_part  12.1 

ganarlo-aatuaLparamatar  12.3 

Qenerlc_aiioclatlon  12.3 

ganarlc-aotuaLpart  12.3 

genaric-lnstantlatlon  12.3 

gaitarlo-atioolatton  12,3 

gen8rlc_aotu8l_part  12.3 

ganarlo-daolaralion  12.1 

bailc_declaratlon  3.1 

latar.daolaratlvaJtam  3.9 

llbrary.unlt  10.1 

ganarlc^foimaLparamatM  12.3 

ganarlc-aaaoolatlon  1 2.3 

ganarlo_tormaL|Mirt  12.1 

ganerlo-apaolftoatlon  12.1 

ganarie-iniundatton  12.3 

baalc_daolaratloir  3.1 

latar-daclaratIvaJtam  3.9 

llbrary_urrlt  10,1 

genarlo-|>aramatar_daolaration  12.1 

genaric-lormal^art  12.1 

gaiwiio-apacHloation  12.1 

ganarlo-daolaratlon  12,1 

ganarlc-tVpa-jlafli«Hton  12.1 

genarlo_parannatar_daolaratlon  12.1 

goto 

goto_atatamant  6.9 

g«to-atatamarit  6.9 

aimplajtattmant  6,1 

graphlo-oharaetar  2 . 1 

charocter.JIteral  2.6 

atrlng_lltaral  2.6 

highfat-pracadanoa-opanitor  4.6 

Idantiflar  2.3 

argumanuaiaoolatlon  2.6 

daaignator  6.1 

entry.daolaratlon  9.6 

anumarallonjltaral  3.6.1 

fulLtvpa_daclaratlon  3.3.1 

ganarlc-lnatantlatlon  12.3 

ganoric_paramatar_daolaratlon  12.1 

IdantlflarJIat  3.2 

lncomplata_typa_daolaratlon  3.8. 1 

Ioop_paramattr_8paolf1oatlon  6.6 

packaga-apacificatlon  7.1 

pragma  2.8 

prlvata_tvpa_daolaratlon  7.4 

renamlng_daclaratlon  8.6 

iimpla..nama  4. 1 

aubprogram_apeclflcatlon  8, 1 

aubtYpa_daolaratlon  3.3.2 

taaklapaclflcatlon  9. 1 
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MwftmwrJM 

3.2 

lattar_or_dlglt 

compon«nt_d«olaratlon 

3.7 

Idantiflar 

dtf«rr*(Lx:onitant_d«oltratlon 

7.4 

dltcrimlnantjipaolflcatlon 

3.7.1 

libra  ry_unlt 

•xcaptlori-daclaratlon 

11.1 

compllatlon-unlt 

gen*  rlc_param«ttr._d«olt  ration 

12.1 

numbar_d«olaratlon 

3.2 

libra  rv_unltJ»ody 

objact-daclaratlon 

3.2 

tecondary-unlt 

para  matar-apacificatlon 

6.1 

limitad 

if 

8.3 

prlvate-typa-daolaratlon 

If-atatament 

logleaLoparator 

H-Btatamant 

fi.3 

conrpound-atatamant 

6.1 

loop 

in 

loop-statemant 

ganarlOL4)aramatar_daolaratlon 

12.'l 

loopuparamatar^paoHleatlofl 

loop_para  matar^paolfloatlon 

6.6 

Itaratlon-iohama 

moda 

6.1 

ralatlon 

4.4 

loopi-atatamant 

oompound-atatamant 

liwoinplata_lypa-(iaelaratlon 

3.8.1 

typa-daolaratlon 

3.3.1 

lo«irar..eaaa-lattar 

graphlo-oharaotar 

Indax^iwnatralnl 

3.6 

lattar 

oonairalnad_array_daflnltlon 

3.6 

oonatraint 

3.3.2 

mod 

alignmanl-olauaa 

Indax-fuMypa-dailnMon 

3.6 

multiplying-oparator 

unconatralnad_array-daflnltl<in 

3.6 

moda 

IndaiMKLjioniponant 

4.1.1 

paramatar-apaolfloatlon 

nama 

4.1 

muMpIvIng-oparator 

Intoflar 

2.4.1 

tarm 

baaa 

2.4.2 

daolmaUltaral 

2.4.1 

namo 

axponant 

2.4.1 

abort-atatamant 

actual-paramatar 

liita9ar_typa-daflnltion 

3.6.4 

argumanuaiaaolatlon 

typa^daflnltlon 

3.3.1 

aaaignmant-atatannant 

oomponant-olauaa 

ia 

antry_oall_atatamant 

bodyjitub 

10.2 

axoaptlon-oKoloa 

oaaa_atatamant 

6.4 

axlt_atatamant 

full.,  typa-daolaratlon 

3.3.1 

funotlon-oall 

oanarlojnatantlatlon 

12.3 

ganarlo-aotual-paramatar 

ganorlQ-paramatar-daolaratlon 

12.1 

ganarlo-lnatantlatlon 

paokaga_body 

7,1 

ganarlc-paramatar-daolaratlon 

paokaga^paolfloatlon 

7,1 

goto_atatamant 

privato- typa-daolaratlon 

7,4 

prafix 

aubprogram-body 

6.3 

primary 

aubtypa-daolaratlon 

3.3.2 

prooadura-oall^tatamant 

tatk.i>ody 

9.1 

ralaa-itatamant 

taak_a  pacification 

9.1 

ranaming-daolaratlon 

variant-part 

3.7.3 

aubunit 

typa-mark 

Haratlonujohama 

6.6 

uia_olauaa 

loop-atatomant 

6.6 

nowr 

labal 

6.1 

allocator 

atatamant 

6.1 

darlvad-typa-daflnltlon 

ganarlo-lnetantlatlon 

latar-daelarativaJtam 

3.9 

daolaratlva-part 

3.9 

not 

factor 

langth-elauoa 

13.2 

hlghaat-praoodanoo-oporator 

typa_rapraaantatlon.jolauaa 

13.1 

ralatlon 

lattar 

2.3 

null 

axtandad-digit 

2.4.2 

componanUlat 

Idantiflar 

2.3 

null-itatamant 

lattar_or_dlglt 

2.3 

primary 
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nuH-atatamant 

6.1 

almpla^tatamant 

6.1 

numlMr.jdMlaralion 

3.2 

baalc„dtolaratlon 

3.1 

MimartaLJtaral 

2.4 

primary 

4.4 

oblttei—dMtbmtkin 

3.2 

baalc_daolaratlon 

3.1 

of 

conatralnad_array_daflnltlon 

3.0 

unconatralnad_array_daftnltlon 

3.0 

oparator_aymbol 

0.1 

daaignator 

0.1 

garttrlo-formaLpara  malar 

12.3 

nama 

4.1 

aalaotor 

4.1.3 

or 

... 

axpraaalon 

4.4 

logleal-oparator 

4.6 

aalaotlva_walt 

0.7,1 

tlmad-antryuoall 

0.7.3 

ot1taf.japaelaLjoharaatar 

til 

graphlo_charaolar 

2.1 

olhara 

... 

choloa 

3.7.3 

axoaptlon_oholoa 

11.2 

out 

ganari04>aramatar_daolaratlon 

12,1 

moda 

6.1 

paekaga 

•»» 

body_atub 

10.2 

ganarioJnatantlatlon 

12.3 

packagajbody 

7,1 

packagajipaelflaatlon 

7,1 

ranamlna_claolaratlon 

8.6 

packagaJkody 

7,1 

llbrary^unlubody 

10,1 

proparJiody 

3.0 

pookagaL^aolaraaon 

7,1 

baaloL-daolaratlon 

3.1 

latar_daolaratlvaJtam 

3.0 

llbrary.unit 

10,1 

paokagaLjapaoWleatlott 

7,1 

gantrlo.jpaolfloatlon 

12,1 

paokaga_daolaratlon 

7,1 

paramatar^aaoeladan 

0.4 

aotual-paramatar-part 

0.4 

paramatarjipaeMoalion 

0.1 

formal.4)trt 

0.1 

pragma 

2.0 

pragma 

2.0 

pragma 

prafla 

4.1 

attrlbuta 

4.1.4 

lndaxad_compontnt 

4,1,1 

aalactaiLcomponant 

4.1.3 

primary  4.4 

factor  4.4 

privata 

packaga-spaolfloatlon  7.1 

prlvata_tYpa„daolaratlon  7.4 

privata...typa_daelaration  7.4 

Oanarlc_paramatar_daolaratlon  12.1 

tvpa_daclaratlon  3.3,1 

prooadura 

Oanarlc  Jnatantlatlon  12.3 

aubprogram_apaolf)aatlon  0,1 

proca<lura_oalUitatatnant  0  4 

Blmpla.jitatamant  6.1 

pitipar-boiiv  3.0 

body  3.0 

aubunit  10,2 

qtialHtad-aaproaalon  4,7 

aKooator  4.0 

primary  4.4 

ralaa 

raiaa^tatamant  1 1 .3 

ralaa-atatamant  1 1 .3 

almpla_atatamant  6.1 

ranga  3.6 

componant.olauaa  13,4 

dlaorata_ranga  lO 

rangauoonatraint  3,6 

ralatlon  4,4 

ranga 

componanuolauia  13,4 

gonarla.typa-dgflnltlon  12.1 

lndai(_aubtYpa_doflnltlon  3.0 

ranga_oonatralnt  3,6 

ranga_eofiatralnt  3.6 

oonatraint  3.3.2 

fl)(ad_polnt_oonitralnt  3.6.0 

floatlno_polnt_oonalralnt  3.6.7 

lntagar_typa_daflnlllon  3.6.4 

raal-tvpa_0allnWon  3.6.6 

typa.dafinitlon  3.3.1 

racord 

rconrd-raprtaantatlon_olauta  13.4 

racord_tvpa_daflnltlon  3.7 

rMOfd-rapraaantaOon-alauaa  13.4 

tvpa_rapraaantatlon_olauaa  13.1 

raeord-typaudaflnMon  3.7 

tvpa_daf1nltlon  3.3.1 

ralatlwt  4.4 

aapraaalon  4.4 

ralatioiiaLoparator  4.1 

ralatlon  4.4 

ram 

multlplvlng_oparator  4.1 

ranamaa 

rinamlng_daolaratlon  0.1 


Syntax  Croaa  Rafaranca 


rMHimln9.jdMri«nllon  8.5 

batlcL.d*cliratlon  3.1 

rapfMantatleiLjelauM  13,1 

batlo_daalaratlvaJttm  3.9 

taakjipaoinoatlon  9. 1 

ratum 

raturn_atatamant  5.9 

iubprogram_apaolfloitlon  0. 1 

iaturn_Btatamant  5.8 

tlmpla_atatamant  5. 1 

ravaraa 

loopi_paramatar_apaolfloatlon  5.5 

aaeondary-unit  10.1 

oompllatlotuunit  10.1 

aalaot 

condltlonaLantry_oall  9.7.2 

aalaotlva_walt  9.7.1 

tlmad_antry_oall  9.7.3 


almpla.jianM 

accapt_atatamant 

addraaa-olauaa 

attrlbuta_daalgnator 

blocluatatamant 

body_atub 

cholna 

dlacrlmlnant.aaaoolatlon 

anumaratlon^praaantatlon^lauaa 

formal_paramatar 

ganarlc..(ortnal_paramatar 

labal 

loop_atatemant 

nama 

packagaJ>odv 

packaga_apaolfloatlon 

raoordlrapraaantatlon_olaMaa 

aalaotor 

taak_body 

taak^apaolfloatlon 

varlanLpart 

wlth_olauaa 

almpl*_atatamanl 

atatamant 


aalaet-ahamativa 

aalaatlva_walt 


9.7.1  allea 

8.7.1  nama 


aatoat-atatamani 

oompouncLatatamant 


9.7 

5.1 


apaaa.^araotar 

baalo_graphla_oharaotar 


aalaetad_goinponaf«t 

nama 


4.1.3  apaelaLeharaotar 

4.1  baale_graphle.^haraetar 


aalaellva-Malt 

aalaoljaiatamant 


9.7,1  aiatamani 

9,7  aaquanoa^of-atatamanta 


aahMilvauwaH-aKamallya  9,7.1 

aalaoualtamatlva  9.7.1 

aalaator  4,1.3 

aalaotad-opmponant  4.1.3 

aaparata 

body^tub  10.2 

aubunit  10.2 

aaquanaa-Af-atatanwnta  5.1 

aooapLjItamativa  9.7.1 

aooapLjitatamant  9.6 

blook_atatamant  5.6 

oaaa^tatamantjiltamatlva  6.4 

oondltlonaLantry_oall  9.7.2 

dalay.jiltamatlva  9.7.1 

oxaaptlon_handlar  1 1 .2 

Ifjstatamant  6.3 

loop_atatamant  5.5 

pac1tagaJ>ody  7.1 

aalaotiva-walt  9.7.1 

aubprogramJiody  9,3 

taaL±^y  8.1 

tlmad_antry_oall  8.7.3 

almpla^apraaalon  4.4 

addraaa.alauaa  13,6 

alIgnmanLjolauaa  13.4 

oholoa  3.7.3 

componant_olauaa  13,4 

dalayuatatamani  9.6 

ftxa(i.aaouracy_dafliiltlon  3.6.9 

floatlng_aoouraoy_daflnitlon  3.6.7 

Icngth-olauaa  13,2 

ranga  3,6 

ralatlon  4.4 


atringjitaral 

oparator_aymbol 

primary 

aubprogramJMdy 

llbrary.unit 
library.  .unltj>gdy 
propar_body 

aubprogranuiMaration 

baalo-daolaratlon 

latar_daolarativaJtam 

llbrary.unit 

aubprogram-apaoMoallon 

body.jtub 

ganarlo_paramatar_daalaratlon 

ganarlowjpaolfloatlon 

ranamlng_daolaratlon 

aubprogramJiody 

aubprogram_daolaratlon 

Mibtyp* 

aubtypa.daolaratlon 

aubtypaudaalarailon 

baalc_daolarotlon 

aubtypaJrtdloallofl 

aoooaaL.lypa_daflnltlon 

allocator 

oompunantjaubtypa_daf1nltlon 

oonatralnacLarray-daflnltlon 

darlvad_typa_daflnltlon 

dlacrata_ranga 

ob|aot_daolaratlon 

iubtypa_daolaratlon 

unconatralnad_array_daflnltlan 
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lubunlt 

10.2 

Mcondarv^unlt 

10.1 

taBk 

body_itub 

10.2 

tMk_body 

9.1 

task^paclflcatlon 

0.1 

taakJbody 

0.1 

propar_body 

3.9 

taalu  rfaclaratlon 

9.1 

baslc_declaratlon 

3.1 

later_declaratlviiJtam 

3.9 

taak_apMlfloatlon 

0.1 

taak^daelaratlon 

0.1 

tarni 

4.4 

almpla.axpraaaloii 

4.4 

tarmiiMta 

tarmlnata-altamatlva 

0.7.‘l 

tannlnata_altan«aaya 

9.7.1 

ialeotlva_walt_altarnatlva 

9.7.1 

than 

axpraitloti 

4.4 

lf_ttatarrant 

0.3 

tlmMl_anlry_ean 

9.7.3 

aalaot-atdtamaiu 

9.7 

typa 

**• 

fulLtypa-daolaration 

3.3.1 

ganarlo_paramtttr.dtelaratlon 

12.1 

Incomplala-typa.daolaratlon 

3.0.1 

prlvati_tvpa-daolaratlon 

7.4 

taak_apaoiflaatlon 

0.1 

typ«-eonvaralon 

4.0 

primary 

4.4 

typ«_dMlaratton 

3.3.1 

baalo-daclaratlon 

3.1 

tvp«_dal(nltlofl 

3.3.1 

fulLtyp8_daalaratlon 

3.3.1 

typa_inarli 

3.3.2 

actual^ai'tmatar 

0.4 

coda.jtatamant 

13.0 

daf8rrad-aonttant_daolaratlon 

7.4 

dlaorlmlnanLapaolfloatlon 

3.7.1 

ganarlc_aotual_paramatar 

12.3 

ganarlc_paramatar_daolaration 

12.1 

lnda)CJiJb<ypa_da^nltioi< 

3.0 

paramatar_ipaolfloatlon 

0.1 

quallflad-axpratalor^ 

4.7 

ralatlon 

hA 

ranamlna_daelaratlon 

0.0 

aubprogra  1  n^paolfl  cation 

0.1 

lubtypaJndloatlon 

3.3.2 

typn.convarilon 

4.0 

typ«_raprta«nlallon-alaua« 

13.1 

rapraiantatlon^olausa 

13.1 

unary_addlng^aparatof 

4.0 

almple..axpre8ilon 

4.4 

unconalralnad-jrrav^daflitKIon 

3.0 

array.. type-daflnltlon 

3.0 

undarllna 


baaadJtdagar 

2.4.2 

Idantiflar 

2.3 

Integer 

2.4.1 

uppar_oaaa  Jotter 

„ 

baalc.graphlc^chai  aaim 

2.1 

letter 

2.3 

UM 

addreti_clauai 

13.'g 

anunneratlon..rapretantatlon-clauM 

13.3 

length_claLise 

13.2 

record_represerttatlon._clauae 

13.4 

use-clauaa 

8.4 

uae_elauao 

8.4 

baalc_deolaratlve_ltem 

3.fi 

contexColauie 

10.1.1 

later.declaratIveJtam 

3.8 

variant 

3.7.3 

varlant.4>art 

3.7.3 

variant-part 

3.7.3 

component_lltt 

3.7 

whan 

oaaa_atatemerit_alternBtlva 

0.4 

axcaptlorv-handler 

11.2 

exlt_atatomant 

0.7 

aaleot-altarnatlve 

9.7.1 

variant 

3.7.3 

whila 

lloratlorjiaharna 

0.8 

wHh 

ganArlo_ptramatar_daolaratlon 

12.‘i 

wlth_olauaa 

10.1.1 

wKh-olaueo 

10.1.1 

oontext-olauia 

10.1.1 

xor 

expreaalon 

4.4 

loglooLoperator 

4.8 

itrli  .literal 

2.8 

* 

„ 

baeed-lltaral 

2.4.2 

& 

.. 

blnary_addlng-ope  rotor 

4.1 

attribute 

4.1.4 

oharacterjiteral 

2.1 

code-ftatament 

13.( 

quallfled-oxpreaalon 

4.- 

(  1 

aceeptJitatemant 

o.i 

actual-parameter 

t.i 

aetual-paramete.'-part 

i.t 

'  aggregate 

4.: 

attrlbute-detignator 

4.1.r 

dIaorlmlnant-QonatraInt 

3.7.2 

dlacrlmlnant_part 

3.7. 

entry-declaration 

0.1 

anumeratlon-type-daflnltlon 

3.0. 

formal.43art 

0. 

Syntax  Cross  Refarence 


(  ) 


♦♦ 


+ 


I 


ganarlc_actual^art 

12.3 

ganarlc_typa„datln!tk'n 

12.1 

:=s 

lndax_oonitralnt 

3.6 

lndaxad_oomponant 

4.1.1 

pragma 

2.8 

primary 

4.4 

quallflad_a)tpraiilor) 

4.7 

tiica 

4.1.2 

subunit 

10.2 

typa.convartlon 

4.6 

unconstrBlnad_arfay_daflnltlon 

3.6 

t 

multlplylng_operBtar 

4.G 

factor 

4.4 

hlghait-praoadanoauoparator 

4.5 

blnary_addlng_oparator 

4.6 

axpoftant 

2.4.1 

unery_addlng_opsrator 

4.5 

abort_atatamant 

0.10 

aotusl-paramatsr_part 

6i4 

aggragata 

4.3 

dliorlmlnant_oonMralnt 

3.7.2 

anumaratlorutypa-daGnltlon 

3.5.1 

ganarlG_aotual_part 

12.3 

IdantlflarJIil 

3.2 

lnda)i_oonatralnt 

3.6 

lndaaad_oompontnt 

4.1.1 

pragma 

2.8 

unoonatralnad.array-daflnltlon 

3.6 

uaa_alauaa 

8.4 

wlth_olauaa 

10.1.1 

blnary_addlng_oparator 

4.6 

axponant 

2.4.1 

unary_addlng..oparator 

4.6 

batadJItaral 

2.4.2 

daolmaUltaral 

2.4.1 

lalaotad.componant 

4.1.3 

ranga 

3.6 

multlplylng_oparator 

4.8 

ralatlonal-oparator 

4.6 

block_itatamant 

6.6 

Romponant_daolarstlon 

3.7 

dsfarrad_aonatsnt_claolarctlon 

7.4 

diaorlmlnanuspaolfloatlon 

3.7.1 

✓ 

axoaptlon_daolaratlon 

11.1 

V 

ganarlc_paramatar_daolarstlon 

12.1 

loop_atstsmant 

6.8 

<< 

numbsr_dsolaratlon 

3.2 

ob|aot_dsolaratlon 

3.2 

paramatar_ipaolfloatlon 

6.1 

<W 

ranamlng^daolaratlon 

8.6 

a8ilgnmant_statam«nt 

componant-dttclaratlon 

dlacrlmlnant_ipaolflcatlon 

ganerlc-parametar-daclaratlon 

numbor.daclaratlon 

objact_daclaratlon 

para .  natar_apaelfloatlon 


abort_atatemant 

accapt-atatamant 

addresa.clauaa 

allgnmanUolauta 

aailgnmant-atatamant 

block_atatamant 

body_atub 

caaa.Jitatamant 

coda_ttatamant 

componant_alauaa 

cotnponanudaolaratlon 

componanUlat 

oondltlonaLantry.oall 

dafarrad..eonatant_dtclaratlon 

dalay_atatamant 

dlaerlminant_part 

antrv-oall-atatamant 

anttv..daolaratlon 

anumaratlon_rapraaantatloruolauia 

aKoaptlon_daolaratlon 

axlt_atatamant 

formal_part 

fulLtypa.daolaratlon 

ganarlo_daolaratlon 

genarlojnatamlatlon 

ganarlo_paramatar_daolara‘lon 

goto_atattmant 

lf_8tatamant 

lnoompltta_typt_daolaratlon 

langth.olauaa 

loop-atatamant 

null_Btatamant 

numbar.daolaratlon 

ob)aot_daolaratlan 

paokagaJ>ody 

paokaga.daolaratlon 

pragma 

privala_tvpa-daolaratlon 

prucadura_oall^tatamant 

ralaa_8tatamant 

raoord_rapratantatlon_olauaa 

ranamlna_daolaratlon 

raturn_itatamant 

aaleotlva-walt 

iubprogram_body 

aubprogram_daolaratlon 

aubtypa_daolaratlon 

iaak_i>ody 

taik_daolaratlon 

tarmlnata.altarnativa 

timad_antrv_oall 

uta_alauaa 

varlant-part 

wlth_olauaa 


ralallonaLoparator 


labal 


ralatlonaLoparator 
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atn«rle_p(ramttsr_d«ola  ration 

12.1 

> 

ralatlonal-operator 

4.6 

gfinar<c_tvpo_d«flnltion 

12,1 

lnd«x_aubtvpt_d«flnltlon 

3.6 

ralatlonsLoparator 

4.6 

ralatlonaLoparator 

4.6 

>> 

aroumancaatoolatlon 

2.8 

labtl 

6.1 

cata_atatamant_alttmatlva 

6.4 

componant-aaioolatlon 

4.3 

dlacrlmlnant_attoclitlon 

3.7.2 

1 

... 

o)(ctpt!on_handlar 

11,2 

caaa_atatamant_altarnatlva 

6.4 

ganarlu_asaoclatlon 

12.3 

componanuaiaoclatlon 

4.3 

paramatar_aaaoolatlon 

6,4 

diaerlmlnant-aaaoolatlon 

3.7.2 

aalacualtamatlva 

9.7.1 

axoaptlon_handlar 

11.2 

IThli  ippandlK  li  not  pin  of  th*  (tindird  dtfinitlon  of  th*  Ada  programming  languaga.l 


F.  lmpltmtnt«tloii-D«p«ndcnt  Charaetarittiot 


The  Ada  language  definition  allowa  for  certain  machina-dependancea  In  a  controllad  mannar.  No  i 
machina-dapandant  ayntax  or  aamantic  axtanalona  or  raatrlctlona  ara  allowad.  Tha  only  allowad 
implamantation-dapandancaa  oorraapond  to  Implamantatlon-dapandant  pragmas  and  attrlbutas, 
certain  machina-dapandant  conventions  aa  mentioned  in  chapter  1 3,  and  certain  allowed  restric¬ 
tions  on  representation  clauses. 

The  reference  manual  of  each  Ada  Implementation  must  include  an  appendix  (called  Appendix  F)  2 
that  describes  all  Implementation-dependent  oharaoteriatios.  Tha  appendix  F  for  a  given  Implemen¬ 
tation  must  list  In  particular: 

(1)  The  form,  allowed  places,  and  effect  of  every  Implementation-dependant  pragma.  3 

(2)  The  name  and  the  type  of  every  Implementation-dependent  attribute.  4 

(3)  Tha  specification  of  the  package  SYSTEM  (see  1 3.7).  s 

(4)  The  list  of  all  raatrlctlona  on  representation  clauses  (see  13.1}  a 

(5)  The  conventions  used  for  any  Implementation-generated  name  denoting  Implementation-  7 
dependent  components  (see  13.4). 

(6)  The  Interpretation  of  expressions  that  appear  In  address  clauses.  Including  those  for  Interrupts  a 
(see  13.5). 

(7)  Any  restriction  on  unchecked  conversions  (see  13.10.2).  9 

(8)  Any  Implementation-dependent  characteristics  of  the  Input-output  packages  (aee  14).  10 
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Indax 


An  entry  exists  in  this  Index  for  each  technical  term  or  phrase  that  Is  defined  in  the  reference 
manual.  The  term  or  phrase  Is  In  boldface  and  Is  followed  by  the  section  number  where  it  is 
defined,  also  in  boldface,  for  example; 

Record  aggregate  4.3.1 

References  to  other  sections  that  provide  additional  Information  are  shown  after  a  semicolon,  for 
example: 

Record  aggregate  4.3.1;  4.3 

References  to  other  related  entries  In  the  Index  follow  In  brackets,  and  a  line  that  is  Indented  below 
a  boldface  entry  gives  the  section  numbers  where  particular  uses  of  the  term  or  phrase  can  be 
found;  for  example: 

Record  aggregate  4.3.1;  4.3 
[see  also:  aggregate] 

as  a  basic  operation  3.3.3;  3.7.4 
In  a  code  statement  13.8 

I 

index  also  contains  entries  for  different  parts  of  a  phrase,  entries  that  correct  alternative  ter¬ 
minology,  and  entries  directing  the  reader  to  information  otherwise  hard  to  find,  for  example; 

Check 

[see;  suppress  pragma] 


Abandon  oltboratlon  or  oaaluatlon  (of  daolaratloni  or 

atatomanti) 

Iho!  axooptlon.  rilia  atatomanti 

Abnormal  taak  9.10;  9.9 
(ho  alio:  abort  itatainant) 

aa  raolplont  of  an  ontry  call  9.7.2.  9.7.3.  1 1.B:  9.B 
ralaing  taalrlng-arror  In  a  galling  taaK  1 1.S;  9.6 

Abort  itatomant  9.10 
[lae  alaoi  abnormal  taak,  atatomant,  taakl 
aa  a  ilmple  atatamont  6.1 

Aba  unary  oparotor  4.B.S;  4.6 
liao  alao:  highaat  praoadonoa  oparator) 

aa  an  operation  of  a  flxod  point  typa  3.B.10 
aa  an  operation  of  a  floating  point  typo  3. 6.6 
aa  an  operation  of  an  Intagar  typa  3.6.B 
In  a  factor  4.4 

Abaoluta  value  operation  4.B.6 

Aoeapt  alternative  (of  a  aalaotiva  wait)  9.7,1 
for  an  Interrupt  entry  13.6,1 

Aoaapt  Itatomant  9.8;  9,  0 

(lie  alio:  entry  oall  itatomant,  ilmpla  name  In...,  itata- 
mam,  taikl 

accepting  a  conditional  entry  oall  9.7.2 
accepting  a  timed  ontry  oall  9,7.3 
and  optimliatlon  with  axoaptlona  1 1.6 
aa  a  compound  itatamant  6.1 
aa  part  of  a  daclarativa  roglon  B.1 
entity  denoted  by  an  expanded  nami  4.1.3 


In  an  abnormal  task  9.10 
In  a  aalaot  altornutiva  9.7.1 
Including  an  exit  atatamant  5.7 
Including  a  goto  atatamant  5.9 
Including  a  return  atatamant  5.8 
ralaing  an  exception  11.5 
to  communicate  valuaa  9.11 

Acoaaa  to  external  fllei  14.2 

Aooaai  type  3.8;  3.3,  D 

(aae  alio;  allocator,  appropriate  for  a  typa,  claaa  of  typa, 
collection,  derived  typa  of  an  acoeai  typa,  null  aooeii 
value,  object  deilgnated  by...] 
aa  a  derived  typa  3.4 
aa  a  ganarlc  formal  typa  12. 1. 2,  12,3.5 
deallocation  |iae:  unohaokad_daallooatlon| 
deiignating  a  limited  typa  7.4,4 
dealgnating  a  taak  typa  datarmlning  talk 
dapendenoe  9.4 
formal  parameter  6.2 
name  In  a  controlled  pragma  4,8 
object  Initlalliatlon  3.2.1 
operation  3.8.2 
prefix  4,1 

value  dealgnating  an  object  3.2,  4.8 
value  dealgnating  an  object  with  diaorlmlnanti  5.2 
with  a  diacrimlnant  conatralnt  3.7.2 
with  an  Index  conatralnt  3.6.1 

Aoeaai  type  definition  3.8;  3.3.1,  12.1.2 
aa  a  generic  type  definition  12.1 

Aocnii..ohaok 

jaee:  conatralnt_orror,  aupproiaj 


1-1 


Abandon  •  Access^check 
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Accuracy 

of  B  numarlc  operation  4,6.7 

of  a  numeric  operation  of  a  univaraal  type  4.10 

Activation 

Isee:  task  acllvatloni 

Actual  object 

Isee:  generic  actual  ob|ect| 

Actual  parameter  6.4.1;  D;  (of  an  operator)  6.7;  lof  a  sub¬ 
program!  6.4:  6,2.  6,3 

Isee  also:  entry  call,  formal  parameter,  function  call, 
proceriure  call  statement,  subprogram  call] 

cbnractnristlcs  and  overload  resolution  6.6 

In  a  generic  Instantiation  lass:  generic  actual 

paramaterl 

of  an  array  type  3,6,1 

of  a  record  type  3.7,2 

of  a  task  type  9.2 

that  Is  an  array  aggregate  4.3.2 

that  Is  a  loop  parameter  6.5 

Actual  parameter  part  6.4 

In  a  conditional  entry  call  9.7.2 
In  an  entry  call  statement  9.6 
In  a  function  call  6,4 
In  B  procedure  call  atatsmsnt  6,4 
In  a  timed  entry  call  9.7.3 

Actual  part 

Isee:  actual  parameter  part,  generic  actual  part) 

Actual  subprogram 
Isee:  generic  actual  subprogram) 

Actual  type 

Isee:  generic  actual  type] 

Adding  operator 

Isee:  binary  adding  operator,  unary  adding  opsrstor) 

Addition  uparatlon  4.6.3 

accuracy  For  a  real  type  4.6.7 

ADDRESS  (predefined  attribute!  13.7.2;  3.6.R,  3.6.6, 
3.6.10,  3.6.2,  3,7,4,  3.8,2,  7.4.2,  9,9,  13.7,  A 
Isee  also:  address  clause,  systam.addressl 

ADDRESS  (predefined  type! 

Isee:  system. address) 

Address  clause  13.5;  13.1,  13.7 
Isee  also:  storage  address,  system.addreas) 
as  a  representation  clause  13.1 
for  un  entry  1 3.6.1 

AFT  (predefined  attribute!  for  a  fixed  point  type  3.6.10;  A 
Aft  field  of  text..lo  output  14.3.8,  14.3.10 
Aggregate  4.3.  D 

Isee  also:  array  aggregate,  overloading  of...,  record 
aggregate! 

as  a  basic  operation  3.3.3;  3,6.2,  3.7.4 

as  a  primary  4,4 

In  an  ollooator  4,8 

In  a  codo  statement  13.8 

In  an  enumeration  repreaentatlon  clausa  13.3 

In  a  qualified  axpraaalon  4.7 

must  not  be  the  argument  of  a  oonvartlon  4.6 

of  0  derived  type  3,4 

Alignment  clause  (In  a  record  repreeentatlon  clauiel  13.4 


All  in  a  selected  component  4.1.3 

Allocation  of  processing  resources  9.8 

Allocator  4.8;  3.8,  D 

Isee  also:  access  type,  collantlon,  exception  raised  during.  .. 
Initial  value,  object,  overloading  of.,.1 
as  n  basic  operation  3.3.3;  3.8.2 
as  a  primary  4.4 

creating  an  oblect  with  a  discriminant  4,8;  6.2 
for  an  array  type  3.6,1 
for  n  genorlc  formal  access  type  12.1.2 
for  a  private  type  7.4.1 
for  a  record  type  3.7.2 
for  a  task  typu  9.2;  9.3 
must  not  be  the  argument  of  a  conversion  4.6 
raising  storage^error  due  to  the  tlie  of  the  collec¬ 
tion  being  excaadad  11.1 
setting  a  task  value  9.2 
without  storage  check  11.7 

Allowed  1.6 

Alternoilve 

Isee:  accept  alternative,  case  atatamant  alternative,  closed 
alternative,  doloy  sliernatlve,  open  altarnative,  select  alter¬ 
native,  selective  wait,  terminate  altarnative) 

Ambiguity 
Isee:  overloading) 

Ampsriand 

(see;  catenation) 
character  2.1 
dniltnitsr  2.2 

Ancestor  llbrory  unit  10.2 

And  oporstor 

Isos;  logical  operator) 

And  thon  control  form 
Ises;  short  circuit  control  form) 

Anonymous  typo  3.3.1;  3.6,4,  3.6,7,  3.6.9,  3.6,  0.1 

anonymous  base  type  lass:  first  nsmsd  subtyps) 

ANSI  (amerlcen  national  standards  Institute)  2.1 

Apostrophe  charoctsr  2.1 

In  a  charactar  literal  2.6 

Apostrophe  delimiter  2.2 

In  an  attribute  4.1.4 

ol  a  quallflod  expression  4.7 

Apply  10.1.1 

Appropriate  for  a  type  4.1 

for  an  array  type  4.1.1,  4.1.2 
for  a  record  type  4,1,3 
for  a  task  type  4.1 .3 

Arbitrary  salaotlon  of  select  alternatives  9.7.1 

Argument  association  In  a  pragma  2.8 

Argument  identifier  In  a  pragma  2.8 

Arithmetic  operator  4.B 

jsse  also:  binary  adding  oparator,  exponentiating  operator, 
multiplying  operator,  pradefinad  operator,  unary  adding 
operator) 

as  an  operation  of  a  fixed  point  type  3,5.10 
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as  an  operation  of  a  floating  point  type  3.5.8 
as  an  operation  of  an  Integer  type  3.S.S 
rounding  for  real  types  13.7.3 

Array  aggregate  4.3.2:  4.3 

isee  also:  aggregate) 

as  a  basic  operation  3.3.3:  3.8.2 

In  an  enumeration  representation  clause  13.3 

Array  aaaignmant  5.2.1 

Array  bounda 

Isee:  bound  of  an  array! 

Array  component 

Isee;  array  type,  component,  Indexed  component) 

Array  type  3.6:  3.3.  D 

Isee  also:  component,  composite  type,  constrained  array, 
constrained...,  Index,  matching  components,  null  slice, 
slice,  unconstrained,..) 
as  a  full  type  7.4,1 
as  a  generic  formal  type  12.1.2 
as  a  generic  parameter  12.3.4 
as  the  type  of  a  formal  parameter  6.2 
conversion  4.6 

for  a  prefix  of  an  Indexed  component  4.1.1 

for  a  prefix  of  a  slice  4.1.2 

operation  3.6.2:  4.6.2,  4,6.3 

operation  on  an  array  of  boolean  components  4,6.1, 

4.6.6 

with  a  component  type  with  ditorlmlnanti  3.7.2 
with  a  limited  component  type  7.4.4 

Array  typa  definition  3.6:  3.3.1,  12.1.2,  12.3.4 
laee  also:  constrained  array  definition,  elaboration  of..,, 
unconstrained  array  definition) 

as  a  gynarlo  typa  definition  12.1 

Arrow  compound  dollmitor  2.2 

ASCII  (american  standard  coda  for  Information  Intarohingt) 

2.1 

ASCII  (predefinad  library  package)  3.8.2;  2,6,  C 
(see  also:  graphical  symbol) 

Aealgnmont  oompound  dellmittr  2.2:  6.2 
In  an  ob)ect  declaration  3.2.1 

Aetignment  oparation  5.2;  D 
Isee  also:  Initial  yalue,  llmltad  type] 

as  a  basic  operation  3,3,  3.3.3;  3.5.6,  3.6.8,  3.6.10, 

3.0.2,  3.7.4,  3.8.2,  7.4,2,  12,1,2 

for  a  generic  formal  type  12,1.2 

not  available  for  a  llmltad  type  7.4.4 

of  an  array  aggregate  4.3.2 

of  an  Initial  value  to  an  object  3.2.1 

to  an  array  variable  6.2.1;  5.2 

to  a  loop  parameter  5.5 

to  an  object  designated  by  an  aceets  value  3.8 

to  a  shared  variable  9.1 1 

Aeiignment  statement  8.2;  D 
[see  also:  statement] 

as  a  simple  statement  5.1 

Aetociatad  doclarativa  region  of  a  declaration  or  statement 

8.1 

AMooiatlon 

laee:  component  psaoclatlon,  discriminant  aisoolatlon, 
generic  aaaoclatlon,  parameter  aasoolatlon] 


Attribute  4.1.4;  0 

Iseo  also:  prsdafined  attribute,  representation  attribute! 
as  a  ba,elc  operation  3.3.3 
as  a  name  4.1 
as  a  primary  4,4 
in  a  length  clause  13,2 
in  a  static  expression  In  a  generic  unit  12,1 
of  an  access  type  3.5.8 
of  an  array  type  3,6.2 
of  a  derived  typo  3.4 
of  a  discrete  typo  or  subtype  3.S.S 
of  an  entry  9.9 
of  a  fixed  point  type  3.5.10 
of  a  floating  point  type  3.5.8 
of  an  ob|ect  of  a  task  type  9.9 
of  a  prlv.ita  typo  7,4.2;  3.7.4 
of  a  record  type  3.7,4 

of  a  static  subtype  In  a  static  expression  4.9 
of  a  task  type  9,9 
of  a  type  3.3 

of  a  type  as  a  generic  actual  function  12.3,6 
of  a  type  with  discriminants  3,7,4 
renamed  as  a  function  8,5 
that  Is  a  function  3.6.5 

Attribute  designator  4.1.4 


Bar 

laee;  vertical  barl 

BABE  {predefined  attribute)  3.3.3;  A 
for  an  access  type  3.8.2 
for  an  array  type  3.6,2 
for  a  discrete  type  3.5.5 
for  a  fixed  point  type  3.5.10 
for  a  floating  point  type  3.5.8 
for  a  private  type  7,4.2 
for  a  record  type  3,7.4 

Base  type  (of  a  subtype)  3.3 
as  a  static  aubtypa  4.9 
as  target  type  of  a  conversion  4.6 
due  to  elaboration  of  a  type  definition  3.3.1 
name  laee:  name  of  a  bate  typa] 
of  an  array  type  3.6;  4.1,2 
of  a  derived  aubtypa  3.4 

of  a  discriminant  determining  the  eat  of  cholcea  of  a 
variant  part  3.7.3 
of  a  fixed  point  type  3,5.9 
of  a  floating  point  typo  3.6.7 
of  a  formal  parameter  of  a  generic  formal  sub¬ 
program  12.1.3 
of  an  Intoger  type  3.5.4 
of  a  parent  subtype  3.4 
of  a  qualified  expression  4.7 
of  e  type  mark  3.3.2 

of  a  type  mark  In  a  membarahip  test  4.5.2 
of  the  discrete  range  In  a  loop  parameter  specifica¬ 
tion  6.5 

of  the  expression  In  a  cate  statement  5.4 

of  the  result  of  a  generic  formal  function  12.1.3 

of  the  result  subtype  of  a  function  6.B 

of  the  aubtypa  Indication  In  an  acoeaa  type  definition 

3.B 

of  the  type  in  the  declaration  of  a  generic  formal 
object  12.1.1 

of  the  typo  mark  In  a  renaming  deolaretion  8,5 

Baaed  literal  2.4.2;  14.3.7 

Isee  also:  colon  character,  sharp  character) 
as  a  numeric  literal  2.4 
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Basic  character  2.1 

laae  alio:  basic  graphic  character,  charsetsri 

Basic  character  set  2.1 

Is  sufficlant  for  a  program  text  2.10 

Basic  declaration  3.1 

as  a  basic  declarative  Item  3.9 

Basic  daclarativa  ham  3.0 

in  a  package  apacificatlon  7.1:  7.2 

Basic  graphic  oharaetar  2.1 

(see  also:  basic  character,  digit,  graphic  character,  space 
character,  special  character,  upper  case  latter] 

Basic  operation  3,3.3 
(see  also:  operation,  scope  of...,  visibility...] 
accuracy  for  a  real  typs  4.6.7 
Implicitly  declared  3.1,  3.3.3 
of  an  access  typs  3.8.2 
of  an  array  type  3.6.2 
of  a  derived  type  3.4 
of  a  disorsts  ^ps  3.6.5 
of  a  fixed  point  typs  3.6.10 
of  a  floating  point  type  3.6.8 
of  a  limited  type  7.4.4 
of  a  private  type  7.4.2 
of  a  record  type  3.7.4 
of  a  task  typs  9.9 
propagating  an  exosptlon  1 1 .6 
raising  an  exception  11.4.1 
that  Is  an  attribute  4.1.4 

Belong 

to  a  range  3.6 
to  a  subtype  3.3 

to  a  subtype  of  an  access  typo  3.8 

Binary  adding  operator  4.B;  4,6.3,  C 
[see  also:  arithmetic  operator,  overloading  of  an  operator] 
for  time  predefined  typs  9.6 
In  a  simple  expression  4.4 
overloaded  6.7 

Binary  operation  4.6 

Bit 

[see:  storage  bits] 

Blank  skipped  by  a  texUo  procedure  14.3.B 

Block  name  6,6 

declaration  6.1 
Implicitly  declared  3.1 

Block  statement  B.6:  D 

[see  also;  completed  block  statement,  statement] 
as  a  compound  statement  6.1 
as  a  declarative  region  8.1 
entity  denoted  by  an  expanded  nemo  4.1,3 
having  dependent  tasks  9.4 
Including  an  exception  handler  11.2;  11 
Including  an  Implloit  declaration  6.1 
including  a  suppress  pragma  11.7 
raising  an  exception  11.4.1,  11.4.2 

Body  3.0:  D 

[see  also:  declaration,  generic  body,  generic  package  body, 
generic  subprogram  body,  library  unit,  paokege  body, 
proper  body,  subprogram  body,  task  body] 
as  a  later  declarative  Item  3.9 


Body  stub  10.2;  D 

acting  aa  a  subprogram  declaration  6.3 
as  a  body  3.9 

as  a  portion  of  a  declarative  region  8.1 

must  be  In  the  same  declarative  region  as  the 

declaration  3,9,  7.1 

BOOLEAN  (predefined  type)  3.8.3;  C 
derived  3.4;  3.5.3 
result  of  a  condition  5.3 

result  of  an  explicitly  declared  equality  operator  6.7 

Boolean  expression 
[see:  condition,  expression] 

Boolean  operator 
[see:  logical  operator] 

Boolean  type  3.6.3 

[aee  also;  derived  type  of  e  boolean  type,  predefined  type] 
operation  3.5.5;  4.5.1,  4.5.2,  4.5.6 
operation  comparing  real  operands  4.6.7 

Bound 

[see;  error  bound,  first  attribute,  last  attribute] 

Bound  of  an  array  3.6,  3.6.1 
[see  also:  Index  range,  slice] 
aggregate  4.3.2 

Ignored  due  to  lndex...ohaok  auppraulon  1 1 .7 
Initialisation  In  an  allocator  oonatralna  the  allocated 
object  4.8 

that  Is  a  formal  parameter  6,2 

that  la  the  result  of  an  operation  4.5.1 , 4,6.3, 4,6.6 

Bound  of  a  range  3.8;  3.6.4 

of  a  discrete  range  In  a  sllca  4.1.2 

of  a  discrete  range  Is  of  unIvaraaUntagsr  type  3.6.1 

of  a  static  discrete  range  4.9 

Bound  of  a  scalar  type  3.6 

Bound  of  a  slice  4.1,2 

Box  compound  delimiter  2,2 

In  a  generic  parameter  declaration  12.1,  12.1.2, 
12,1,3;  12.3.3 

In  an  Index  subtype  definition  3.6 

Bracket 

[see:  label  bracket,  left  parenthesis,  parenthesised  expres¬ 
sion,  right  parenthesis,  string  bracket] 


CALENDAR  (predefined  library  packiga)  0.6;  C 

Call 

[see:  conditional  entry  call,  entry  call  statement,  function 
call,  procedure  call  statement,  subprogram  call,  timed 
entry  cell] 

CALLABLE  (predefined  attribute) 
for  an  abnormal  task  9.10 
for  e  task  object  9.9;  A 

Calling  conventions 
[see:  subprogram  declaration] 

of  a  subprogram  written  In  another  language  13.9 

CanRcletion  of  an  entry  call  statement  0.7.2,  0.7.3 
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Carriag*  ratum  (ormat  affactor  2.1 

Caaa  of  a  lattei 

[saa:  latter,  lower  caaa  latter,  upper  caaa  lattarl 

Caaa  ttatamant  6.4 
(aaa  alao:  statamanti 

at  a  compound  ttatamant  6.1 

Caaa  ttatamant  altamatlva  5.4 

Catenation  oparatlon  4.5.3 

for  an  arr.-y  type  3.0.2 

In  a  replacamarit  of  a  atring  lltaral  2.10 

Catenation  operator  4.5;  2.6.  3.6.3,  4.5.3,  C 
Isaa  alto:  predefined  operator] 

Charaetor  2.1 

(aaa  alto;  ampariand,  apottropha,  basic  character,  colon, 
divide,  dot,  equal,  exclamation  mark  character,  graphic 
character,  greater  than,  hyphen,  lata  than,  minus,  other 
apaclal  character,  paranthaala,  parcant,  period,  plus,  point 
character,  pound  starling,  quotation,  tamloolon,  sharp, 
apace,  special  character,  itar,  underline,  vertical  bar] 

In  a  laxIoBl  element  2,  2,2 
namat  of  charaotart  2.1 
replacamant  In  program  text  2.10 

CHARACTER  (predefined  type)  3.5.2;  C 

at  the  component  type  of  the  type  string  3,6,3 

Charaelar  literal  2.5;  3.6,2,  4.2 
[sea  also;  scope  of,,,,  tpooa  character  literal,  visibility  of...] 
at  a  basic  operation  3.3.3 
at  an  enumeration  litoral  3.6.1 
at  a  name  4.1 
at  a  selector  4.1.3 

declared  by  an  enumeration  litoral  apeolflcatlon  3.1 

In  a  static  expression  4,9 

In  homograph  daclaratlons  8.3 

mutt  be  visible  at  the  placa  of  a  string  literal  4.2 

Charaetor  typo  3.5.2;  2.6 
operation  3.6.6 

Cheek 

(tea;  tupprett  pragma] 

Cholee  3.7.3 

[tee  alto;  exception  choice] 

In  an  aggregate  4.3 

In  an  array  aggragate  4.3.2 

In  a  cate  statement  alternative  6.4 

'n  a  component  aaanolatlon  4,3,  4.3.1,  4.3.2 

In  a  record  aggregate  4.3.1 

In  a  variant  of  a  record  type  definition  3.7,3 

CIroularlty  In  dependeneee  between  compilation  unite  10.5 

Claet  of  typo  3.3;  12.1.2 

[aea  alto:  auoett  typo,  oompoalte  typo,  private  typo,  scalar 
type,  task  type] 

of  a  derived  type  3.4 

Clause 

[tee;  addresi  clausa,  alignmant  olauaa,  component  olauae, 
context  clause,  enumeration  rapretantatlon  olauaa,  length 
clause,  record  rapreaentatlon  olauae,  ropraeontatlon 
clauae,  uae  clause,  with  clause] 

CLOCK  (predefined  function)  0.0 
]tee  alto;  tystem.tlck] 


CLOSE  (Input-output  procedure) 

In  an  Inatance  of  dIrectJo  14.2.1;  14.2.6 
In  an  Instance  of  tequentlaIJo  14.2.1,  14.2.3 
In  text_lo  14.2.1;  14.3.10 

Cloted  alternative  (of  a  selective  wait)  B.7.1;  11.1 
[tee  alto;  alternative] 

Cloted  file  14.1 

Code  ttstement  13.8 
[tea  also:  ttatamant] 

at  a  simple  ttatamant  6.1 

COL  |taxt_lo  function)  14.3.4;  14.3.10 
raising  an  exception  14.4 

Colleotlon  lot  an  aooata  type)  3.8;  4.8,  D 
[tea  alto;  accata  type,  allocator,  length  olauae,  ob]eot, 
storage  units  allocated,  atoraga.jalie  attribute) 
of  a  derived  aooaas  type  1 3,2;  3.4 

Colon  oharaetar  2.1 
(tee  alto:  bated  literal] 

replacing  sharp  character  2.10 

Colon  dellmltar  2.2 

Column  14.3.4 

Comma 

character  2,1 
delimiter  2.2 

Comment  2.7;  2.2 

In  a  conforming  construct  6.3,1 

Communication 

between  tasks  (tee;  accept  ttatamant,  entry, 
rendezvout) 

of  valuai  between  tatkt  9.6,  9.1 1 

Comparlton 

[see:  relational  operator] 

Compatibility  (of  oonttralntt)  3J.2 
[aoe  alto;  constraint] 

failure  not  causing  oonitralnt.error  1 1 .7 

of  a  discrete  range  with  an  Index  subtype  3.6.1 

of  discriminant  oonttralntt  3.7.2 

of  fixed  point  oonttralntt  3.6.9 

of  floating  point  conatrslnta  3.6.7 

of  Index  oonttralntt  3.6.1 

of  range  oonttralntt  3.6 

Compilation  10.1;  10,  10,4 

at  a  tequanct  of  lexical  elements  2 
Including  an  Inline  pragma  6,3.2 

Compilation  order 
[aee;  order  of  compilation] 

Compilation  unit  10.1;  10,  10.4,  D 
[aee  alto:  library  unit,  lacondary  unit] 

compiled  after  library  unita  named  In  Its  context 
clause  10.3 

followad  by  an  Inline  pragma  6.3.2 
with  a  context  olauta  10.1.1 
with  a  ute  clause  8.4 

Compile  time  evaluation  of  expratalona  10.5;  4.9 

Compiler  10.4 


]-6 


Carriage  return  •  Compiler 


ANSI/MIL-STD-1 81 5A  Ada  Reference  Manuel 


Compiler  llftine 

(see:  list  pragma,  page  pragma] 

Compilar  optimisation 
Isae:  optimisation,  optimise  pragma] 

Complatad  block  itatamant  9.4 

Complatad  subprogram  9.4 

Complatad  task  9.4:  9.9 
|sea  also:  taBklng_arror,  terminated  talk] 

as  recipient  of  an  entry  call  9.S,  9.7.2,  9.7.3 

becoming  abnormal  9.10 

completion  during  activation  9.3 

due  to  an  exception  In  the  task  body  1 1 .4.1 , 1 1 .4.2 

Component  (of  a  composlta  type]  3.3;  3.S,  3.7,  0 
(see  also:  component  assooletlon,  component  clause, 
component  list,  composite  type,  default  exprsulon, 
dependence  on  a  diecrimlnant,  discriminant.  Indexed  com¬ 
ponent,  object,  record  type,  aalaotad  component,  subcom¬ 
ponent] 

combined  by  aggregate  4.3 

depending  on  a  discriminant  3.7.1;  11.1 

name  starting  with  a  prefix  4.1 

of  an  array  3.6  [aas  also:  array  type] 

of  a  constant  3.2.1 

of  a  derived  type  3.4 

of  an  object  3.2 

of  a  private  type  7,4.2 

of  a  record  3.7  [sea  also:  record  type] 

of  a  variable  3.2.1 

simple  name  as  a  choice  3.7.3 

subtype  3.7 

subtype  Itself  a  composite  type  3.6.1,  3.7.2 

that  la  a  task  object  9.3 

whose  type  la  a  limited  type  7,4.4 

Component  association  4.3 
In  an  aggragata  4.3 

Including  an  expression  that  la  an  array  aggregate 
4.3.2 

named  component  association  4.3 

named  component  association  for  selective  visibility 

0.3 

positional  component  association  4.3 

Component  clause  (In  a  record  repraaentatlon  clause)  13,4 

Component  deelaratlon  3.7 
[see  also:  declaration,  record  type  definition] 
as  part  of  a  basic  declaration  3.1 
having  an  extended  scope  0.2 
In  a  component  list  3.7 
of  an  array  object  3.6.1  , 
of  a  record  object  3.7,2 
visibility  0.3 

Component  Hat  3.7 

In  a  record  type  definition  3.7 
In  a  variant  ,3.7.3 

Component  subtype  definition  3.7 
[see  also:  dependence  on  a  discriminant] 

In  a  component  declaration  3,7 

Component  typo 

catenation  with  an  array  type  4.5.3 

object  Initialization  [aaa:  Initial  value! 

of  an  expresalon  In  an  array  aggregate  4.3.2 

of  an  expression  In  a  record  aggragata  4.3.1 

of  a  generic  formal  array  type  12.3.4 

operation  determining  a  composite  type  operation 

4.5.1,  4.6,2 


Composite  type  3.3:  3.6,  3.7,  0 
(see  also:  array  type,  class  of  type,  component,  discrimi¬ 
nant,  record  type,  subcomponantj 

Including  a  limited  subcomponent  7.4.4 

Including  a  task  subcomponent  9.2 

object  Initialization  3.2.1  [see  also:  Initial  value] 

of  an  aggregate  4.3 

with  a  private  type  component  7,4.2 

Compound  delimiter  2,2 

Isee  also:  arrow,  assignment,  box,  delimiter,  double  dot, 
double  star,  exponentiation,  greater  thari  or  equal,  In- 
equallty.  left  label  bracket,  less  than  or  equal,  right  la¬ 
bel  bracket] 

names  of  delimiters  2.2 

Compound  statement  5.1 
Isee  also:  statement! 

Including  the  destination  of  a  goto  statement  6,9 

Conoatenatlon 
Isee:  catenation] 

Condition  6.3 
(see  also:  expression] 

determining  an  open  alternative  of  a  sslaotiva  wait 
9,7.1 

In  an  exit  statement  5,7 

In  an  If  statement  5.3 

in  a  while  Iteration  aohome  5.6 

Conditional  compilation  10.6 

Conditional  entry  call  9,7.2;  9.7 
and  renamed  entries  8.5 
aubject  to  an  address  clauas  13.6.1 

Conforming  6.3.1 

discriminant  parts  6.3.1;  3,8.1,  7,4,1 
formal  parta  6.3,1 

fonrial  parta  In  entry  declarations  and  accept  atata- 
mants  9.6 

subprogram  apaoifloatlons  6.3.1;  5.3 
subprogram  apacifloatlona  In  body  stub  and  subunit 
10.2 

type  marks  6,3,1;  7.4,3 

Conjunction 
Isee:  logical  operator] 

Constant  3.2.1;  D 

Isee  also:  deferred  constant,  loop  paramstsr,  object] 
access  object  3.8 
formal  parameter  6.2 
generic  formal  object  12.1.1,  12,3 
In  a  static  expresalon  4.9 
renamed  8.5 
that  Is  a  slice  4.1.2 

Constant  declaration  3.2.1 
Isee  also:  deferred  constant  declaration] 
as  a  full  deelaratlon  7,4.3 
with  an  array  type  3.8.1 
with  a  record  type  3.7.2 

CONSTRAINED  (predefined  attribute) 

for  an  object  of  a  type  with  discriminants  3.7.4;  A 
for  a  private  type  7.4,2,  A 

Constrained  array  definition  3.6 

In  an  object  declaration  3.2,  3.2.1 

Constrained  array  type  3.6 

isee  also:  array  type,  constraint] 


Compiler  listing  •  Constrained  array  type 
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Conilrained  lubtype  3.3;  3,2.1, 3.6,  3.6,1, 3.7,  3.7.2,  6.4.1, 
12.3.4 

Isae  also:  conitralnt,  lubtypa,  typ*.  unoonitrilnad  lub- 
typel 

due  to  elaboration  of  a  type  definition  3.3. 1 
due  to  the  elaboration  of  a  derived  type  definition 
3.4 

object  declaratlona  3.2.1 

of  a  subtype  Indication  In  an  allocator  4.8 

Constraint  Ion  an  object  of  a  type)  3.3,  3.3.2;  C 
Isoe  also;  accuracy  constraint,  compatibility,  conatralnad 
subtype,  dependence  on  a  discriminant,  discriminant  con¬ 
straint,  elaboration  of...,  fixed  point  constraint,  floating 
point  constraint.  Index  constraint,  range  constraint,  satisfy, 
subtype,  unconstrained  subtype] 

explicitly  specified  by  use  of  a  qualification  4.7 

In  a  subtype  Indication  In  an  allocator  4.8 

not  conaldersd  In  overload  resolution  8.7 

on  a  derived  subtype  3.4 

on  a  formal  paiamstsr  6.2 

on  a  formal  parameter  of  a  generic  formal  aub- 

program  12.1,3 

on  a  generic  actual  parameter  12.3.1 
on  a  ganarlc  formal  object  12.1.1 
on  a  ganeric  formal  parameter  12.1;  12.3.1 
on  an  object  designated  by  an  aocssa  value  3.8 
on  a  renamed  object  8.S 

on  a  subcomponent  subject  to  a  component  clause 
must  be  static  13.4 

on  a  subtype  of  a  generic  formal  type  12.1.2 
on  a  type  mark  In  a  generic  parameter  declaration 
12.3.1 

on  a  variable  3.2.1,  3.3,  3.6 

on  the  result  of  a  generic  formal  function  12.1.3 

CONSTRAINT_ERROR  (predefined  exception)  11.1 
(see  also;  suppress  pragma) 

raised  by  an  occept  statement  9.B 

raised  by  an  actual  parameter  not  In  the  subtype  of 

the  formal  parameter  6.4.1 

raised  by  an  allocator  4.8 

raised  by  an  assignment  6.2;  3.6.4 

raised  by  an  attribute  3.6.6 

raised  by  a  component  of  an  array  aggregato  4.3.2 

raised  by  a  component  of  a  record  aggregate  4.3.1 

raised  by  an  entry  call  statement  6.6 

raised  by  a  formal  parameter  not  In  the  subtype  of 

the  actual  parameter  6.4.1 

raised  by  an  Index  value  out  of  bounds  4. 1 . 1 , 4. 1 .2 

raised  by  a  logical  operation  on  arrays  of  different 

lengths  4.6.1 

raised  by  a  name  with  a  prefix  evaluated  to  a  null 

access  value  4.1 

rolsed  by  a  qualification  4.7 

raised  by  a  result  of  a  conversion  4.6 

raised  by  a  return  statement  6.6 

raised  by  Incompatible  conatrelnta  3.3.2 

raised  by  Integer  exponentiation  with  e  negative 

exponent  4.5.6 

raised  by  matching  failure  In  en  array  assignment 

B.2,1 

raised  by  naming  of  a  variant  not  present  In  e  record 
4,1,3 

raised  by  the  elaboration  of  a  generic  Instantiation 
12.3.1,  12.3.2,  12.3.4,  12.3.6 
raised  by  the  Initialisation  of  an  object  3.2.1 
raised  by  the  result  of  a  catenation  4,6.3 

Context  clause  10  1.1;  D 
Isea  also:  use  clause,  with  clause) 

determining  order  of  elaboration  of  compilation 
units  10.5 

In  a  compilation  unit  10,1 


including  a  use  clause  6.4 
Inserted  by  the  environment  10,4 
of  a  subunit  10.2 

Context  of  overload  resolution  8.7 
(see  also:  overloading) 

Control  form 

Isea:  short  circuit  control  form) 

CONTROLLED  {predefined  pragma)  4.8;  8 
Conversion  operation  4.6 

Isoe  also:  explicit  conversion.  Implicit  conversion,  numeric 
type,  subtype  conversion,  type  conversion,  unchecked 
conversion] 

applied  to  an  undefined  value  3.2.1 

as  a  basic  ooeratlon  3.3.3;  3.3,  3.6.5,  3.6.8,  3.6.10, 

3.6.2,  3.7.4,  3.8,2,  7,4,2 

between  array  types  4.6 

between  numeric  typaa  3.3.3,  3.6.6,  4.6 

from  unIvarsaLfIxad  type  4.6.6 

in  a  static  axpraaalon  4.9 

of  a  universal  type  axpreaslon  6.2 

of  the  bounds  of  a  loop  parameter  6.6 

to  a  derived  type  3.4 

to  a  real  type  4.5.7 

Convertible  universal  operand  4.0 

Copy  (parameter  passing)  6,2 

COUNT  (predefined  attribute)  for  an  entry  6.6;  A 

COUNT  (predefined  Integer  type)  14di,  14ul.B,  14.3.10; 
14.2.4,  14.3,  14.3.3,  14.3.4,  14.4 

CREATE  (Input-output  procedure) 

in  an  Instance  of  dlrectJo  14.2.1;  14,2.6 
In  an  Instence  of  aequentlaUo  14.2.1;  14.2.3 
In  taxUo  14.2.1,  14,3.1;  14.3.10 
raising  an  exception  14,4 

Currenteolumn  number  14.3;  14.3.1, 14.3,4,14.3.6,  14.3.8 

Current  index  of  a  direut  access  file  14.2.  14.2.1;  14.2.4 

Current  line  number  14.3;  14,3.1,  14,3.4,  14.3.6 

Current  mode  of  s  file  14.1,  14.2.1;  14.2.2,  14.2.4,  14.3, 
14.3.6,  14.4 

Current  page  number  14.3;  14.3.1,  14,3.4,  14.3.5 
Current  site  of  a  direct  socsss  fils  14.2 
CURRENTJNPUT  (texUo  function)  14.3.2;  14.3.10 
CURRENT_OUTPUT  ItextJo  function)  14.3.2;  14.3.10 


DATA_ERROR  Ciiput-output  exception)  14.4;  14,2.2, 
14.2.3.  14.2.4.  14.2.6,  14.3.5,  14.3.7,  14.3.6,  14.3.9, 
14,3.10,  14.5 

Date 

(see;  day,  month,  time,  year) 

DAY  (predefined  function)  9.0 

Deed  code  elimination 

Isee;  conditional  compilation) 
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Dtallocatlon 

iMa:  aocau  tvp«,  unchackad-daallooatlon] 

Dattimal  litaral  2.4.1;  14.3.7,  14.3.8 
as  a  numsrio  litaral  2,4 

Daalmal  numbar  (In  tsxUol  14J.7 

Dacimal  (Mint 

|aaa:  fixad  point,  floating  point,  point  charaotar) 

Oaalaration  3.1;  D 

|aaa  also:  basic  daclaratlon,  block  nams  daolaratlon,  body, 
componant  daclaratlon,  oonatant  daolaratlon,  dafarrad 
constant  daolaratlon,  danota,  discriminant  apaolfloatlon, 
entry  daolaratlon,  anumaratlon  litaral  apaolfloatlon,  axoap- 
tion  daolaratlon,  axoaptlon  ralaad  during...,  ganarie 
daolaratlon,  gsnarlo  formal  part,  ganario  Instantiation, 
ganarlc  paramatar  daclaratlon,  ganario  apaolfloatlon, 
hiding.  Implicit  daolaratlon,  Inoompists  typo  daolaratlon, 
labal  daolaratlon,  local  declaration,  loop  name  daolaratlon, 
loop  paramatar  apaolfloatlon,  numbar  daolaratlon,  ob|aet 
daclaratlon,  paokaga  daolaratlon,  paekaga  spaolfleation, 
paramatar  apaolfloatlon,  private  ty^  daolaratlon,  renam* 
Ing  daolaratlon,  rapraaantatlon  olauaa,  aoopa  of..., 
apaolfloatlon,  subprogram  daolaratlon,  aubprogram 
apaolftcatlun,  subtypa  daolaratlon,  talk  daolaratlon,  tiak 
apaolfloatlon,  typo  daolaratlon,  vlalblllty) 
aa  an  ovarload  raaolutlon  oontaxt  8.7 
dstsrmlnsd  by  visibility  from  an  Idantiflar  8.3 
mads  diraotly  vlalbis  by  a  use  olauaa  8.4 
of  an  anumaratlon  litaral  3.8.1 
of  a  formal  paramatar  0.1 
of  a  loop  paramatar  B.B 
ovsrioadod  8.8 

raising  an  axoaptlon  11.4.2;  11.4 

to  which  a  raprosantatlon  olauaa  appllai  13.1 

Daolaratlvo  Item  3.9 

(saa  Clio  I  basic  daolaratlva  Itsm,  later  daolaratlvo  Itaml 
In  a  oodo  proosdura  body  13.8 
In  a  daolaratlva  part  3,9;  8.3.2 
In  a  paokaga  apaolfloatlon  8.3.2 
In  a  visible  part  7.4 
that  Is  a  use  olauaa  8.4 

Daolaratlva  part  3.9;  D 
Isas  also:  alaboratlon  of...| 

In  a  block  ststsmant  8.0 
In  a  paekaga  body  7.1;  7.3 
In  a  subprogram  body  6.3 
In  a  task  body  8.1;  9.3 
Including  a  ganario  daolaratlon  12.2 
Including  an  Inline  pragma  8.3.2 
Including  an  Intarfsos  pragma  13.9 
Including  a  rapraaantatlon  olauaa  13.1 
Including  a  supprasa  pragma  1 1 .7 
Includin')  a  task  daolaratlon  9.3 
with  Implicit  dsolaratlona  8.1 

Oaelaratiwa  region  8.1;  8.2,  8.4 
lass  also:  scops  of... I 

datarmlning  ths  visibility  of  a  daolaratlon  8.3 
(ormsd  by  ths  pradefinsd  paokaga  standard  8.0 
In  which  a  daolaratlon  la  hidden  8.3 
Including  a  full  type  definition  7.4.2 
Including  a  subprogrant  daolaratlon  0.3 

Daolsrad  Immadlstaly  wHhln 

lass:  occur  Immadlstaly  within) 

Default  detsrmlnatlon  of  a  rsprsasntatlon  for  an  entity  13.1 


OotauH  expression 

laaa:  dsfsult  Initial  valus,  dsfault  Initialisation,  discriminant 
spacificatlon,  formal  paramatar,  ganarlc  formal  object. 
Initial  value) 

cannot  Include  s  forcing  ooourranoa  13.1 

for  a  componant  3.3;  7.4.3,  7.4.4 

for  a  component  of  a  derived  type  ob|aot  3.4 

for  a  discriminant  3.7.1;  3.2.1,  3.7.2,  12.3.2 

for  a  formal  paramatar  0.1,  6.4.2;  0.4,  0.7,  7.4.3 

for  a  formal  paramatar  of  a  ganario  formal  aub* 

program  12.1;  7.4.3 

for  a  formal  paramatar  of  a  ranamad  subprogram  or 
entry  6.6 

for  a  ganarlc  formal  object  12.1,  12.1.1;  12.3 
fur  the  discriminants  of  an  allocated  objact  4.8 
In  a  component  daolaratlon  3.7 
In  a  discriminant  apaolfloatlon  3.7.1 
Including  the  nams  of  a  privata  type  7.4.1 

Default  flla  14.3.2;  14.3 

Default  ganarie  formal  subprogram  12.1;  12.1.3,  12.3.6 

Default  Initial  value  (of  a  type)  3.3 
laaa  also;  dsfault  axprssslon.  Initial  valus) 

for  an  aocsss  type  objaot  3.8;  3.2.1  (saa  also;  null 
aoosss  value) 

for  a  record  type  objeot  3.7;  3.2.1 

Default  Inltlalliatlon  (for  an  objaot)  3.2.1,  3.3 
(saa  also;  default  axpraaslon,  default  Initial  valus.  Initial 
value) 

Default  mods  (of  a  flla)  14.2.1;  14.2.3,  14.2.8,  14.3.10 

Datault.aft  (field  length) 

of  fIxacLIo  or  floatJo  14.3.8;  14.3.10 

OafauItJMta 

of  IntagarJo  14.3.7;  14.3.10 

Dafsult-exp  (field  length) 

or  fixad-lo  or  flost-lo  14.3.8:  14.3.10 

Dafault.toro  (field  length) 

of  fixad-lo  or  floatJo  14.3.8;  14.3.10 

DafsulUsottlng  (letter  oaaa) 

of  enumeration  Jo  14.3.9;  14,3.10 

Dafsult-wldth  (field  length) 

of  enumeratlonjo  14.3.9;  14.3.10 
of  InlagerJo  14.3.7;  14.3.10 

Dafarrad  constant  7.4.3 

of  a  llmitsd  typo  7.4.4 

Dafanad  constant  declaration  7.4;  7.4.3 
(saa  alto:  privata  part  (of  a  package),  visible  part  (of  a 
psekags)) 

at  a  basic  declaration  3.1 
Is  not  a  forcing  ocourrsnea  13.1 

Definition 

Isas:  acceas  type  definition,  array  typs  definition,  oompo- 
nant  subtypn  definition,  const:  alnad  array  definition, 
derived  typs  definition,  anuninratlon  type  definition, 
generic  type  definition.  Index  subtype  definition.  Integer 
typs  dsfinitlon,  real  typs  dafinitlon,  rsoord  typo  dsftnitlon, 
type  definition,  unconstrained  array  definition) 

Delay  aharnativa  (of  a  salaotivs  wait)  9.7.1 


Deallocation  •  Delay  alternative 
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Delay  axpratalon  9.9;  9.7.1 
Isee  alto:  duration) 

In  a  timad  entry  call  9.7.3 

Delay  ataiemeni  9.9 
laee  alao:  atatamant  talk] 

ai  a  aimpla  atatamant  9.1 
In  an  abnormal  taak  9.10 
In  a  aelact  altamativa  9.7.1 
In  a  timed  entry  call  9.7.3 

DELETE  (Input-output  procedure) 

In  an  Inatanca  of  diract-lo  14.2.1;  14.2. B 
In  an  Inatance  of  aaquantlaIJo  14.2.1.  14.2.3 
In  texUo  14.2,1;  14.3.10 

Oallmitat  2.2 

(tee  alto:  amperaand.  apoatropha,  arrow,  aatlonmant, 
colon,  compound  delimiter,  divide,  dot,  double  dot,  equal, 
exclamation  mark,  exponentiation,  graatar  than  or  equal, 
greater  than.  Inequality,  label  bracket,  lata  than  or  aqual, 
laaa  than,  mlnut,  paranthaalt,  period,  plua,  point, 
aamlcolon,  atar,  vertical  bar) 

Delta  (of  a  fixed  point  type)  3,9.9 
laaa  alto;  fixed  point  type) 
of  unIvaraaLfIxed  4,8.8 

DELTA  (predaflnad  attribute)  3.8,10:  4,1.4,  A 

Derwta  an  anilly  3.1,  4.1;  D 
(tea  alto:  declaration,  entity,  name) 

Depandanea  between  oompEaKen  unite  10J;  10.8 
laee  alto:  with  cleutal 

clrcularhy  Implying  Illegality  10,0 

Depandanea  on  a  dlacrlmlnant  3.7.1 ;  3.7 
[tee  alto:  component  tubtype  definition,  oomponant,  oon- 
itralnt,  dlacrlmlnant  conatralnt,  dlacrlmlnant.  Index  con* 
attaint,  tuboomponant,  tubtype  definition,  yarlant  part] 
affecting  renaming  8.8 

by  a  aubcomponant  that  la  an  aotual  parameter  9.2 

effect  on  compatibility  3.7.2 

effect  on  matching  of  oomponentt  4.8.2 

for  an  aaalgnmant  8.2 


Dependant  taak  9.4 

delaying  exception  propagation  11.4.1 
of  an  abnormal  taak  9.10 

Derivable  aubprogram  3.4 

prohibiting  repraaentatlon  clauaet  13.1 

Derived  aubprogram  3.4 

at  an  operation  3.3.3 
Implicitly  declared  3.3.3 

Derived  type  3.4;  D 
laee  alto:  parent  type) 

converalon  to  or  from  a  parent  type  or  related  t<pa 
4.9 

of  an  aeceaa  type  [tea:  aocaaa  type,  oollectlonl 
of  an  acceat  type  dealgnating  a  taak  type  determin¬ 
ing  taak  dependence  9.4 
of  a  boolean  type  3.4,  3.6,3 
of  a  limited  type  7.4,4 
of  a  private  type  7.4.1 

aublect  to  a  repraaentatlon  olauae  13.1,  13.9 

Derived  type  definition  3.4;  3.3.1 
laee  alto:  elaboration  of...| 


Detignate  3.8,  9.1 ;  D 

laee  alto:  accasi  type,  allocator,  object  dealgnated  by..., 
taak  dealgnated  by..,,  taak  object  dealgnated  by  ...I 

Dealgnated  tubtype  (of  an  acceat  type)  3.8 

Dealgnated  type  (of  an  acceat  type)  3.8 

Daelgnaior  (of  a  function)  8.1 
laee  alto:  attribute  dealgnator.  operator,  overloading  of ...) 

In  a  function  declaration  4,6 

In  a  aubprogram  body  9.3 

In  a  aubprogram  apnclflcatlon  6.1;  9.3 

of  a  generic  formcl  subprogram  12.3.9:  12.1,  12.1.3 

of  a  library  unit  10.1 
overloadad  9,0 

DEVICE^ERROR  (Input-output  exception)  14.4;  14.2.3, 
14,2.6,  14.3.10.  14.6 

Dkglt  2.1 

laee  alao:  batic  graphic  character,  extended  digit,  letter  or 
digit) 

In  a  baaed  literal  2.4.2 
In  a  decimal  literal  2.4.1 
In  an  Identifier  2.3 

DMtt  (of  a  floating  point  type)  3.8.7 
(Me  elao:  floating  point  type) 

DtOIT8  (predefined  attribute)  3.8.8;  4.1.4,  A 

DImenaIcnallty  of  an  array  3.9 

DIraet  aeceaa  file  14.2:  14.1,  14,2.1 

Diroci  Input-output  14.2.4;  14.2.1 

DIraet  visibility  8.3;  D 

laee  alao;  basic  operation,  oharactar  literal,  operation, 
operator  symbol,  aaleoted  component,  vlalblllty) 
due  to  a  use  clausa  8.4 
of  a  library  unit  due  to  a  with  clause  10.1.  i 
within  a  subunit  10.2 

DIMCTJO  (predefined  Input-output  generic  package)  14.2, 
14.2.4;  14.  14.1.  14.2.6,  C 
axcaptlona  14.4;  14,5 
specification  14,2.8 

Diaerete  range  3.9,  3,8.1 
laee  elao:  range,  static  diaerete  range] 
as  a  choice  3.7.3 
as  a  choice  In  an  aggregate  4.3 
for  a  loop  parameter  5.8 
In  a  choice  In  a  case  statement  6.4 
In  «  generic  formal  array  type  dsolsratlon  12.1.2; 
12.3.4 

In  an  Index  conatralnt  3.9 

In  a  loop  parameter  apaolfloatlon  6,6 

In  a  allue  4.1.2 

of  entry  Indices  In  an  entry  declaration  9.8 
Diseiete  type  3.8;  D 

(sea  alao:  basic  operation  of...,  enumaratlon  type.  Index, 
Integer  type.  Iteration  acheme,  operation  of...,  scalar  type] 
as  a  generic  aotual  parameter  12.3.3 
as  a  generic  formal  type  12.1.2 
sxpreaalon  In  a  case  atatamant  8.4 
of  a  discriminant  3.7.1 
of  a  loop  parameter  6.6 
of  Index  valuea  of  an  array  3.6 
operation  .3.6.6;  4.6.2 
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Dlterimlnant  3.3,  3.7.1;  3.7.  D 
liie  alto:  component  clause,  component,  composite  type, 
default  expratalon,  dependsnca  on.,.,  record  type,  selected 
component,  subcomponent] 

In  a  record  aggregate  4.3,1 

Initialization  In  an  allocator  eonitralna  the  allocated 

object  4.8 

of  a  derived  type  3.4 
of  a  formal  parar.teter  B.2 
of  a  gensric  actual  type  12.3.2 
of  a  generic  formal  type  12.3,  12.3.2 
of  an  Implicitly  Initialized  object  3.2.1 
of  an  object  dealgnated  by  an  aecsaa  value  3.7.2: 
6.2 

of  a  private  type  7.4.2;  3.3 

of  a  variant  part  must  not  be  of  a  generic  formal 

type  3.7,3 

simple  name  in  a  variant  part  3.7.3 
aubeomponant  of  an  object  3.2.1 
with  a  default  axpraselon  3.7.1;  3.2.1 

Dlecrlmlnant  aaeoolatlon  3.7.2 

In  a  discriminant  conetralnt  3.7.2 
named  dlecrlmlnant  aaeoclatlon  3,7.2 
named  dlacrlminant  association  for  aelaotlva 
visibility  8.3 

positional  discriminant  association  3.7.2 

DIeerlmlnant  eonstralnt  3.7.2;  3.3.2,  D 
(see  also:  dapandsnoe  on  a  dlaorlmlnantj 

Ignored  due  to  aoaaea..ohaok  suppraselon  1 1.7 
In  an  allocator  4.6 
on  an  accaaa  typa  3.0 
violatad  11,1 

DIeerlmlnant  part  3.7.1;  3.7 
jsse  alao:  elaboration  of,..| 

absent  from  a  raoord  type  declaration  3.7 

as  a  portion  of  a  declarative  region  8.1 

conforming  to  another  3.8.1,  6.3.1.  7.4,1 

In  e  generic  formal  type  declaration  3.7.1;  12.1 

In  an  Incomplete  type  declaration  3.8.1 

In  a  private  type  declaration  7.4,  7.4.1 

In  a  type  declaration  3.3,  3.3.1 

must  not  Include  a  pragma  2.8 

of  a  full  typa  declaration  Is  not  elaborated  3.3.1 

DIeerlmlnant  apeolflnatlon  3.7.1 
jaee  alao;  default  axprssalonj 

aa  part  of  a  basic  declaration  3.1 
declaring  a  component  3.7 
having  an  extended  scope  8.2 
In  a  discriminant  part  3. 7.1 
visibility  6.3 

Dlserlmlnanl-oheoli 
[see  constralnuerror,  suppress] 

Disjunction 
Isee:  logical  operator] 

Divide 

character  2.1 
delimiter  2.2 

Division  operation  4.B.B 

accuracy  for  a  real  type  4.6.7 

Division  operator 

laee:  multiplying  operator] 

Dlvlalon_cheok 

Isee;  numarlc_error,  suppress] 


Isee:  double  dot| 

character  2. 1  [see  also:  double  dot,  point  character! 
delimiter  2.2 

delimiter  of  a  selected  component  8.3:  4.1.3 

Double  dot  compound  delimiter  2.2 

Double  hyphen  starting  a  comment  2.7 

Double  star  compound  delimiter  2,2 
Isee  also:  exponentiation  compound  dallmiter] 

DURATION  (predefined  type)  8.6;  C 
Isee  also:  delay  expression,  fixed  point  type! 
of  alternative  delay  statsmenta  9.7,1 


EHaot 

(see;  elaboration  has  no  other  effect] 

EUBORATE  (predefined  pragma)  10.8;  8 
Elaborated  3.8 

Elaboration  3.8;  3.1,  3.3,  10.1,  D 
Isee  also;  exception  raised  during,..,  order  of  elaboration] 
optimized  10.6 

Elaboration  has  no  other  atfeet  3.1 
Elaboration  of 

an  aocaae  type  definition  3,8 
an  array  type  definition  3.6 
a  body  stub  10.2 
a  component  doclaratlon  3.7 
a  component  subtype  definition  3.7 
a  constrained  array  definition  3.8 
a  declaration  3.1 
a  daclaratlva  Item  3.9 
a  daclaratlva  part  3.9 
a  deferred  constant  declaration  7.4.3 
a  derived  type  definition  3.4 
a  discriminant  constraint  3.7,2 
a  discriminant  part  3.7.1 
a  discriminant  specification  3,7.1 
an  entry  declaration  9.6 
an  anumarstlon  literal  epaclflcatlon  3.6.1 
an  enumeration  type  definition  3.6.1 
a  fixed  point  type  declaration  3.6.9 
a  floating  point  type  declaration  3.6.7 
a  formal  part  0.1 
0  full  type  declaration  3.3.1 
a  generic  body  12.2 
a  generic  declaration  12.1 
a  generic  Instantiation  12.3 
an  incomplete  typa  declaration  3.6.1 
an  Index  constraint  3.6.1 
an  Integer  type  definition  3.6.4 
a  library  unit  10.6 
a  loop  parameter  apaolflcatlon  6.6 
an  object  declaration  3.2.1 
a  package  body  7,3 
a  package  declaration  7.2 
a  parameter  specification  6.1 
a  private  type  declaration  7.4.1 
a  range  constraint  3.5 
a  real  type  definition  3.6.6 
a  record  type  definition  3.7 
a  renaming  declaration  8.6 
a  representation  clause  13.1 


Discriminant  *  Elaboration  of 
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«  iiibprooram  body  0.3 
a  aubprogram  declaration  6.1 
a  aubtvpa  declaration  3.3.2 
a  aubtypa  Indication  3.3.2 
a  teak  body  9.1 
a  teak  declaration  9.1 
a  lack  apacificatlon  9.1 
a  type  declaretlon  3.3.1,  3.8.1,  7.4,1 
a  type  definition  3,3.1 
an  unconatralned  array  definition  3.6 
a  uau  clause  8.4 

Elaboraifon.^eheek 

laae:  proorom.Mrror  exception,  aunpraaal 

dement  In  a  file  14,  14.1;  14,2 

In  a  direct  auoeaa  file  14,2,4 
in  a  lequanilal  acoeaa  file  14.2.2 

ELEMKNT.TYPE  (generic  fomnal  type  of  cu.-nct  ol  14.2.9; 

14,1,  14,2.4 

ELEMENT.TYPE  Igcnarlc  formal  type  of  eequantlaUc) 

14.3.3:  14.1,  14.2.2 

dee  pert 

of  a  conditional  antry  call  9.7,2 

of  an  If  atatemant  6.3 

of  a  aelactive  vxalt  9.7.1:  11.1 

UMAX  (predefined  ettrlbute)  3.6.1:  A 
|a«e  elio:  nnaohlna...emax| 

trnln 

laae:  niachlne-amlnl 

Empty  itring  literal  3.6 

End  of  Una  2.3 

ae  a  aeparator  2.2 

due  to  a  format  effector  2.2 

terminating  a  comment  2.7 

END.ERRON  (Input-output  exception)  14.4;  14.2.2, 14.2.3, 

14.2.4.  14., 1.6.  14.3.4,  14.3.6,  14.3.6,  14.3.10,  14.6 

ENO-OF-PILE  (Input-output  function) 

In  an  Inetanoe  of  dlreoUo  14.2.4:  14.2.5 
in  an  Inetanoe  of  eequantlalJo  14.2.2;  14.2.3 
In  taxUo  14.3.1.  14.3.10 

END_OF-LINE  (taxUo  function)  14,3.4:  14.3.10 
relaing  an  exceptlun  14.4 

END_OF-PAaE  (taxUo  function)  14,3.4;  14.3.10,  14.4 

Entry  (of  a  teak)  8.6;  9,  9.2,  0 
laae  also:  actual  paramator,  addrata  attribute,  attribute  of.... 
formal  parameter,  Interrupt  entry,  ovarloadlng  of.... 
parameter  end  reeult  type  profile,  parameter,  lubprograml 
declared  by  Initintlatlon  of  •  generic  formil 
perimeter  12.3 

de.rottd  by  an  Indexed  component  4.1.1 

denoted  by  a  ealeoted  component  4. 1 .3 

name  laeei  name  of  an  entry) 

name  atarting  with  e  prefix  4.1 

of  a  darivad  taak  typt  3.4 

of  a  taak  dealgnatad  by  an  abject  of  e  tack  type  0.6 

renamed  6.5 

eubject  to  an  addreei  olauee  13.6,  13.6.1 
cubjaot  to  a  rapraaentatlon  clauaa  13,1 

Entry  enll  8.0;  9.  9.7.1.  9.7.2,  9.7.3 
laaa  alao:  actual  naramatar,  conditional  entry  cell,  aub- 


program  call,  timed  entry  cell) 

•o  an  abnormal  ,’aak  9.5,  9.10,  116:  9.6 
to  communicate  veluei  9.11 

Entry  call  statamant  9.6 

(sea  alio:  accapt  statement,  actual  parameter,  etatamant. 
task  declaration,  task! 

an  a  simple  stutamant  5. 1 
in  an  abnormal  task  9.10 
in  a  conditional  entry  call  9.7.2;  9.6 
In  B  timed  entry  call  9,V,3;  9.6 

Entry  deelaratiun  O.B 
Isee  also:  einhoratlon  of  .  ) 

as  an  overloaded  declaration  6.3 

as  pan  uf  a  buiic  declaration  3.1 

cannot  include  a  forcinu  ocourranca  13.1 

having  an  extended  icopa  8.2 

in  a  task  apacificatlon  8.1 

Including  the  name  of  a  private  type  7.4.1 

vlalblllty  8.3 

Entry  family  8,6 

rfonnted  by  a  ealsetad  componont  4.t.3 
name  atarting  with  a  prefix  4.1 

Enhy  Index  (In  tha  n.inte  of  an  entry  of  a  family)  8.6 
fur  an  open  accept  alttrnatlve  8.7.1 
In  a  conditional  entry  call  8.7.2 
In  a  timsd  entry  call  8,7.3 

Entry  quaua  (of  calls  awaiting  accaptanoa)  8.6 
count  of  calli  In  tha  quaua  8,8 
dua  to  queued  Intarrupti  13.6.1 
of  an  abnormal  taak  9.10 

Enumeration  lltaral  3.6.1.  4.2 
laea  alao:  overloading  of....  predsflntd  function) 
as  an  oparstlon  3.3.3 
as  an  oparator  3.6.6 
ai  raault  for  Image  attribute  3.8.6 
as  tha  parameter  for  value  attribute  3.6.6 
Implicitly  daelarnd  3.3.3 
In  I  atatio  axpraaalon  4.8 
lit  pragma  ayitam-namt  13.7 
of  a  darivad  type  3.4 
ovtrloaded  8.3 
ranamtd  ai  a  function  6.5 
rapraaentatlon  13.3 


Enumeration  literal  apaoHloabon  3.6.1 

Bi  pari  of  a  bailo  daolaratlon  3.1 
made  directly  visible  by  a  uaa  clauaa  6.4 

Enumeration  rapraaantaUon  ofauaa  13,3 
BI  a  rapraaentatlon  clauaa  13.1 

Enumtratkin  type  3.8.1;  3.3,  3.5,  D 
lata  alao:  dlaorota  type,  scalar  type) 
as  a  character  type  3.6.2 
■s  a  generic  formal  lypa  12.1,2 
at  a  generic  parameter  12.3.3 
boolean  3.6.3 
operation  3.6.6 

Enumeration  type  deflnillen  3,8.1:  3.3.1 
laae  alio;  elaboralion  of... I 

ENUMERATIONJO  (taxUo  Inner  generic  peokags)  14.3.8; 

14.3.10 

Environment  of  a  program  10.4 

environment  task  calling  tha  main  program  10.1 
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EPSILON  (predsdned  attrlbutt)  3,B.8;  A 

Equal 

character  2.1 
dallmitar  2.2 

Equality  operator  4.B;  4.5.2 
laaa  alio:  limited  type,  relational  operator] 
eapllcltly  declared  4.5.2,  6,7;  7.4.4 
for  an  acceai  type  3.8.2 
for  an  array  type  3.6.2 
for  a  generic  formal  type  12.1.2 
for  a  limited  type  4.5.2,  7,4,4 
for  a  real  type  4.5.7 
for  a  record  type  3.7.4 

Erronaoue  eaaoutlon  1.6 
liae  alio:  program.errorj 

due  to  an  aocaia  to  a  daillooitad  object  13.10.1 
due  to  an  unohaoked  oonvaralon  violating  propartlaa 
of  objeota  of  the  raiult  typo  13.10.2 
due  to  iMlgnmont  to  a  iharad  variable  9.1 1 
due  to  changing  of  a  dlaorlmlnant  valua  5.2,  6.2 
due  to  dependence  on  parametar-paiiing 
machanlam  6.2 

due  to  multiple  addrata  olauiai  for  overlaid  antitloi 
13.5 

due  to  luppraaelon  of  an  aaoaptlon  check  1 1.7 
due  to  uae  of  an  undefined  value  3,2.1 

Error  bounda  of  a  predefined  operation  of  a  real  type  3.B.S, 

4.B.7;  3.6.6,  3.6.7 

Error  dataetad  at 

compilation  tima  1.6 
run  time  1.6 

Error  altuallon  1.6,  11,  11.1;  11.6 

Error  that  may  not  be  detected  1.6 

Evaluation  (of  an  expreialon)  4.6;  0 
laaa  also:  compile  time  evaluation,  eapreaalon] 
at  compile  time  4,8,  10.6 
of  an  actual  parameter  6.4.1 
of  an  aggregafa  4.3;  3,3.3 
of  an  allocator  4.8 
of  an  array  aggragata  4.3.2 
of  a  condition  6.3,  6.6,  6.7,  9.7.1 
of  a  default  expraaalon  3.7.2 
of  a  default  axpraaalon  fora  formal  parameter  6.4.2; 
6.1 

of  a  dlacrata  range  ,3.6;  9.6 

of  a  dlaorete  range  uaad  In  an  Index  uonatralnt  3.6. 1 

of  an  entry  Index  9.6 

of  an  axpreaalon  In  an  aaalgnment  atatament  6.2 

of  an  axpreaalon  In  a  oonatraint  3.3.2 

of  an  axpreaalon  In  a  generic  actual  parameter  12.3 

of  an  Indexed  component  4.1,1 

of  an  Initial  value  [aae;  default  axpreaalonj 

of  a  literal  4.2:  3.3.3 

of  a  logical  operation  4.6.1 

of  a  name  4.1;  4.1.1,  4.1.2,  4,1.3,  4.1,4 

of  0  name  In  an  abort  atatament  8.10 

of  a  name  In  a  renaming  daclaratlon  8.6 

of  a  name  of  a  variable  8.2,  6.4.1,  12.3 

of  a  primary  4,4 

of  a  qualified  axpreaalon  4,7;  4.8 

of  a  range  3.6 

of  a  record  aggregate  4.3.1 

of  a  abort  circuit  control  form  4.6.1 

of  a  atatlc  axpreaalon  4.9 

of  a  typo  convaralon  4.6 

of  a  univeraal  expraaalon  4,10 


of  the  bound!  of  a  loop  parameter  6.6 
of  the  condltloni  of  a  aelectlva  wait  9.7,1 

Evaluation  order 
laaa:  order  of  evaluation) 

Exception  11:  1.6,0 

laaa  alao:  cnnatralnuarror,  numaric-arror,  pradaflnad  .., 
program-error,  ralaa  atatament,  railing  of ..,  atorage.error, 
taiking-error,  tlma_error| 

caualng  a  loop  to  be  exited  5.5 
cauilng  a  tranafar  of  control  5.1 
due  to  an  expraaalon  evaluated  at  compile  time 
10,6 

Implicitly  declared  In  a  generic  Initantlatlon  11.1 
In  Input-output  14.4:  14.8 
renamed  8.5 
luppreia  pragma  1 1.7 

Eaeaptlon  choice  11.2 

Eaeapllon  declaration  11.1;  11 

aa  a  baalc  declaration  3.1 

Exception  handlar  11.2;  0 

In  an  abnormal  teak  9.10 

In  a  block  itatoment  5.6 

In  a  package  body  7.1;  7.3 

In  a  lubprogram  body  6.3 

In  a  taak  body  9,1 

Including  a  ralaa  atatament  1 1 ,3 

Including  the  daitlnatlon  of  a  goto  atatament  5.9 

Including  the  name  of  an  axoaptlon  11.1 

not  allowed  In  a  code  prooadura  body  13.8 

railing  an  exception  11.4.1 

lalacted  to  handle  an  exception  11.4.1;  11.6 

Exception  handling  11.4;  11.4.1,  11.4.2,  11,6 

Exception  propagation  1 1 

delayed  by  a  dependent  teak  11.4,1 
from  a  declaration  11.4.2 
from  a  pradaflnad  operation  11.6 
from  a  atatament  1 1.4.1 
to  a  communicating  taak  11.6 

Exception  ralaad  during  execution  or  alaboratien  of 
an  accept  atatament  1 1 .5 
an  allocator  of  a  taak  9.3 
a  conditional  entry  9.7.2 
a  declaration  1 1.4.2:  1 1.4 
a  declarative  part  that  dcolarai  taiki  9.3 
a  generic  Initantlatlon  12.3.1,  12,3.2,  12.3.4, 
12.3.5 

a  aelectlva  wilt  9.7.1 
a  atatament  1 1,4,1;  1 1,4 
a  lubprogram  call  6,3;  6.2,  6.5 
a  taak  11.6 

a  timed  entry  call  9.7.3 
talk  activation  9.3 

Excaptlona  and  optimliatlon  11.6 

Exciamatlon  charactoi  2.1 

replacing  vertical  bar  2.10 

Eadualve  dlajunotlon 
laaa:  logical  operator] 

Execution 

laee:  lequance  of  itatamenti,  atatament,  taak  body,  taak] 

Exit  atatament  6,7 
jaee  alao:  statement] 
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at  a  timpla  atatamant  5.1 
causing  a  loop  to  ba  axitad  S.5 
causing  a  tisnsfar  of  control  5.1 
cornplating  block  atatamant  axacutlon  9.4 

Expandad  nama  4.1.3;  D 

danoting  a  loop  5.5 
In  a  static  axprstalon  4.9 
of  a  parant  unit  10.2 
rapiBcIng  a  simpla  nama  6.3.1 

Eapllelt  oonvarslon  4.6 

Itta  slso:  conversion  operation,  Implicit  convaralon,  sub¬ 
type  conversion,  type  convaralon] 

from  unlversaUflxad  type  4.5.6 
to  I  real  type  4.6.7 

Explialt  daclaralion  3.1;  4.1 
Itaa  alto;  dsclaratlon) 

Explicit  Initialisation 

Isaa:  allocator,  objaot  declaration,  qutliriad  axpraaalonj 

Exponent  of  a  floating  point  number  3,8.7;  13.7.3 

Exponent  part 

In  output  of  real  values  14.3.8 
of  a  based  literal  2.4.1,  2.4,2 
of  a  daolmtl  literal  2.4.1 

Exponentiating  operator  4.8;  4.6.6 
isaa  alto;  highest  praoadanca  operator) 

In  a  ftolor  4.4 
overloaded  6.7 

Exponentiation  compound  delimiter  2.2 
[see  alto;  double  star  compound  dsllmlterj 

Exponentiation  operation  4.8.8 

Expression  4.4;  D 

(tae  altoi  compile  time  evaluation,  default  sxproaalon. 
delay  axprattlon,  evaluation,  qualified  axprottion,  timpla 
axprattlon,  static  expratslon,  univartal  type  expratslon] 
at  an  actual  parameter  6.4,  6.4.1 
as  a  condition  6.3 

as  a  generic  actual  parameter  12.3;  12.3.1 
St  the  argument  of  a  pragma  2.8 
In  an  actual  psrsmatar  of  a  conditional  entry  call 
9.7.2 

In  an  actual  ptrama.xr  of  an  entry  call  atatamant 
9.6 

In  an  actual  parametar  of  a  timed  entry  call  9.7.3 

In  an  allocator  4.8 

In  an  aaalgnmant  atatamant  5,2 

In  an  attribute  designator  4.1.4 

In  a  cate  atatamant  6.4 

In  a  choice  In  a  case  atatamant  6.4 

In  a  component  aatoolatlon  4.3 

In  a  component  declaration  3.7 

In  a  constraint  3.3.2 

In  a  convaralon  4.6 

In  a  discriminant  association  3.7.2 

In  a  dlaorlmlnant  apaclfloatlon  3.7.1 

In  a  generic  formal  part  12.1 

In  an  Indexed  component  4.1,1 

In  a  length  clausa  13.2 

In  a  nama  of  a  variable  5.2.  6.4,1 , 12.3 

In  a  number  declaration  3.2 

In  an  object  declaration  3.2,  3.2.1 

In  a  parameter  apaclfloatlon  6.1 

l.n  a  primary  4.4 

In  a  qualified  axpraaalon  4.7 

In  a  rapreaentatlon  clausa  13.1 


In  a  return  statement  6.8 

in  a  specification  of  a  derived  subprogram  3.4 

In  a  type  conversion  8.7 

Including  the  nama  of  a  private  type  7.4.1 

specifying  an  entry  In  a  family  4.1.1 

specifying  the  value  of  an  Index  4.1.1 

with  a  boolean  result  4,6,1,  4.5,2,  4,6,6 

Extandad_dlglt  In  a  based  literal  2.4.2 

External  Ilia  14.1 

Isse  also:  fllel 


Eaetor  4.4 

In  a  term  4,4 

FALSE  boolean  enumeration  literal  3.8.3;  C 

Family  of  entries 
Isaa;  entry  family! 

FIELD  (predefined  Integer  subtype)  14.3.8;  14.3.7, 14.3.10 

File  (object  of  a  file  type)  14.1 
Isaa  also:  sxtsrnal  file) 

File  managsmant  14.2.1 

In  taxulo  14.3.1 

File  terminator  14.3;  14.3.1,  14.3.4, 14.3.5, 14.3.6, 14.3.7, 
14.3.8.  14.3.9 

FILE-MODE  (Input-output  typo) 

In  an  Inatanca  of  dirsot-lo  14.1,  14.2.1;  14.2.6 
man  Instance  of  aaquantlaIJo  14.1, 14.2.1;  14.2.3 
In  taxUo  14.1,  14.2.1;  14.3.10 

FILE-TVFE  (Input-output  type) 

In  an  Instancs  of  dIraoUo  14.1,  14,2.1;  14.2, 
14.2.4.  14.2.5 

in  an  Instance  of  saquantlaUo  14,1,  14.2.1;  14,2, 
14.2.2.  14.2.3 

In  taxUo  14.1,  14.2.1;  14.2,  14.3,3.  14.3.4, 
14.3.6.  14.3.7,  14.3.8,  14.3.9,  14.3.10 

FINE-DELTA 
jsaa:  systam.flne_deltaj 

FIRST  (predefined  attribute)  A 
Isaa  also:  bound! 

for  an  access  value  3.6.2 
for  an  array  type  3.6.2 
for  a  scalar  type  3.5 

First  named  subtype  13.1 

Isaa  also:  anonymous  base  type,  representation  clausal 

FIRST-BIT  Iprsdaflned  attribute)  13.7.2;  A 
(sue  also:  record  rapresantatlon  clausal 

Fixed  socuraov  definition  3.5.9 

Fixed  point  oonstraint  3.5.9;  3.5.6 
on  a  derived  aubtypa  3.4 

Fixed  point  prsdsfined  type  3,5,9 

Fixed  point  type  3.5.9:  D 

Isaa  also:  basic  operation  of,..,  duration,  numeric  type, 
operation  of,,.,  real  type,  scalar  type,  small, 
systam.flne-delta,  system. max-mantlsssj 
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accuracy  of  on  operation  4.5.7 

aa  a  generic  actual  type  12.3.3 

ai  a  generic  formal  type  12.1.2 

error  boundi  4.5.7;  3.6.6 

operation  3.5.10;  4.5.3,  4.5.4,  4.5.5 

reiult  of  an  operation  out  of  range  of  the  type  4.6.7 

FIXEO..IO  (text.Jo  Inner  generic  package)  14.3.8;  14.3.10 

FLOAT  (predefined  type)  3.B.7;  C 

FLOAT  JO  (taxUo  Inner  generic  package)  14.3.8:  14.3.10 

Floating  accuracy  definition  3.5.7 

Floating  point  conatralnt  3.8.7;  3.5.6 
on  a  darivad  lubtypa  3.4 

Floating  point  pradaflned  type 
laee;  FLOAT,  LONQ_FLOAT,  8H0RT_F10AT| 

Floating  point  type  3.5,7;  0 
Ilea  alao:  numeric  type,  real  type,  aoalar  type, 
ayitam.ma)(_dlgltal 

aeouracy  of  an  operation  4.5.7 

aa  a  generic  actual  type  12.3.3 

a.a  a  generic  formal  type  12,1,2 

error  bounda  4.6,7;  3.6.6 

operotlon  3.5.B;  4.5.3,  4,5.4,  4.6,5,  4.5.6 

reault  of  an  operation  out  of  range  of  the  type  4.6.7 

Font  daaign  of  graphical  aymbola  2.1 

Fur  loop 

laaa:  loop  atatamantl 

Forcing  oceurrenca  (of  a  name  leading  to  default  determina¬ 
tion  of  rapreaantatlon)  13.1 

FORE  (predefined  attribute)  for  a  fixed  point  typo  3.6.10;  A 

Fora  floM  of  texUo  Input  or  output  14.3.8. 14.3.10;  14.3.6 

FORM  (Input-output  function) 

In  an  Inotanca  of  dlracUo  14.2.1;  14,2.6 
In  an  Inatanoa  of  aaquentlaUo  14  2.1,  14.2.3 
In  texUo  14.2.1;  14.3.10 
raising  an  exception  14.4 

Form  feed  format  effector  2.1 

Form  string  of  a  file  14.1;  14.2.1.  14.2.3,  14.2.5,  14.3.10 

Formal  object 
laaa:  generic  formal  ob|ectl 

Formal  parainater  6.1;  (3;  (of  an  entry)  9.5;  3.2,  3.2.1;  (of  a 
function)  6.5;  (of  an  operator)  6.7;  (of  a  subprogram)  6.1, 
6.2.  6.4;  3.2.  3.2.1,  6.3 

laea  also:  actual  parameter,  default  expraaalon,  entry, 
generic  formal  parameter,  mods,  object,  subprogram! 
as  a  constant  3.2.1 
as  an  object  3.2 
aa  a  variable  3.2.1 
namea  and  overload  resolution  6.6 
of  a  derived  subprogram  3,4 
of  a  generic  formal  subprogram  12.1,  12.1.3 
of  a  main  program  10.1 
of  an  operation  3.3.3 
of  a  renamed  entry  or  subprogram  6.5 
whose  type  Is  an  array  type  3.6.1 
whose  type  It  a  limited  type  7.4,4 
whose  type  la  a  record  type  3,7.2 
whose  type  It  a  task  type  9  2 


Formal  part  6,1;  6.4 

(see  also:  generic  formal  pan,  parameter  type  profllel 
conforming  to  another  6.3.1 
in  an  accept  acetamant  9.5 
in  an  entry  declaration  9.5 
In  a  subprogram  specification  6.1 
must  not  Include  a  pragma  2.8 

Formal  subprogram 

Isee:  generic  formal  subprogram] 

Formal  type 

Isee:  generic  formal  typel 

Format  effector  2.1 

(tee  also:  carriage  return,  form  feed,  horlaontal  tabulation, 
line  feed,  vanloal  tabulation] 
as  a  separator  2.2 
in  an  end  of  line  2.2 

Format  of  text.lo  Input  or  output  14.3.5,  14.3.7,  14.3.8, 

14.3.9 

Formula 

(see;  expression] 

Frame  1 1,2 

and  optlmliatlon  11. 6 

In  which  an  exception  It  raised  11,4.1,  11.4,2 

Full  declaration 

of  a  defarrad  constant  7.4,3 

Full  type  daolatatlon  3.3.1 

discriminant  part  It  not  elaborated  3,3.1 
of  an  Incomplete  type  3.6.1 
of  a  limited  private  type  7.4,4 
of  a  private  type  7,4,1;  7.4.2 

Function  6,1,  6.5;  6,  12.3,  D 
jtae  also:  operator,  parameter  and  result  type  profile, 
parameter,  predefined  function,  raiult  subtype,  return 
statement,  subprogram] 

at  a  main  program  10.1 
renamed  8.5 

result  ]see:  returned  value] 
that  It  an  attribute  4.1.4:  12.3.6 

Function  body 
jtae:  subprogram  body] 

Function  call  6.4;  6 

Isee  also:  actual  parameter,  subprogram  call] 
as  a  prefix  4.1,  4,1.3 
aa  a  primary  4,4 
in  a  static  expression  4.9 
with  a  parameter  of  a  derived  type  3.4 
with  a  reault  of  a  derived  type  3.4 

Function  tpeclfloation 
isee:  subprogram  specification] 


Qarbaga  oolleotlon  4,8 

Generic  actual  object  12.3.1;  12,1.1 
Isee  also:  generic  actual  parametarj 

Generic  actual  parameter  12.3;  12 
Isee  also:  generic  actual  objact,  gansric  actual  tub- 
program,  generic  iictuel  type,  generic  aaaoolatlon.  generic 
formal  paramator,  ganerlo  Instantiation,  matching! 
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Index 


cannot  ba  a  unlvaraaUflxtd  oparatlon  4.6.5 

for  a  ganorlc  formal  accaia  typa  1 2.3.6 

for  a  ganaric  formal  array  typa  12.3.4 

for  a  ganaric  formal  objact  12.1.1 

for  a  ganaric  formal  private  typa  12.3.2 

for  a  ganaric  formal  icalar  typa  1 2.3.3 

for  a  ganaric  formal  aubprogram  12.1.3;  12.3,6 

for  a  ganaric  formal  typa  12.1.2 

la  not  atatic  4.9 

that  la  an  array  aggregate  4.3.2 
that  la  a  loop  paramatar  5.5 
that  Is  a  task  type  9.2 


Qanaric  actual  part  12.3 

Qanarle  autual  aubprogram  12.1.3,  12.3.6 
laaa  also;  ganaric  actual  paramatar] 

Oanaric  actual  typa 
Itaa;  ganaric  actual  paramatar) 

for  a  ganaric  formal  acoast  typa  12.3.6 

for  a  ganaric  formal  array  typa  12.3.4 

for  0  ganaric  formal  scalar  typa  12.3.3 

for  a  ganaric  formal  typa  with  diacrimlnanta  12.3.2 

for  a  ganaric  private  formal  typa  12.3,2 

that  li  a  private  typa  7,4.1 

Oanaric  association  12.3 

laaa  alto:  generic  actual  paramatar,  generic  formal 
paramatar) 

namad  ganaric  aaaoolatlon  12.3 

named  ganaric  aaaoolatlon  for  salaotiva  visibility  8.3 

positional  ganaric  aaaoclatlon  12.3 

Oanaric  body  12.2;  12.1,  12.1.2,  12.3.2 
laaa  also:  body  stub,  elaboration  of...) 

In  a  package  body  7,1 

Including  an  axcaptlon  handlar  11.2;  11 

Including  an  exit  itatamant  6.7 

Including  a  goto  atatamant  6.9 

Including  an  Implicit  daolaritlon  6.1 

mutt  ba  In  the  tame  daelarativa  raglon  aa  the 

declaration  3.9,  7.1 

not  yet  alaboratsd  at  an  Inatantlatlon  3.9 

Oanaric  declaration  12.1;  12.  12.1.2,  12.2 
(aaa  also:  elaboration  of...] 

and  body  as  a  daelarativa  raglon  8.1 

and  proper  body  In  the  tame  compilation  10.3 

at  a  basic  daolaratlun  3.1 

as  a  later  daelarativa  Item  3.9 

at  a  library  unit  10.1 

In  a  package  apeolfloatlon  7.1 

recompiled  10.3 

Oanaric  formal  object  12.1,  12.1.1;  3.2,  12.3,  12.3.1 
laaa  also:  default  exprattlon,  generic  formal  paramatar) 
of  an  array  typa  3,6,1 
of  a  record  typa  3.7,2 

Qanaric  formal  paramatar  12.1,  12.3;  12,  0 
laaa  alio:  generic  actual  paramatar,  generic  aiaoolitlon, 
ganaric  formal  objact,  ganorlc  formal  subprogram,  ganarlu 
formal  typa,  matching,  object] 
aa  a  constant  l2,1 
aa  a  variable  3.2.1 
of  a  limited  type  7.4,4 
of  a  task  type  9.2 

Oanarlo  formal  part  12.1;  12,  0 

Oanaric  formal  aubprogram  12.1,  12.1.3;  12.1,2,  12.3, 

12,3.6 


Isae  bIbo:  generic  formal  paramatar) 
formal  function  12.1,3 
with  the  same  name  as  another  12.3 

Oanaric  formal  typa  12.1,  12.1.2;  12.3 
laaa  also:  constraint  on,..,  discriminant  of...,  ganaric  formal 
parameter,  subtype  Indication...) 

as  Index  or  component  typa  of  a  generic  formal 

array  type  12.3.4 

formal  access  type  12.1.2,  12.3.5 

formal  array  type  12,1.2,  12.3.4 

formal  array  typa  (constrained)  12.1.2 

formal  discrete  type  12.1.2 

formal  enumeration  type  12.1.2 

formal  fixed  point  type  12,1.2 

formal  floating  point  typa  12.1.2 

formal  Integer  type  12.1.2 

formal  IlmItad  private  typa  12.3.2 

formal  IlmItad  type  12.1.2 

formal  part  12.1.2 

formal  private  type  12.1.2,  12,3,2 

formal  private  type  with  dlacrlmlnanti  12.3.2 

formal  icalar  type  12.1.2,  12.3.3 

Qanaric  function 
Icaa;  ganaric  lubprogram) 

Qanaric  instance  12.3;  12,  12.1,  12.2,  D 
Isae  also:  ganaric  Instantiation,  soopa  of,,,) 

Inllnad  In  place  of  each  call  6.3,2 
of  a  ganaric  package  12.3 
of  u  generic  aubprogram  12.3 
raising  an  exception  11.4.1 

Oanaric  Inatantlatlon  12.3;  12.1,  12.1.3,  12.2,  D 
laaa  also;  declaration,  elaboration  of.,,,  ganarlo  totual 
parameter) 

aa  a  basic  declaration  3,1 

as  a  lator  daelarativa  Item  3,9 

aa  a  library  unit  10.1 

before  elaboration  of  the  body  3.9,  11.1 

Implicitly  declaring  an  axcaptlon  11,1 

Invoking  an  operation  of  a  ganarlo  actual  type  12.1.2 

of  a  predefined  Input-output  package  14,1 

recompiled  10.3 

with  a  formal  accaia  typa  12.3.5 
with  a  formal  array  typa  12.3.4 
with  a  formal  scalar  typa  12.3.3 
with  a  formal  aubprogram  12.3.6 


Qanaric  package  12.1;  12 
for  Input-output  14 

Instantiation  12.3;  12,  12.1  [aaa  also:  generic 
Instantiation) 

apoolficatlon  12.1  laaa  also:  ganarlo  aptolfloallon) 

Qanaric  pankoga  body  12,2;  12.1 
Isas  alio:  package  body) 

Qanaric  parameter  daclsratlon  12.1;  12.1.1,  12.1.2, 12.1.3, 
12.3 

Isae  alio:  generic  formal  paramatar) 
as  0  declsratlve  raglon  8.1 
having  an  extandad  aoopa  8.2 
visibility  8.3 

Qanaric  procedure 
laee:  generic  subprogram) 

Qanaric  specification  12.1;  12.3.2 
laaa  alao:  generic  package  ipecificatlon,  ganarlo  aub¬ 
program  specification) 
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Otnarte  lubprogram  12.1;  12 

body  12.2;  12.1  (•••  alio:  lubprogrim  body! 
Initantlatlon  12.3;  12,  12.1  [mi  alto;  ganarlc 
inatantlatlonl 

Intarfaca  pragma  la  not  dafinad  13.9 
spaelficatlon  12.1  (aaa  alao:  ganarlc  apaolfloatloni 

Oanarlo  typa  daflnltlon  12.1;  12.1.2,  12.3.3,  12.3.4 

Qanarlc  unit  12,  12.1;  12.2,  12.3,  D 
laaa  also:  ganarlc  declaration,  program  unit) 

Including  an  axeaptlon  daclaration  11.1 
Including  a  ralta  atatamant  11.3 
subject  to  a  supprett  pragma  11.7 
with  a  separately  compiled  body  10.2 

Oanarlo  unit  body 
(tea:  ganarlc  body) 

Oanarlo  unit  apaoltloatlon 
laaa;  ganarlc  apaolflcatlon] 

OET  (tOKtJo  procedural  14,3.B;  14.3,  14.3.2,  14.3,4, 

14.3,<0 

for  oharactar  and  atrlng  typaa  14.3. fl 
for  anumaratlon  typaa  14.3.9 
for  Integar  typaa  14,3.7 
for  raal  typaa  14.3,8 
rtiting  an  axoaptlon  14.4 

OBT-LINE  ItaaUo  prooadural  14,3.8;  14.3.10 

Olobal  daelaratlon  8.1 

of  a  variable  thtrad  by  taakt  9.1 1 

Onto  atatamant  8.9 
laaa  alto;  atttamantl 

at  a  timple  atatamant  8.1 
otuting  a  loop  to  be  aaltad  B.B 
oautlng  a  trantfar  of  control  B.1 
oomplatlng  block  atatamant  axaoutlon  9.4 

Orapblo  oharactar  2.1 

laaa  alao:  bttio  graphic  sharaotar.  oharactar,  lower  etta 
latter,  other  apaolal  eharactarl 
In  a  character  literal  2.B 
In  a  atrlng  lltarti  2.8 

Oraphloal  aymbol  2.1 
last  alto;  aeclll 

not  available  2.10 

Oraatar  than 

character  2.1 
delimiter  2.2 

operator  laaa:  rtlallonti  oparatorl 

Oraatar  than  or  aqual 

compound  dallmitar  2.2 
operator  late;  ralatlonal  oparalor) 


Handler 

Itee:  exception  handler,  exception  handling] 

Hiding  lof  a  daclaration]  8,3 
laae  alao:  vlalbllltyl 

and  renaming  8.5 

and  use  clauaea  6.4 

due  to  an  Implicit  di'olaratlon  6.1 

of  a  generic  unit  12.1 

of  a  library  unit  10.1 


of  a  subprogram  6.6 
of  or  by  a  derived  lubprogram  3.4 
of  the  package  standard  10.1 
within  a  subunit  10.2 

Highest  preeedenoe  operator  4.8 
Isee  also:  abs,  arithmetic  operator,  exponentiating 
operator,  not  unary  operator,  overloading  of  an  operator, 
predefined  operator] 

as  an  operation  of  a  discrete  type  3.S.S 
as  an  operation  of  a  fixed  point  type  3.6.10 
as  an  operation  of  a  floating  point  type  3.6.8 
overloaded  6.7 

Homograph  (declaration)  8.3 
laae  alao;  overloading) 
and  uaa  clauaea  8.4 

Horltontal  tabulation 

aa  a  separator  2.2 
character  In  a  comment  2.7 
format  effector  2.1 
In  texL.lo  Input  14.3.6 

Hyphen  ohareeter  2.1 

laae  alao:  minus  oharaotar] 
atarilng  a  comment  2.7 


Identifier  2.3;  2.2 

laae  alao;  direct  vlalblllty,  loop  parameter,  name, 

overloading  of...,  aoopa  of...,  simple  name,  vlalblllty] 
and  an  adjacent  asparator  2,2 
aa  an  attribute  daalgnator  4.1.4 
sa  a  daalgnator  6.1 
aa  a  raaarved  word  2.9 
sa  a  simple  name  4.1 

oan  be  written  In  the  basic  oharactar  aat  2,10 

denoting  an  object  3.2.1 

denoting  a  value  3.2.2 

In  a  deferred  constant  declaration  7.4.3 

In  an  entry  declaration  9,B 

In  an  exception  declsretlon  11.1 

In  a  generic  Inatantlstlon  12.3 

In  an  Incomplete  type  declsretlon  3.6.1 

In  a  number  daclarallon  3.2.2 

in  an  object  declaration  3.2 

In  a  package  apeolflostlon  7.1 

in  a  private  type  declaration  7.4;  7.4.1 

In  a  renaming  declaration  8.6 

In  a  subprogram  apscifloetlon  6.1 

In  a  task  spaelficatlon  9,1 

In  a  typa  declaration  3.3.1;  7.4.1 

In  Its  own  declaration  8.3 

In  p'agma  ayatem_name  13.7 

of  nn  argument  of  a  pragma  2.8 

of  an  enumeration  value  3, B.1 

of  a  formal  parameter  of  a  generic  formal  aub> 

program  12,1,3 

of  a  generic  formal  object  12.1,  12.1.1 

of  a  generic  formal  subprogram  12.1;  12.1.3 

of  a  generic  formal  typa  12.1;  12.1.2 

of  a  generic  unit  12.1 

of  a  library  unit  10.1 

of  a  pragma  2  8 

of  a  subprogram  6.1 

of  0  aubtypa  3.3.2 

of  a  subunit  10.2 

of  homograph  derilaratlona  8.3 

overloaded  6.6 

versus  simple  name  3.1 
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Matvtllitr  Imt  3.2 

In  a  component  declaration  3.7 
In  a  deferred  conitant  declaration  7.4 
In  a  dlacrlmlnant  spaclfloatlon  3.7.1 
In  a  generic  parameter  declaration  for  generic  for¬ 
mal  objecta  12.1 
In  a  number  declaration  3.2 
In  an  object  declaration  3.2 
In  a  parameter  apeclflcatlon  6.1 

Identity  operation  4.5.4 

If  atatament  B.3 
(see  also:  statement) 

as  a  compound  statement  5.1 

Illegal  1.6 

IMAGE  (predefined  attribute)  3.6.6;  A 

Immediate  scope  8.2;  8.3 

Immediately  within  (a  declarative  region) 

[see:  occur  Immediately  within] 

Implementation  defined 
(see:  system  dependent] 

Implementation  defined  pragma  P 

Implementation  dependant 
[see:  system  dependent] 

Implicit  conversion  4.6 

(see  aleo:  conversion  operation,  explicit  convaralon,  tub- 
type  conversion] 

of  an  Integer  literal  to  an  Integer  type  3.5.4 
of  a  real  literal  to  a  real  type  3.S.9 
of  a  universal  expretaloi;  3.6.4,  3.6.6 
of  a  universal  real  axpretilon  4.5.7 

Implicit  declaration  3.1;  4.1 
(sea  alto:  scope  of...] 

by  a  type  dacisratlon  4.5 

hidden  by  an  explicit  declaration  8.3 

of  a  basic  operation  3.1,  3.3.3 

of  a  block  name,  loop  name,  or  label  6.1;  3.1 

of  a  derived  subprogram  3.3.3,  3.4 

of  an  enumeration  literal  3.3.3 

of  an  equality  operator  6.7 

of  an  exception  due  to  an  Instantiation  11.1 

of  a  library  unit  8.6,  10.1 

of  a  predefined  operator  4.5 

of  unIversaLfIxad  opsratori  4.5.6 

Implicit  initialization  of  an  object 
(see:  allocator,  default  Initial  value] 

Implicit  raprasentation  clausa 
for  a  derived  type  3.4 

In  mambarahip  test 
(see:  memberthlo  teat] 

In  mode 
(see:  mode  in] 

In  out  mods 

(see:  mode  In  out] 

IN_FILE  (Input-outDut  file  mode  enumaratlon  literal)  14.1 

Inclusive  disjunction 
Isss:  logical  operator] 


incompatibility  (of  constraints) 

(see:  compatibility] 

Incompleta  type  3.8.1 

corresponding  full  type  declaration  3.3.1 

incompleta  type  daclaration  3.8.1;  3.3.1,  7.4.1 
as  a  portion  of  a  declarative  region  8.1 

Incoiract  order  dapandanoa  1.6 
(see  also:  program  error] 

assignment  statement  5.2 

bounds  of  a  range  constraint  3.6 

component  association  of  an  array  aggregate  4.3.2 

component  association  of  a  record  aggregate  4.3.1 

component  subtype  Indication  3.6 

default  expression  for  a  component  3.2.1 

default  expression  for  a  discriminant  3.2.1 

expression  4.6 

Inriex  constraint  3.6 

library  unit  10.6 

parameter  association  6.4 

prefix  and  discrete  range  of  a  slice  4.1.2 

Index  3.6;  D 

(see  also:  ariay,  discrete  h'lui,  entry  Index] 

INDEX  (Input-output  function) 

In  an  Instance  of  dlraot_lo  14.2.4;  14.2.6 

Index  constraint  3.6,  3.6.1:  D 
(see  also:  dependence  on  a  discriminant] 

ignored  due  to  lndsx..eheok  suppression  1 1 ,7 

In  an  allocator  4.8 

In  a  constrained  array  definition  3.6 

In  a  subtype  Indication  3.3.2 

on  an  access  type  3.8 

violated  11.1 

Index  of  an  element  In  a  direct  access  file  14.2;  14.2.4 

Index  range  3.6 

matching  4.5.2 

Index  subtype  3.6 

Index  subtype  definition  3.6 

Index  type 

of  a  choice  In  an  array  aggregate  4.3.2 
of  8  generic  formal  array  type  12.3.4 

lndax_chtok 

[see:  constraint-error,  supprsaa] 

Indexed  .lomponent  4.1.1;  3.6,  D 

na  a  basic  opsratlon  3.3.3:  3.3,  3.6.2,  3.8.2 

aa  a  name  4.1 

aa  the  name  of  an  entry  9.6 

of  a  value  of  a  generic  formal  array  type  12.1.2 

Inriloallon 

]see:  cubtype  Indication] 

Inaquallty  compound  delimiter  2.2 

Inequality  operator  4.6;  4.5.2 
[see  alao:  limited  type,  relational  operator] 
cannot  be  explicitly  declared  9.7 
for  an  access  type  3.8.2 
for  an  array  type  3.6.2 
for  a  generic  formal  type  12.1.2 
for  a  real  type  4.5.7 
for  a  record  type  3.7.4 
not  available  for  a  limited  type  7.4.4 
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Initial  valua  (of  an  object)  3.2.1 
Isee  also:  allocator,  composite  type,  default  expreaalon, 
default  Initial  value,  default  Initialization) 

In  an  allocator  4.8:  3,8,  7,4,4 
Of  an  array  object  3.8,1 
of  a  constant  3,2.1 

of  .3  constant  In  a  static  expression  4.9 
of  a  discriminant  of  a  formal  parameter  6.2 
of  a  discriminant  of  an  object  3.7.2 
of  a  limited  private  type  object  7.4,4 
of  an  object  declared  In  a  package  7.1 
of  an  out  mode  formal  parameter  6.2 
of  a  record  object  3.7.2 

Initialization 

Isee:  assignment,  default  expression,  default  Initialization, 
Initial  value! 

INLINE  (predefined  pragma!  6.3.2;  8 

creating  recompilation  dependence  10.3 

INOUT.FILE  (Input-output  flle.mode  enumeration  lltaral) 

14.1 

Input-output  14 

Isee  also:  dIrectJo,  lo_axcaptlant,  lav.JavalJo,  saquen- 
tlalJo,  texUol 

at  device  level  14.6 
exceptions  14.4;  14.5 
with  a  direct  access  fils  14,2.4 
with  a  sequential  file  14.2.2 
with  a  text  file  14.3 

Inslanoa 

(see:  generic  Inetaneel 

Instantiation 

Isee:  generic  Instantiation] 

INTEGER  (predefined  type)  3.6.4;  C 

c:’,  bass  type  of  a  loop  parameter  6.5 

as  default  type  for  the  bounds  of  a  discrete  range 

3,6.1:  9.5 

Intsgsr  literal  2.4 

Isee  also:  based  Integer  literal,  unIversaLIntegar  type) 

SB  a  bound  of  a  discrete  range  9.6 
as  a  unIversaIJnteqer  literal  3.6.4 
In  based  notation  ;..4.2 
In  decimal  notation  2.4. 1 

Integer  pert 

(■a  a  base  of  a  bused  literal  2.4.2 
of  a  decimal  literal  2.4.1 

Intagar  predefined  type  3,6,4 
Isee  also:  INTEGER,  LONGJNTEGER,  SHORTJNTEQERI 

Integer  subtype 

Isee:  priorltyl 

due  to  an  Integer  type  definition  3.6.4 

Integer  type  3.5.4;  3.3.  3.5.  D 
Isee  also:  discrete  type,  numeric  type,  prodsfinad  type, 
scalar  type,  system.max_lnt,  system. minjnt,  unlvor- 
saLInteger  type] 

as  a  generic  formal  type  12.1.2 
as  a  generic  parameter  12.3.3 
operation  3.5.6:  4.5.3.  4.6.4,  4.5.6,  4.6.6 
result  of  a  conversion  from  s  numeric  type  4.6 
result  of  an  operation  out  of  range  of  the  type  4.5 

Integer  type  declaration 
Isee:  Integer  type  definition] 


Integer  type  definition  3.6.4;  3.3.1 
Isee  also:  elaborotlon  of...] 

Integer  type  expreselon 

In  a  length  clause  13.2 

In  a  record  representation  clausa  13.4 

INTEGER  JO  (text-lo  Inner  generic  package)  14.3.6;  14.3.10 


INTERFACE  (predefined  pragma)  13.9;  B 

Interface  to  other  languagea  13,9 

Interrupt  13.5 

Interrupt  entry  13.6.1 
Isee  also:  address  attribute] 

Interrupt  queue 

Isee;  entry  queue] 

lO-EXCEPTIONS  (predoflnad  input-output  (vackage)  14.4; 
14,  14,1,  14.7..3,  14,2.6,  M  3,10,  C 
specification  14.5 

IS-OPEN  (Input-output  function) 

In  an  Instance  of  dlracUo  14,2.1;  14,2.5 
in  an  Instance  of  sequantlaLlo  14,2.1,  14.2.3 
in  text_lo  14.2.1;  14.3.10 

ISO  (International  organlxatlon  for  standardization)  2.1 

ISO  seven  bit  coded  character  sat  2.1 

Item 

Isee:  basic  daclarstlve  Item,  later  diolarative  Item] 

Itarabon  aoheme  B.B 
lies  also:  discrete  type] 


Label  6.1 

lies  also:  address  attribute,  name,  statement] 
declaration  5.1 
implicitly  declared  3.1 
target  of  a  goto  statement  6.9 

Label  bi>,t;kat 

compound  delimiter  2.2 

Lebe.'rJ  ststemti'.’f  G.1 

In  a  code  etatement  13.8 

LARGE  (predefined  attribute)  3.8.6,  3.8.10;  A 

LAST  (predefined  attribute)  A 
Isee  also:  bound) 

for  an  access  value  3.B.2 
for  an  array  type  3.6.2 
for  a  scalar  type  3.5 

UST.BIT  (predefined  attribute)  13.7.2;  A 
Isee  also:  record  representation  clause] 

Later  declarative  item  3.9 

Layout  recommended 
Isee:  paragraphing  recommended] 

LAYOUT-ERROR  (Input-output  exception)  14.4;  14.3.4, 

14.3,5,  14,3.7,  14.3.8,  14.3,9,  14.3,10,  14.6 
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Uading  tsroi  In  a  numeric  literal  2.4.1 

Lett  label  braoliai  compound  delimiter  2.2 

Left  paranthaeie 

character  2,1 
delimiter  2.2 

Legal  1.6 

LENGTH  (predefined  attribute)  3.6.2;  A 
for  an  accocs  value  3.8.2 

Length  clauce  13.2 

as  a  representation  clause  13.1 
for  an  access  type  4.8 

specifying  small  of  a  fixed  point  type  13.2;  3.B.9 

Length  of  a  string  liters'  2.6 

Length  of  the  result 

of  an  array  comparison  4.5.1 
of  an  array  logical  negation  4.5.6 
of  a  catenation  4.5.3 

Length-check 

(see:  constraint-error,  auppraaal 

Lees  than 

character  2.1 
delimiter  2.2 

operator  |aes:  relational  operator] 

Leas  than  or  equal 

compound  delimiter  2.2 
operator  (see:  relational  operator] 

Latter  2.3 

lees  also;  lower  case  lettar,  upper  case  letter] 
e  or  E  In  a  decimal  literal  2.4.1 
In  a  based  literal  2.4.2 
In  an  identifier  2.3 

Latter-or-dlglt  2.3 

Lsxloal  element  2,  2.2;  2.4,  2.5,  2.6,  D 

as  a  point  In  the  program  text  8.3 

In  a  conforming  construct  6.3.1 

transferred  by  a  texUo  procedure  14.3,  14,3.5. 

14.3.9 

Lexicographic  ordar  4.S.2 

Library  packaga 
Isee;  library  unit,  package] 

having  dependent  tasks  9.4 

Library  packaga  body 

Isee:  library  unit,  package  body] 

raising  an  exception  11.4,1,  11.4.2 

Library  unit  10.1;  10,5 

Isee  alao:  compilation  unit,  predefined  package,  predefined 
subprogram,  program  unit,  aacondary  unit,  standard 
predefined  package,  subunit] 

complied  before  the  corresponding  body  10.3 

followed  by  an  Inline  pragma  6.3.2 

Included  In  the  oredefined  package  standard  8.6 

must  nut  be  subject  to  an  address  clause  13.5 

named  In  a  use  clause  10.5 

named  In  a  with  clause  10.1  1;  10,3,  10,5 

recompiled  10.3 

scope  6.2 

subject  to  an  Interface  pragma  13.9 


that  Is  a  packaga  7.1 

visibility  due  to  a  with  clause  8.3 

whose  name  Is  needed  In  a  compilation  unit  1 0. 1 . 1 

with  e  body  stub  10.2 

Limited  private  type  7.4.4 
Isee  also:  private  typej 

as  a  generic  actual  type  12.3.2 
as  a  generic  formal  type  12,1.2 

Limited  type  7.4.4;  9.2,  12.3.1,  D 
Isee  also:  assignment,  equality  operator,  Inequality 
operator,  predefined  operator,  task  type] 
as  a  full  type  7.4.1 
component  of  a  record  3.7 
generic  formal  object  12.1.1 
In  an  object  declaration  3.2.1 
limited  record  type  3.7.4 
operation  7.4.4;  4.5.2 

parameters  for  explicitly  declared  equality  operators 


Line  14.3.  14.3.4 

LINE  (text„lo  function)  14.3,4;  14.3.10 
raising  an  exception  14.4 

Line  feed  format  effector  2.1 

Line  length  14.3,  14.3.3;  14.3.1,  14.3.4,  14.3.5,  14.3.6 

Line  terminator  14.3;  14.3.4, 14.3.5, 14.3,5, 14.3.7, 14,3.8, 

14.3.9 

LINE-LENGTH  Itext-lo  function)  14.3.3,  14.3.4;  14.3.3, 

14.3.10 

raising  an  exception  14.4 

List 

jsse:  component  list,  Identiflerjist] 

LIST  Ipredeflned  pragma)  B 

Listing  of  program  text 
isee;  list  pragma,  page  pragma] 

Literal  4.2;  0 

isee  also:  based  literal,  character  literal,  decimal  lltsrsi, 
enumeration  literal,  Integer  lltsial,  null  literal,  numeric 
literal,  overloading  of....  real  literal,  string  literal] 
as  a  basic  operation  3.3.3 
of  a  derived  type  3.4 
of  universal-integer  type  3.5.4 
of  universal-real  type  3.5.6 
specification  [see:  enumeration  literal  specification] 

Local  dacleretlon  8.1 

in  a  generic  unit  12.3 

Logloel  negation  operation  4.5.6 

Logical  operation  4.5.1 

Logical  operator  4.5;  4.4.  4.6.1,  C 
Isee  also:  overloading  of  an  operator,  predefined  operator] 
aa  an  operation  o'  boolaan  type  3.5,5 
for  an  array  type  3.6.2 
In  an  expreaalon  4.4 
overloaded  6,7 

Logical  procaaior  9 

LONG-FLOAT  (prudeflned  type)  3.5.7:  C 

LONO-INTEQER  {predefined  type)  3.6.4;  C 
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Loop  namo  6.6 

declaration  5.1 
Implicitly  declared  3,1 
In  an  exit  atatement  5.7 

Loop  parameter  5.5 
laee  also:  conatant.  object] 
sa  an  object  3.2 

Loop  paremetar  apaolfloatlon  S.S 

jsee  alao:  elaboration  of...| 

aa  an  overload  resolution  context  8  7 
Is  a  declaration  3.1 

Loop  statement  5.5 
jsee  also:  statement] 

as  a  compound  statement  5.1 
aa  a  declarative  region  8.1 
denoted  by  an  expanded  name  4.1.3 
Including  an  exit  atatement  6.7 

LOW_LEVEL.IO  (predefined  Input-output  package)  14.6; 

14,  C 

Lower  bound 

Isee:  bound,  first  attribute] 

Lower  case  letter  2.1 
laee  also:  graphic  character] 

a  to  r  In  a  baaed  literal  2.4.2 
e  In  a  dacimal  literal  2.4.1 
In  an  Identifier  2.3 


Machine  code  Insertion  13.0 

Machine  dependent  attribute  13.7,3 

Mechlne  representation 
laaei  representation] 

MACHINE-CODE  Ipredeflnad  paokaga)  13.8;  C 

MACHINE-EMAX  (predefined  attribute)  13.7.3;  3.6.8,  A 

MACHINE-EMIN  (predefined  attribute)  13.7.3:  3.6.8.  A 

MACHINE-MANTISSA  (predefined  attribute)  13.7.3;  3.6.8, 
A 

MACHINE-OVERFLOWS  (predefined  attribute)  13.7.3; 

3.5  8,  3.6.10,  A 

MACHINE-RADIX  (predefined  attribute)  13.7.3;  3.5.8.  A 

MACHINE-ROUNDS  (predefined  attribute)  13.7.3:  3.8.8, 

3,5,10,  A 

Main  program  10.1 

execution  requiring  elaboration  of  library  units  10.6 
Included  In  the  predefined  package  standard  8.6 
Including  a  priority  pragma  9,8 
rulaing  an  exception  11.4.1,  11.4.2 
termination  9.4 

MANTISSA  (predefined  attribute)  3.8.8,  3.8.10;  A 

Mantissa 

of  a  fixed  point  number  3.5.9 

of  a  floating  point  number  3.6,7;  13.7.3 

Mark 

]aee:  type-mark] 


Master  (task)  9.4 

Matching  components 

of  arrays  4.5.2;  4.5.1,  5.2.1 
of  records  4.5.2 

Matching  generic  formal 

and  actual  parameters  12.3 

access  type  12.3.5 

array  type  12,3.4 

default  subprogram  12.3.6;  12.1.3 

object  12,3.1;  12,1.1 

private  type  1 2.3.2 

scalar  type  12,3,3 

subprogram  12,3.6;  12.1.3 

type  12.3.2,  12.3,3,  12,3,4,  12.3.5;  12.1.2 

Mathematically  correct  resuN  of  a  numeric  operation  4.8; 


MAX-DIGITS 

Isee:  system. max_dlglta] 

MAX-INT 

Isee:  system. max_lnt| 

MAX.MANTISBA 
Isee:  system. max-mantlssa] 

Maximum  line  length  14.3 

Maximum  paga  langth  14.3 

Membership  teat  4.4,  4.8.2 

cannot  bs  ovarloadsd  6.7 

Membership  test  operation  4.8 
Isee  also;  overloading  of...] 

as  a  basic  operation  3.3.3;  3.3,  3,5,6,  3.6,8,  3.6.10, 
3,6,2,  3.7,4,  3,8,2,  7,4,2 
for  a  real  type  4.6.7 

MEMORY-SIZE  (predefined  named  number) 

]aee:  system, memorY-slae] 

MEMORY-SIZE  (predefined  pragma)  13.7;  8 

MIN-INT 

Isee:  systom.mln-Int] 

Mfnimliatlon  of  storege 
Isee:  pack  predefined  pragma] 

Minus 

character  jsee:  hyphen  charaotsr] 

character  In  an  exponent  of  a  numeric  literal  2.4.1 

delimiter  2.2 

operator  |see:  binary  adding  operator,  unary  adding 
operator] 

unary  operation  4.6.4 

Mod  operator  4.5.5 
laee  also:  multiplying  operator] 

MODE  (Input-output  function) 

In  an  Instance  of  dlract-lo  14.2.1;  14.2.6 
In  an  Instance  of  saquentlaIJo  14.2.1;  14.2.3 
In  texUo  14,2,1;  14,3,3,  14,3.4,  14,3.10 

Mode  (of  a  file)  14.1:  14.2.1 

of  a  direct  access  file  14.2;  14.2.6 
of  a  sequential  accaaa  file  14.2:  14.2.3 
of  a  textjo  file  14.3.1;  14.3.4 


Loop  name  •  Mode 
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Med*  (of  «  formil  paramtlar)  6.2;  6.1,  D 
laae  alio:  formal  paramatar,  ganaric  formal  paramatarl 
of  a  formal  paramatar  of  a  darivad  aubprogram  ,1.4 
of  a  formal  paramatar  of  a  ranamad  antry  or  lub- 
program  8.5 

of  a  ganaric  formal  objaot  12.1.1 

Moda  In  for  a  formal  paramatar  6.1,  6.2;  3.2.1 
of  a  function  6.5 
of  an  Interrupt  entry  13.5.1 

Moda  In  for  a  generic  formal  object  12.1.1;  3.2.1,  12.3, 

12.3.1 

Moda  In  out  for  a  formal  paramatar  6.1,  6.2;  3.2.1 
of  a  function  la  not  allowed  6.5 
of  an  interrupt  antry  la  not  allowed  13.5.1 

Moda  in  out  for  a  ganaric  formal  objoot  12.1.1;  3.2.1,  12.3, 

12.3.1 

Moda  out  for  a  formal  paramatar  6.1,  6.2 
of  a  function  la  not  allowed  6,5 
of  an  Interrupt  antry  It  not  allowed  13.6.1 

MODE_ERROft  (Input-output  aaoaptlon)  14.4;  14.2.2, 
14.2.3,  14.2.4,  14.2.6,  14,3.1,  14.3.2.  14.3.3,  14.3.4, 
14.3.6,  14.3.10,  14.6 

Modal  Interval  of  a  lubtypa  4.6.7 

Modal  number  (of  a  real  type)  3.6.6;  0 
[tea  alao:  raal  type,  tafa  number] 

accuracy  of  a  raal  operation  4,6  7 
of  a  fixed  point  type  3.6.9;  3,6.10 
of  a  floating  point  type  3.5.7;  3.6.6 

Modulua  operation  4.8.8 

MONTH  (pradaflnad  function)  0,6 

MuHIdlmantlonal  array  3.6 

MuHIpla 

component  declaration  3.7;  3.2 
deferred  oonitant  declaration  7,4;  3.2 
diacrimlnant  apaclflcatlon  3.7.1;  3.2 
gannilc  paramatar  declaration  12.1;  3.2 
number  declaration  3.2.2;  3.2 
object  declaration  3.2 
paramatar  apaclflcatlon  6.1;  3.2 

MuNIpIleatlon  operation  4.6.6 

accuracy  for  a  real  type  4.6.7 

Multiplying  operator  4.6;  4.5.6,  C 
laae  alao;  arithmetic  operator,  overloading  cf  an  operator] 
In  a  term  4.4 
overloaded  6.7 

Muat  (legality  raquiramenti  1.6 
Mutually  recuralva  typea  3.8,1;  3.3.1 


NAME  (Input-output  function) 

In  an  Initanoe  of  dlractJo  14.2.1 
In  an  Inatanca  of  lequantlaIJo  14.2.1 
In  taxUo  14.2.1 

NAME  (pradaflnad  type) 
laae;  ayttem.namej 


Name  (of  ^n  entity)  4.1;  2.3,  3.1,  0 
laae  omo;  attribute,  block  name,  denote,  dealgnator, 
evaluation  of...,  forcing  occurrence,  Unction  call.  Identifier, 
Indexed  component,  label,  loop  name,  loop  parameter, 
operator  aymbol,  renaming  declaration,  aelactad  compo¬ 
nent,  aimple  name,  dice,  typa_mark,  vlxlblllty] 
ae  a  prefix  4,1 
at  a  primary  4,4 

aa  the  argument  of  a  pragma  2.8 
at  the  e.xpreatlon  In  a  oaia  etatamant  5.4 
conflict*  B.b 

declared  by  renaming  la  not  allowed  at  prefix  of  cer¬ 
tain  expanded  namet  4.1.3 
declared  In  a  generic  unit  12.3 
denoting  an  entity  4.1 

denoting  an  objact  datignated  by  an  accata  value 

4,1 

generated  by  ait  Implementation  13,4 
ttarting  with  a  prefix  4.1 ;  4.1,1, 4.1.2, 4.1,3,  4,1,4 

Name  atring  (of  a  file)  14.1;  14.2.1,  14.2.3,  14.2.6,  14.3, 
14.3.10.  14.4 

NAME-ERROR  (Input-output  exception)  14.4;  14.2.1, 
14.2.3,  14.2.5,  14.3.10,  14.6 

Named  aatoelatlon  6.4.2,  O 

Itee  alto;  component  aatoelatlon,  dltcrlmlnant  attoclt- 
tlon,  ganaric  attoclatlon.  paramatar  aatoelatlon] 

Named  bloek  atatamant 

(tea;  block  name] 

Named  loop  atatamant 

(tea:  loop  name] 

Named  number  3.2;  3.2.2 
aa  an  entity  3.1 
aa  a  primary  4.4 
In  a  atatlc  axpraatlon  4.9 

NATURAL  (pradaflnad  Integer  aubtype)  C 

Negation 

jtee;  logical  negation  operation] 

Negation  operation  (numeric)  4.6.4 

Negative  exponent 

In  a  numeric  literal  2.4.1 

TO  an  axpunentlatlon  operator  4.5.6 

NEW-LINE  (taxt-lo  procedure)  14.3.4;  14.3.6,  14.3.6, 
14.3.10 

reiving  an  exception  14.4 

NEW-PAOE  (textJo  procedure)  14.3.4;  14.3.10 
ralaing  an  exception  14.4 

No  other  affect 

|aaa:  elaboration  hat  no  other  affect] 

Not  equal 

compound  delimiter  (taa;  Inequality  compound 
dellmltarj 

operator  jaae;  relational  operator] 

Not  In  mambarahip  teat 
lace:  ruomberahip  teat] 

Not  unary  operator 

laae:  higheat  precadenco  operatorl 

aa  an  operation  of  an  array  type  3.6.2 
aa  an  operation  of  boolean  type  3.6.6 
In  a  factor  4.4 


Mod*  •  Not  unary  oparator 
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Net  yet  elaborated  3.fi 

Null  aceoM  value  3.8;  3.4,  4.2.  6.2.  11.1 
lata  also:  default  Initial  value  of  an  accaaa  type  ob'loct] 
cauaing  conatralnt_error  4.1 
not  cauaing  conatralnt_arror  11.7 

Null  array  3.6.1;  3.6 

aggregate  4.3.2 

and  relational  operation  4.5.2 

aa  an  operand  of  a  catenation  4.5.3 

Null  component  Hal  3.7 

Null  literal  3.8.  4.2 
laee  alao:  overloading  of... I 

aa  a  baalc  operation  3.3.3;  3.8.2 
01  a  primary  4.4 

mutt  not  be  the  argumont  of  a  oonvortlon  4.6 
Null  range  3.6 

at  a  choice  of  a  variant  part  3.7.3 
for  a  loop  parameter  S.6 

Null  record  3.7 

and  relational  op  iratlon  4.6.2 

Null  allce  4.1.2 
laee  alao:  array  type] 

Null  atatomant  8.1 
laee  olao;  itatemanti 

aa  a  ilmpla  atatement  6.1 

Null  atring  literal  2.8 

Number 

Iteei  bated  literal,  decimal  lltertll 

Number  declaration  3.2.  3.2.2 

at  a  bctic  declaration  3.1 

NUM86R_8A86  (predefined  Integer  aubtype)  14,3.7; 
14.3.10 

Numeric  literal  2.4,  4.2;  2.2,  2.4.1.  2.4.2 
Itae  alto;  univertal  type  expraatlon] 
and  an  adjacent  aaparator  2.2 
at  a  baalc  operation  3.3.3 
at  a  primary  4.4 

ae  the  parameter  of  value  attribute  3.6.8 
aa  the  result  of  Image  attribute  3.6.6 
ataigned  5.2 

can  be  vvritten  In  the  basic  character  aet  2.10 
In  a  CO.  iOrmIng  contiruol  6.3.1 
In  a  static  axpratalon  4.9 
In  pragma  memory _alza  13.7 
In  pragma  atorage.unlt  13.7 


not  raised  due  to  optimization  1 1 .6 

raised  by  a  numeric  operator  4.5 

raised  by  a  predefined  Integer  operation  3.5.4 

raised  by  a  real  result  out  of  range  of  the  safe 

numbers  4.5.7 

raised  by  a  universal  eapratslon  4.10 

raised  Dy  Integer  division  remaindar  or  modulus 

4.6.6 

raised  due  to  a  conversion  out  of  range  3.6.4.  3,6.6 


Object  3.2;  3.2.1,  D 

jsee  also:  address  attribute,  allocator,  collection,  compo¬ 
nent,  constant,  formal  parameter,  generic  formal 
parameter.  Initial  value,  loop  parameter,  size  attribute, 
storage  bits  allocated,  auboomponant,  variable) 
aa  an  actual  parametar  6.2 
aa  a  ganaric  formal  parameter  12.1.1 
created  by  an  allocator  4.8 
created  by  slaboratlon  of  an  object  declaration  3.2.1 
of  an  access  type  laee;  access  type  object] 
of  a  file  type  (see:  file) 
of  a  task  type  (see:  task  object) 
renamed  8,6 

subject  to  an  address  clause  13.6 
subject  to  a  representation  olauae  13.1 
subject  to  a  suppress  pragma  11.7 

Object  deciarstlen  3.2,  3.2.1 

(see  also;  elaboration  of...,  generic  parametar  declaration) 
as  a  basic  declaration  3.1 
as  a  full  declaration  7,4.3 
Implied  by  a  task  declaration  6.1 
In  a  package  apaolficatlon  7.1 
of  an  array  object  3.6. 1 
of  a  record  object  3,7.2 
with  a  limited  type  7,4.4 
with  a  task  type  9,2;  9.3 

Object  designated 

by  an  aooeaa  value  3.2,  3.8,  4.6;  4.1.3,  6.2,  9,2, 

11.1  laee  also:  task  object  deslgnstad,..i 

by  an  access  value  denoted  by  a  name  4.1 

by  an  access-to-array  type  3.8.1 

by  an  aocess-to-record  type  3.7.2 

by  a  generic  formal  acoaas  type  value  12.3.8 

Object  module 

lor  a  subprogram  written  In  another  language  13.9 

Obsolete  compilation  unit  Idua  .o  racompllatlon)  10.3 

Occur  immadlataly  within  (a  deolarativa  region)  8.1;  6.3, 

8.4,  10.2 

Omitted  perameter  aaaocleMon  for  a  subprogram  coll  6.4.2 


Numeric  operation  of  a  universal  type  4.10 
Numeric  type  3.6 

Isee  also;  conversion,  fixed  point  type,  floating  point  typt. 
Integer  type,  real  type,  acalar  type] 

operation  4.5,  4.5.2,  4.5.3,  4.6.4.  4.6.5,  4.6.6 

Numeric  type  exprentlon 

In  u  length  clause  13.2 

Numeric  value  of  a  named  number  3.2 

NUMERIC-EHROR  Iprsdeflned  exception)  11.1 
Isee  alao:  suppreia  pragma) 

nc't  raised  due  to  lost  overflow  condition!  13.7.3 


OPEN  (Input-output  procedure) 

In  an  Instance  of  diraot-lo  14.2.1;  14.1,  14.2.5 
In  an  Instancn  of  leguantlaUo  1 4.2. 1 ;  1 4. 1 , 1 4,2.3 
In  taxUo  14,2.1;  14.1,  14,3,1,  14.3,10 
raising  an  exception  14.4 

Open  •llernatlva  9.7.1 
Isee  eUo'  alternatlvaj 

scccpting  a  conditional  entry  cell  9.7.2 
accepting  a  timed  entry  call  9.7,3 

Open  file  14.1 

Operation  3.3,  3.3.3;  D 

Isee  also;  basic  operation,  direct  vltibillty,  operator, 


Not  yet  elaborated  •  Operation 
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priidtflncd  optritlon,  visibility  by  ssitotlon,  visibility) 
cisssificstlon  3.3.3 
of  an  accsss  type  3.8.2 
of  sn  array  typa  3.8.2 
of  a  discrsta  typa  3.5.5 
of  a  fixad  point  typa  3.5.10 
of  a  floating  point  typa  3.5.8 
of  a  ganarlc  actual  typa  12.1.2 
of  a  ganarlc  formal  typa  12.1.2;  12.3 
of  a  limited  typa  7.4.4 
of  a  private  typa  7.4.2;  7.4.1 
of  a  record  type  3.7.4 
of  a  subtype  13 

of  a  subtype  of  a  discrete  type  3.6.b 
of  a  type  3.3 
of  a  universal  type  4.10 
propagating  an  exception  1 1 .6 
sublect  to  a  suppress  pragma  11.7 

Oparator  4.6;  4.4,  C,  0 

Isas  also;  binary  adding  oparator,  designator,  axponan- 
tlatlng  oparator,  function,  highest  praoadanoa  operator, 
logical  oparator,  multiplying  operator,  oysrioading  of..., 
pradsfinsd  operator,  relational  oparator,  unary  adding 
operator) 

as  an  operation  3,3.3  [see  also;  operation) 

Implicitly  daclarad  3.3.3 

In  an  expression  4.4 

In  a  static  exprasslon  4.9 

of  a  derived  typa  3.4 

of  a  ganarlc  actual  typa  12,1.2 

ovsrioadad  6.7;  6.6 

renamed  6,6 

Operator  declaration  6.1;  4.6,  6.7 

Oparator  symbol  6.1 

|sea  also;  direct  visibility,  overloading  of  ..,  scope  of..,, 
visibility  by  aalsctlon,  visibility) 
as  a  designator  6.1 

at  a  doilgnator  In  a  function  declaration  4.6 

at  a  name  4.1 

before  arrow  compound  delimiter  6.3 
declared  3.1 

declared  In  a  generic  unit  12.3 

In  a  renaming  declaration  8.5 

In  a  selector  4.1.3 

In  a  static  yxprstiion  4.9 

not  allowed  as  the  designator  of  a  library  unit  1 0. 1 

of  a  generic  formal  function  12.1.3,  113 

of  homograph  daolsratlons  8.3 

oyarloaded  6.7;  6.6 


Optimliation  10.6 
lass  alto:  optimite  pragma) 
and  exceptions  1 1 .6 

OPTIMIZE  Ipradefined  pragma)  8 

Or  elae  control  form 
Itte:  short  circuit  control  form) 

Or  operator 

|tee:  logical  operator) 

Order 

Isee:  Lexicographic  order) 

Order  not  defined  by  the  language 

Isas:  Incorrect  order  dependanoe) 

Order  of  appllaellon  of  operators  In  an  expression  4.6 


Order  of  compilation  (of  compilation  units)  10.1,  10,3; 
10.1.1,  10.4 

creating  recompilation  dependence  10.3 

Order  of  copying  back  of  out  and  In  out  formal  parameters 

6.4 

Order  of  elaboration  3.0 

Isee  also:  Incorrect  order  dependence);  lof  compilation 
units)  10.5;  10.1.1 

Order  of  evslustlon  1.6 
lane  also:  Incorrect  order  dependence) 
and  exceptions  1 1.6 
of  conditions  In  an  If  statement  5.3 
of  default  expressions  for  components  3.2.1 
of  expressions  and  the  name  In  an  aealgnmsnt 
statement  5.2 

of  operands  In  an  exprasslon  4.6 

of  parameter  associations  In  a  subroutlr>''<  call  6.4 

of  the  bounds  of  a  range  3,5 

of  the  conditions  In  a  salactlve  writ  9.7.1 

Order  of  execution  of  statements  6.1 
Isee  also:  Incorrect  order  dapendance) 

Ordering  operator  4.6;  4.5.2 

Ordering  relation  4.6.2 

Isee  also;  relational  operator) 
for  a  real  type  4,5.7 

of  an  enumeration  typa  preserved  by  a  representa¬ 
tion  clausa  13.3 
of  a  scalar  type  3.5 

Other  affaet 

Isee:  elaboration  has  r>o  other  affect) 

Other  speolal  oharaeier  2.1 

Isee  also:  graphic  nhoraottr) 

Others  3.7.3 

as  a  choice  In  an  array  aggregata  4.3.2 
as  a  choice  In  a  case  statement  alternative  6.4 
as  a  choice  In  a  component  association  4.3 
ss  s  choice  In  a  record  aggregate  4.3.1 
as  s  choice  In  a  variant  part  3,7.3 
as  sn  sxceptlon  choice  1 1 .2 


Out  mode 
Isee:  mode  outi 

OUT-EILE  (Input-output  fils  mode  enumeration  literal)  14,1 

Overflow  of  real  operations  4,8.7;  13.7.3 

Overflow-Cheek 
Isee:  numerlc-orror,  suppress) 

Overlapping  scopes 
Isee:  hiding,  overloading) 

Overlapping  slices  In  array  assignment  6Jt.1 

Overlaying  of  objects  or  program  units  13.8 

Overloading  8.3;  D 

Isee  also:  designator,  homograph  declaration.  Identifier, 
operator  symbol,  scope,  simple  name,  subprogram, 
visibility) 

and  vlalblllty  8.3 

In  an  assignment  statement  6.2 
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Operator  •  Overloading 


In  an  axprasalon  4,4 

ratolutlon  6.6 

resolution  context  8.7 

resolved  by  explicit  qualification  4.7 

Oearloadlns  of 

an  agoregsta  3,4 
an  allocator  4.8 
a  declaration  8,3 
a  designator  6.8:  6,7 
an  entry  9.6 

an  enumeration  literal  3.5.1;  3.4 
a  generic  formal  subprogram  12.3 
a  generic  unit  12.1 
an  Identifier  6.6 

a  library  unit  by  a  locally  daelarsd  subprogram  10.1 
a  library  unit  by  means  of  renaming  10.1 
a  literal  3.4 

a  mamberahip  teat  4.5.2 
an  operator  4.6,  6.7;  4.4,  6.1 
an  operator  symbol  6.6;  6.7 
a  subprogram  6.6;  6,7 

a  subprogram  subjaot  to  an  Intarface  pragma  1 3.0 
the  expression  In  a  case  statement  8.4 


PACK  (predefined  pragma)  13.1;  B 
Paakage  7,  7.1;  D 

lass  also:  dsfarred  constant  daclaratlon,  library  unit, 
prsdafinad  packaga,  private  part,  program  unit,  visible 
parti 

at  a  generic  Instance  12.3;  12 
Including  a  raise  statsmant  11.3 

named  In  a  use  clause  8.4 

renamod  8.6 

sublect  to  an  addrast  clausa  13.6 
subjeot  to  repreisntatlon  clausa  13.1 
with  a  oeparately  compiled  body  10.2 

Package  body  7.1,  7.3;  D 
isea  also;  body  itubi 

as  a  ganarlc  body  12.2 
as  a  proper  body  3.9 
as  a  secondary  unit  10.1 

as  a  secondary  unit  compiled  after  the  cor* 

responding  library  unit  10.3 

In  another  packaga  body  7.1 

Including  an  exception  handler  11.2;  11 

Including  an  exit  statement  6.7 

including  a  goto  atatemant  9.9 

Including  an  Implicit  declaration  6.1 

must  be  In  the  same  deolaratlve  region  at  the 

daclaratlon  3.9 

raising  an  exception  11  4.1,  11.4.2 
recompiled  10.3 

subject  to  a  suppress  pragma  11.7 

Paekage  declaration  7,1,  7.2;  D 

and  body  as  a  declarative  region  8.1 
at  a  basic  declaration  3.1 
at  a  later  daolarstivs  Item  3.9 
at  a  library  unit  10.1 

determining  the  vielblllty  of  another  declaration  6.3 
elaboration  raising  sn  exception  11.4.2 
In  a  package  apecifloetlon  7.1 
recompiled  10.3 

Package  identifier  7.1 

Package  apaclfloatlon  7,1,  7,2 

In  a  generic  declaration  12,1 


Including  an  Inline  pragme  6,3.2 
Including  an  Intarface  pragma  13.9 
Including  a  repraaantatlon  clause  13.1 
Including  a  suppress  pragma  11.7 

Page  14.3.  14.3.4 

PAGE  (predefined  pragma)  B 

PAGE  (taxUo  function)  14.3.4;  14.3.10 
raising  an  exception  14.4 

Page  length  14.3,  14.3.3;  14.3.1.  14.3.4,  14.4 

Page  terminator  14.3;  14.3.3,  14.3.4,  14.3.5 

PAGE_LENGTH  (laxUo  function)  14.3.3;  14.3.10 
raising  an  axoeptlon  14.4 

Paragraphing  rscommendod  for  the  layout  of  programs  1.6 

Parallel  axeeuilon 
.laae;  task) 

Parameter  D 

laae  also:  actual  parameter,  default  expression,  antry,  for* 
mat  parameter,  formal  part,  function,  ganarlc  actual 
paranteter,  generic  formal  parametsr,  loop  parainetsr, 
mode,  procedure,  subprogram! 
of  a  main  program  10.1 

Parametsr  and  result  type  pioflla  6,6 

Parametsr  aasoclatlon  6.4,  6.4.1 

for  a  darived  subprogram  3.4 

namad  paramatsr  association  6.4 

nsmsd  parameter  asaoclatlnn  for  asisotiva  vlalbillty 

8.3 

omitted  for  a  subprogram  cal!  6.4.2 
positional  psramstar  aasoclatlon  6.4 

Paramatsr  declaration 

laae:  generic  parameter  dsolsrstlon,  parameter 
apeolflcstlonl 

Parameter  part 
Isea:  actual  parameter  part) 

Parameter  specif loetlon  6.1 
Isea  also:  loop  parameter  apoolflcatlonl 
as  part  of  a  basic  daclaratlon  3.1 
having  an  extended  scope  8.2 
In  e  formal  part  6.1 
visibility  8.3 

Parameter  type  profile  6.6 

Parent  subprogram  Inf  s  derived  subprogram)  3.4 

Parent  subtype  (of  a  derived  subtype)  3.4 

Parent  type  (of  a  derived  type)  3.4;  D 
Isea  also:  derived  typel 

declared  In  a  visibis  part  3.4 
of  a  gsnerlc  actual  type  12.1.2 
of  a  numsric  type  Is  predefined  and  anonymous 
3.6.4.  3.6.7,  3.6.9 

Parent  unit  (of  a  body  stub)  10.2 

compiled  before  Its  subunits  10.3 

Paientheela 

character  2.1 
delimiter  2.2 


Overloading  of  •  Parenthesis 
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inaax 


PtrtnthMltMl  Moranlon 

•t  a  primary  4.4;  4.fi 
In  a  atatic  aapraaalon  4.9 


laat:  actual  paramatar  part,  daolarativa  part,  dltcrimlnant 
part,  formal  part,  genarle  actual  part,  ganarlo  formal  part, 
variant  parti 

Partial  ordaring  of  compilation  10,3 

Parcant  charactar  2.1 
Itaa  alto:  itring  lltarall 

replacing  quotation  oharaotar  2.10 

Period  character  2.1 

Itaa  alto;  dot  oharactor,  point  charactar) 

Phyalcal  procaaaor  9;  9.8 

Plua 

charactar  2.1 
delimiter  2.2 

operator  liaa:  binary  adding  operator,  unary  adding 
oparatorl 

unary  operation  4.S.4 

Point  character  2.1 
Itaa  alto:  dot) 

In  I  bated  literal  2.4.2 
In  c  decimal  literal  2.4.1 
In  a  numeric  literal  2.4 

Point  dollmitar  2.2 
Pointer 

(coal  accett  type) 

Portability  1,1 

of  programt  uilng  real  typaa  13.7,3;  3.8.8 

P08  Iprodefinod  attribute )  3.B<B;  1 3,3,  A 

POSITION  iprodafined  attribute)  13.7JI;  A 
(aaa  alto:  record  repratentatlon  clautol 

Petition  number 

aa  paramatar  to  val  attrlbuta  3.8.8 
of  an  enumaratlon  lltaral  3.8.1 
of  an  Integar  valua  3.8.4 
of  a  valua  of  a  dltcrete  typa  3.8 
raturnad  by  pot  attrlbuta  3.8.8 

Petition  of  a  componant  within  a  raoord 
laee:  racord  rapratantatlon  clauaal 

Poaltlon  of  an  elamant  In  a  direct  accaaa  file  14 J 

Poeltlonal  aaaoolatlon  8.4;  6,4,2,  0 
Itaa  alto:  componant  attoclatlon,  diaorlmlnant  aaaoola¬ 
tlon,  ganarlo  aaaoolatlon,  paramatar  aaaeclatlon) 

POSITIVE  (pradafinad  Intagar  tubtypa)  3.8.3:  14.3,7, 
14,3,8,  14.3.9,  14.3.10,  C 

at  Ihc  Index  typa  of  the  tiring  type  3.8.3 

POSITIVE-COUNT  Ipradafinad  Intagar  aubtypal  14.2.8, 
14.3.10;  14.2.4.  14.3,  14.3.4 

Petanllally  vltlMa  deolarellon  8.4 

Pound  ttarling  oharaotar  2.1 

Power  operator 
Itaa;  axpoiiantlating  oparttor) 


Pragma  2.8;  2.  D 
laee  alao:  predefined  pragma) 

applicable  to  the  whole  of  a  compilation  10.1 
argument  that  la  an  overloaded  tubprogram  name 
8.3.2,  8,7,  13,9 

for  the  apecificatlon  of  t  tubprogram  body  In 
another  language  13,9 

for  the  apecificatlon  of  program  ovarlaya  13.8 
In  a  code  procedure  body  1 3.B 
recommending  the  rapreaentatlon  of  an  entity  1 3. 1 
tpeclfylng  Implementation  oonvantlona  for  code 
atatemanta  13.8 

Precedence  4.6 

Precltlon  (numeric) 
laee;  delta,  digital 

PNEO  (predefined  attribute)  3.B.B;  13.3,  A 

Predoceaeor 
laee:  prad  attribute) 

Predefined  attribute 

laaa:  addraaa,  bate,  callable,  conttralnad,  count,  firat, 
firat-bit.  Image,  laat,  Ittt-bit,  pot,  prad,  range,  alia,  tmall, 
ttortga-tita,  tucc,  terminated,  utl,  value,  width) 

Predefined  conttant  8.8;  C 
laee  alao;  ayttam.tyttam_ntma| 

for  CHARACTER  valuta  |taa;  atoll) 

Pradafinad  exception  8.8,  11.1;  11.4.1,  C 
laee  alao;  oonatralnt-error,  lo-axoaptlont,  numtrlo-error, 
program-error.  tttklng_arror,  tlma_arror) 

Predefined  function  8.8;  C 

laaa  alao;  attribute,  oharaotar  literal,  enumaratlon  literal, 
pradafinad  generic  library  function) 

Predefined  generic  library  funedon  S.8;  C 
laaa  alto:  unohaoked-oonvartlon) 

Pradafliwd  ganarlo  library  paekaga  S.8;  C 
laee  alao;  dIraoUo,  Input-output  paoltage,  taquantlalJo) 

Pradoflnad  ganarlo  library  proeadurt  8.8;  C 
laaa  alao:  unchaoked-deallooatlon) 

Predefined  generic  Nbrary  tubprogram  8.8;  C 

Predefined  Identifier  8.8;  C  ) 

Predefined  library  package  8.8;  C 
laaa  alao:  predefined  generic  library  package,  pradahnad 
package,  aacll,  calendar.  Input-output  paekaga,  lo_axoap- 
tlona,  low-leval.Jo,  machlna-ooda,  ayatam,  taxUoI 

Predefined  library  tubprogram 

laaa:  predefined  ganarlo  library  tubprogram) 

Predefined  named  number 

Itaa:  tyatem.flna_dalta.  ayatam. max_dlgltt,  tyatam.maxjnt, 
ayatam.max-mantlaaa,  ayttem.mamory-tlia. 
ayatam.mln_lnt,  ayatam. atoraga-unit,  ayatam. tick) 

Predefined  operation  3.3,  3.3.3;  8.8 
laee  alao:  operation,  predefined  operator) 
accuracy  for  a  real  typa  4.IS.7 
of  a  diacreta  type  3.6.6 
of  a  fixed  point  typa  3.8.10 
of  a  floating  point  typa  3.8,8 
of  a  univaraal  type  4.10 
propagating  an  exception  1 1 .8 
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Pridafinid  oparator  4.S,  8.6;  C 
laae  also:  ahs,  arithmetic  oparator,  binary  adding  oparator, 
catenation,  equality,  exponentiating  oparator,  highatt 
precedanca  operator,  Inequality,  limited  type,  logical 
operator,  multiplying  operator,  operator,  predefined  opera¬ 
tion,  ralatlonal  oparator,  unary  adding  oparator) 
applied  to  an  undefined  value  3.2.1 
aa  an  operation  3.3.3 
for  an  accesa  type  3.8.2 
for  an  array  type  3.6.2 
lor  a  renorri  type  3,7,4 
Implicitly  declared  3.3.3 
In  a  static  expreailon  4.9 
of  a  derived  type  3.4 
of  a  fixed  point  type  3.5.9 
of  a  floating  point  type  3.5.7 
of  an  Integer  type  3.5.4 
raising  an  exception  11.4.1 

Pradafinad  package  8.6;  C 

laae  also:  aacll.  library  unit,  pradafinad  library  packaga, 
standard) 

lor  Input-output  14 

Pradafinad  pragma 

liaa:  controlled,  alaborata.  Inline,  Interface,  Hat, 
msmory_slia.  opthnlaa,  pack,  page,  priority,  aharad, 
atoraga-unlt,  tuppraaa,  ayatam-nama) 

Pradallnact  subprogram  8.6:  C 
laae  also:  Input-output  subprogram,  library  unit, 
predefined  generic  library  subprogram) 

Pradafinad  lubtypa  8.8;  C 

laae  alao:  Held,  natural,  numbsr_baaa,  posltlva,  priority) 
Pradafinad  type  8.8;  C 

laae  alao:  boolean,  character,  count,  duration,  float. 
Integer,  long Jloat,  longJntegar,  priority,  ahort-float,  abort. 
Integer,  itring.  ayitam.addraai,  ayatam  .nemo,  time, 
unlvariaLIntager.  unIvaraaLra'all 

Prefix  4.1;  D 

laae  also;  iipproprlata  for  a  type,  function  call,  name, 
lelaoted  component,  solaotorl 
In  an  attribute  4,1.4 
In  an  Indexed  component  4.1.1 
In  a  ifllacted  component  4.1,3 
In  a  slice  4.1.2 
that  la  0  function  call  4.1 
that  la  a  name  4.1 

Primary  4.4 

In  a  factor  4,4 

In  a  static  expression  4.9 

PRIORITY  Ipredallned  Integer  subtype)  9.8;  13,7,  C 
Isee  also:  Task  priority) 

PRIORITY  {predefined  pragma)  9.8;  13.7.  8 
hee  also:  Task  priority) 

Private  part  lof  a  packaga)  7.2;  7.4.1,  7.4.3,  0 
laae  also:  defeired  constant  declaration,  private  type 
declaration) 

Private  type  3.3,  7.4,  7.4.1;  D 
)toa  also:  class  of  type,  derived  type  of  a  privala  type, 
limited  private  type,  type  with  discriminants] 
as  a  generic  actual  type  12,3.2 
as  a  generic  formal  typa  12.1.2 
as  e  parent  type  3.4 
corresponding  full  type  declaration  3.3.1 
formal  parameter  6.2 


of  a  deferred  constant  7.4;  3.2.1 
operation  7.4.2 

Private  typa  declaration  7.4;  7.4.1,  7.4.2 
jsee  also:  private  part  (of  a  packaga),  visible  part  (of  a 
pucksge)! 

as  a  generic  typa  declaration  <2,1 
as  a  portion  of  a  declarative  region  8.1 
including  the  word  llmltsd'  7.4.4 

Ptoeadura  6.1;  6.  0 

(sett  also:  parameter  and  result  type  profile,  parameter, 
subprogram) 

as  a  main  program  10. 1 
as  a  renaming  of  an  entry  9.6 
renamed  8.5 

Ptoeadura  body 
laae:  subprogram  body) 

including  code  statamants  13.8 

Procedure  call  6.4;  0,  0 
laae  also:  subprogram  call) 

Procedure  call  alatamartt  8,4 
laae  also:  actual  paramatar,  atatamant) 
as  a  simple  atatamant  B.1 
with  a  parameter  of  s  derived  type  3.4 

Proeadura  spaolflcatlon 
|saa;  subprogram  spaolflcatlon) 

Processor  9 

Profila 

Isaa:  paramatar  and  result  typa  profila,  paramatar  type 
profila) 

Program  10;  0 
Isas  also:  main  program) 

Program  legality  1.6 

Program  library  10.1,  10.4;  10.6 
creation  10.4;  13.7 
manipulation  and  atstua  10.4 


Program  optimlxatlon  11.8:  10.8 
Program  text  2.2,  10.1;  2.10 
Program  unit  8,  7.  9.  12:  D 

liaa  altp;  addrsia  attribute,  ganarlu  unit,  library  unit, 
packaga,  subprogram,  teak  unit] 

body  separataly  compiled  lies:  lubunlt) 

Including  s  declaration  dsnotad  by  an  expanded 
name  4,1.3 

Including  a  auppraia  pragma  11.7 
subject  to  an  addraos  clausa  1 3.5 
with  a  laparately  compiled  body  10.2 

PROQRAM-ERROR  Ipradsfinad  sxoeptloni  11.1 
laea  alio:  erronaous  execution,  suppraaa  pragma) 

raised  by  an  erroneous  program  or  Incorract  order 
dependence  1,6;  11.1 

raised  by  a  generic  Instantlstlon  before  aliboratlon 

of  the  body  3.9;  12.1,  12.2 

ralaod  by  a  selsctlva  wait  9,7.1 

railed  by  a  subprogram  call  bnfora  alaboratlon  of 

the  body  3.9;  7.3 

relaad  by  a  taak  activation  before  elaboration  of  the 
body  3.9 

raised  by  raacfilng  the  and  of  a  function  body  6.6 


Pradefined  operator  •  Programuarror 
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kvopagation  of  an  axceptlon 
Im#:  adaption  propagation] 

Propar  body  3.9 

aa  a  body  3,9 
In  a  aubunit  10.2 

of  a  library  unit  aaparataly  oompllad  10.1 

PUT  |taat_lo  procadura)  14, 3(  14.3.8;  14,3.2,  14,3.10 
for  charactar  and  string  typaa  14.3.6 
for  anumaratlon  typaa  14.3.9 
for  Intagar  typaa  14.3.7 
for  raal  typaa  14.3.8 
raising  an  sKcaptlon  14.4 


Qualification  4.7 

aa  a  basic  oparatlon  3.3.3;  3.3, 3.B.S,  3.8,8, 3.6.10, 
3.8.2,  3.7.4,  3.8.2,  7.4.2 

using  a  nanta  of  an  anumaratlon  typa  aa  quallflar 

3.8,1 

Quallfiad  aaprasslon  4.7;  D 
as  a  primary  4.4 
In  an  allocator  4.8 
In  a  cats  aiatamant  8,4 
In  a  static  aspraaalon  4.9 
qualification  of  an  array  aggragata  4.3.2 
to  raiolva  an  ovarloading  ambiguity  8.6 

Quaua  of  entry  calls 
itaa;  antry  quaua) 

Quaua  of  Iniarrupta 
liaai  entry  quaua! 

Quotation  eharaatar  2.1 

In  a  string  lltaral  2.8 

raplacamant  by  paroant  charactar  2,10 


Radia  of  a  floating  point  type  3.8.7;  1 3.7.3 

Ralaa  atstamant  11.3;  11 
Isaa  also:  ascoptlon,  statamantj 
at  a  timpla  itatamant  8.1 
Including  tha  nama  of  an  asoaptlon  11.1 

Raising  of  an  asoaptlon  11,  11.3;  0 
Itaa  nlNo:  osoaptlonj 

causing  a  trantfar  of  control  8.1 

Rango  3.8:  D 

Itaa  alto:  ditortta  ranga,  null  rangaj 
at  a  diaorata  range  3.8 
In  a  racord  raprasantatlon  clausa  13.4 
In  a  ralallon  4.4 
of  an  Index  subtype  3,8 

of  an  Intagar  typa  containing  tha  result  of  an  opera¬ 
tion  4.6 

of  a  pradafinad  Intagar  typa  3,8.4 

of  (1  raal  typa  containing  tha  result  of  an  operation 

4.6,7 

vlaldtd  by  an  attribute  4,1.4 

RANOi  (predefined  attilbuta)  3.8.2;  4.1.4,  A 
for  an  aocata  value  3.8.2 

Ranga  constraint  3.6;  D 

Isaa  also:  elaboration  of...] 


Ignored  dua  to  rsnga_ohaol<  aupprott.on  11.7 

in  a  fixed  point  constraint  3.6.9 

In  a  floating  point  constraint  3.8.7 

In  an  Intagar  typa  definition  3.8.4 

In  a  subtype  Indication  3.8;  3.3.2 

on  a  darivad  subtype  3.4 

violated  11.1 

Rango-chacs 

Isaa;  oonstrt.  nuerror,  suppresa] 

READ  (Input-output  procadura) 

In  an  Instance  of  dlraoulo  14.2.4;  14.1,  14,2, 
14.2.8 

In  an  Instance  of  aaquantlaIJo  14.2.2;  14.1,  14,2, 
14.2.3 

Raadbtg  tha  valuo  of  an  objaot  6.2,  9.1 1 

Raal  lltaral  2.4 
Isaa  also:  unlvarsal./aal  type! 

In  basati  notation  2,4,2 
In  dscimal  notation  2,4,1 
Is  of  typa  unIvarsaLraal  3.8.6 

Real  typa  3.8.6;  3.3,  3.8,  D 

Isaa  also;  fixed  point  typa,  floating  point  typa,  modal 
numbar,  numeric  typa,  safe  number,  aoalar  typa,  unlvar- 
saLraal  typa) 

accuracy  of  an  oparatlon  4.8.7 

raprasantatlon  sttrlbuta  13.7.3 

result  of  a  conversion  from  a  numarlo  typa  4.8.7; 

4.6 

result  of  an  operation  out  of  ranga  of  tha  typa  4.8.7 

Raal  typa  definition  3.8.6;  3.3.1,  3.6.7,  3,8.9 
Isaa  also:  elaboration  of...) 


RICIIVE-CONTROL  (lowJavaUo  procadura)  14.8 

Rociprooal  oparatlon  In  sxponsntlstlon  by  a  negative  Integer 

4.8.8 

Recompilation  10,3 

Record  aggragata  4.3.1 ;  4.3 
Isaa  also;  aggregate) 

as  a  basic  oparstlon  3.3.3:  3.7.4 
In  a  cods  statsmsnt  13.8 

Racord  component 

Isaa;  ooinponant,  record  typa,  salaoted  component) 

Record  raprasantatlon  clausa  13.4 
Isas  also;  flrst_blt  altrlbuts,  Isstjilt  attrlbuta,  position 
attrlbuta) 

as  a  raprasantatlon  clausa  13.1 

Record  typo  3,7;  3.3,  D 

Isaa  also:  componant,  composits  typo,  discriminant, 
matching  components,  subcomponent,  typo  with  discrimi¬ 
nants,  vsriant) 

formsi  parsmatar  6,2 

Including  a  llmitad  subcomponant  7.4.4 

oparatlon  3.7,4 

Record  type  daelaratlon 
Isaa:  racord  typa  definition,  typa  daelaratlon) 
as  a  daolaratlva  region  8.1 
determining  tha  visibility  of  snothar  daelaratlon  8.3 

Raoord  typa  definition  3.7;  3,3.1 
Isaa  also:  componant  daelaratlon) 
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call  of  a  tubprograin  6.1,  12.1;  6.3,2 
ganaric  Inatantlatlon  12.1,  12.3 
typai  3.8.1 :  3.3.1 

Rt  antrant  subprogram  6.1 

Rsfaranoa  Ipatamalar  passing)  6.2 

Rolallon  (In  an  axprssslon)  4.4 

Ralatlonal  axprssslon 
leas:  ralatlon.  relational  operator] 

Ralatlonal  operation  4,5.2 

of  a  boolean  type  3.6.3 
of  a  discrete  type  3.5.6 
of  a  flsad  point  typa  3,6.10 
of  a  floating  point  typa  3.6,8 
of  a  scalar  typa  3.6 
rasult  for  raal  oparanda  ^.6.7 

Relational  operator  4.B;  4.6.2,  C 
Issa  also;  aquallty  opurator,  Inaquallty  operator,  ordering 
ralatlon,  ovarloading  of  an  operator,  predeflnad  operator) 
for  an  acoass  typa  3.8.2 
for  an  array  type  3.6.2 
for  a  privata  typa  7.4.2 
for  a  record  typo  3.7.4 
for  time  pradafinad  type  9.3 
In  a  relation  4.4 
ovarloadsd  8,7 

Relative  address  of  a  component  within  a  record 
jssai  rscord  rsprsaentatlon  alauaej 

Rem  operator  4.8.6 
(see  also:  multiplying  operator] 

Remainder  operation  4.8.8 

Renaming  daelarotlon  8.6;  4.1,  12.1.3,  D 
(see  alto;  name! 

at  a  basic  declaration  3.1 

at  a  declarative  region  8.1 

oannr<t  rename  a  unlveraalJIxad  operation  4.6.6 

for  an  array  object  3.6.1 

lor  an  entry  9.6 

for  a  record  object  3.7.2 

name  declared  Is  not  allowed  at  a  prefix  of  certain 

expandiid  namaa  4.1  3 

to  overload  a  library  unit  10.1 

to  overload  a  subunit  10.2 

to  raaolvs  an  overloading  ambiguity  6.6 

Randeivous  lot  teaks)  9.8;  9,  9.7.1,  9.7.2,  9.7.3,  0 
during  which  an  exception  la  raised  11.6 
priority  9.9 

prohibited  for  an  abnormal  teak  9,10 

Replacement  of  charaetart  In  program  text  2.10 

Repreaentetlon  (of  a  typa  and  Its  objacta)  13.1 
recommendation  by  a  pragma  13.1 

Reprasaniatlon  attribute  13.7,2,  13.7,3 

at  a  forcing  uccurrsnea  13,1 

witti  11  prefix  that  has  a  null  value  4.1 

Raprasantatlon  clausa  13.1;  13.6,  D 
jtss  alio;  addraaa  clsuta,  elaboration  of...,  enumeration 
representation  clausa,  first  nsmsd  subtype,  length  clausa, 
record  representation  clause,  type] 
as  a  basic  declarative  Item  3.9 


as  a  portion  of  a  dsclarativs  region  8.1 

cannot  Include  a  forcing  occurrence  13.1 

for  a  derived  type  3.4 

for  a  privata  type  7.4.1 

Implied  for  a  derived  type  3.4 

In  an  overload  resolution  context  8.7 

in  a  task  specification  9.1 

Rasatvad  vvord  2.9;  2.2,  2.3 

RESET  (Input-output  procadura) 

In  an  Instance  of  dlrect_lo  14,2.1;  14.2.6 
In  an  Instance  of  saquantlaljo  14.2.1;  14.2.3 
In  texUo  14,2.1;  14.3,1,  14.3.10 

Rasclutlon  of  overloading 
jtae;  overloading] 

Raeult  subtype  (of  a  function)  8.1 
of  a  return  axprattlon  6,8 

Rasult  typa  profile 
jssa:  parameter  and...] 

Rasult  typa  and  overload  resolution  8.8 

Result  of  a  function 
laea;  returned  value] 

Return 

jaea;  carriage  return] 

Return  atatamant  8.8 
(see  alto;  function,  atatamant) 
as  a  simple  etatement  6.1 
causing  a  loop  to  be  exited  6.8 
causing  a  transfer  of  control  6.1 
completing  block  atatemant  execution  9.4 
completing  subprogram  oxsoutlon  9,4 
sxpraitlon  that  It  an  array  aggregate  4.3.2 
in  a  function  body  6.6 

Returned  value 

jtae;  function  call] 

of  a  function  call  6.8,  6.6;  8.6 
of  an  Inatance  of  a  generic  formal  function  12,1,3 
of  a  main  program  10,1 
of  an  operation  3.3.3 

of  a  predefined  operator  of  an  Integer  type  3,6.4 
of  a  predefined  operator  of  a  raal  type  3.6.6, 4.6.7 

Right  label  bracket  compound  delimiter  2.2 

Right  parenthesis 

character  2.1 
delimiter  2.2 

Rounding 

In  a  leal-to-lntegar  conversion  4.6 
of  results  of  real  operatlona  4.6,7;  13.7.3 

Run  time  check  11.7;  11.1 


Sols  Interval  4.6.7 

•afo  number  (of  a  real  type)  3,8.8;  4.6.7 
jaee  also:  model  number,  real  type  representation 
attrlbuts,  real  typa] 

limit  to  the  result  of  a  real  operation  4.6.7 
of  a  fixed  point  type  3,6.9;  3.6.10 
of  a  floating  point  type  3.8.7;  3,6.8 
resu't  of  unlvuraal  expression  too  large  4.10 


Recursive  •  Sefe  number 
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SAPC_EMAX  (pridafinad  attrlbuta)  3.8.t;  A 

■AFE^LARQE  (pradafinad  attrlbutal  3.B.I,  3.B.10;  A 

BAFE_8MALL  (pradafinad  attrlbuta)  3.B.B,  3.B.10;  A 

Baliaty  la  conatraint)  3.3;  D 
[aaa  alto;  conatraint,  tubtypal 

a  dlacrlmlnunt  conatraint  3.7.2 
an  Indax  conatraint  3.6.1 
a  range  conatraint  3.B 

Scalar  type  3.3,  3.B;  D 

[aaa  alto:  data  of  type,  diacrata  typa,  anumarttlon  typa, 
fixad  point  typa,  floating  point  typa,  Intagar  typa,  numario 
typa,  real  typa,  atatic  axpraaalon) 

at  a  generic  paramatar  12.1.2,  12,3.3 
formal  paramatar  6,2 
of  a  ranga  In  a  mambarahip  taat  4,8,2 
oparatlon  3.6.5;  4.8.2 

Behadulino  8.8;  13.6.1 

Bahama 

laaa;  Itaratlon  tchamal 
Boopa  B.2;  8.3,  D 

laaa  alto:  batio  oparatlon,  chtraoltr  lltarti,  daclaratlon, 
daclaratlva  raglon,  ganarlc  Inatanca,  Idantlflar,  Immadlata 
aeopa.  Implicit  daclaratlon,  oparator  tymbol,  ovaHoadlng, 
vlalbllltyl 

of  a  uaa  olauta  8,4 

Baeondary  unit  10,1 
laaa  alto:  compilation  unit,  library  unit) 

compllad  aftar  tha  corratpondlng  library  urtit  or 
parant  unit  10.3 

tubjact  to  pragma  alaborata  10,8 

BECONDB  (pradafinad  function)  B.B 

Balact  altamatlva  (of  a  aalaotlva  wait)  9,7.1 

BaiMt  atatamant  9.7;  9.7.1,  9.7.2.  9.7.3 
laaa  alao:  atatamant,  tatH,  tarmlnata  altamatlva] 
at  a  compound  atatamant  6.1 
In  an  abnormal  taak  9,10 

Balactad  aomponant  4.1.3;  8,3,  D 
laaa  alto:  direct  vlalblllty,  prefix,  aalaotor,  vlalblllty  by 
talactlon,  vlalbllltyl 

aa  a  batic  oparatlon  3.3.3;  3.3,  3.7.4.  3.8.2,  7.4.2 

at  a  name  4.1 

aa  tile  nama  of  an  entry  or  antry  family  9.6 

for  aalaotlva  vlalblllty  6.3 

In  a  conforming  oonatruct  6.3.1 

atarting  with  atandtrd  8.6 

utlng  a  bloc)*  nama  6,6 

uaing  a  loop  nama  6.6 

whota  prefix  danotaa  a  paoltaga  8.3 

whoaa  prefix  danotaa  a  record  ob|aot  8.3 

whoac  prefix  danotaa  a  taaK  objact  6,3 

Balaatlon  of  an  axcaptlon  Ittndlar  11,4. 11A1, 11.4.2;  11.6 

Balaatlva  vlalblllty 

laaa:  vlalblllty  liy  talaotlon) 

Balaatlva  wait  9.7.1;  9.7 
laaa  alao:  tarmlnata  altamatlva] 

accepting  a  conditional  antry  call  9.7.2 
acoaptlng  a  timed  entry  call  9.7.3 
ralting  program.arror  11.1 


Balactor  4.1.3;  D 

laaa  alto:  prefix,  aalaotad  aomponant] 

Bamlaolon  eharaoiar  2.1 

Bamloolon  delimiter  2.2 

followed  by  a  pragma  2,8 

8END_CONTROL  (lowJavaIJo  procadura)  14.8 

Separata  aompllatlon  10,  10,1;  10.6 
of  a  proper  body  3.9 

of  a  proper  body  declared  In  another  compilation 
unit  10.2 

Separator  2.2 

Bapuanea  of  atatamanta  8.1 

In  an  accept  atatamant  9.6 

In  a  baalc  loop  6.6 

In  a  block  atatamant  5.8;  9.4 

In  a  case  atatamar't  altamatlva  6.4 

In  a  conditional  antry  pall  9.7.2 

In  an  exception  handler  11,2 

In  an  If  atatamant  6,3 

In  a  package  body  7,1;  7,3 

In  a  aalaotlva  wait  atatamant  9.7,1 

In  a  aubprogram  body  8.3;  9,4,  13.8 

In  a  taak  body  9.1;  9.4 

In  a  timed  antry  call  9.7.3 

Including  a  ralaa  atatamant  1 1 .3 

of  coda  atatamanta  13.8 

ralaing  an  exception  11.4,1 

Saquantlal  aacaaa  flia  14.2;  14,1,  14,2.1 

Bapuentlal  exaeudon 

laaa;  aaquanca  of  atatamanta,  atatamant] 

•apuanllal  lnput*output  14.2.2;  14.2.1 


8EQUbNTIAL.I0  (pradafinad  Input-output  ganarlo  piakcga) 

14.2,  14.2.2;  14,  14.1,  14.2.3,  C 
axoaptlona  14.4;  14.6 
apaclflcatlon  14,2.3 

BET.COL  (taxUo  procedure)  14.3.4;  14,3,10 

SETJNDEX  (Input-output  procedure) 

In  an  Inatanca  of  diraotjo  14.2.4;  14.2.8 

8ETJNPUT  (taxUo  procedure)  14.3.2;  14.3.10 
ralaing  an  exception  14.4 

BET-LINE  ItaxUo  procedural  14.3.4;  14.3.10 

BET-LINE-LENOTH  ItaxUo  procadura)  14.3.3;  14.3.10 
ralaing  an  exception  14.4 

BET.OUTPUT  (taxUo  procedure)  14.3.2;  14.3.10 
ralaing  an  exception  14.4 

8ET-PAQE-LENQTH  (taxUo  procadura)  14.3.3;  14,3.10 
ralaing  an  exception  14.4 

BHARED  (pradafinad  pragma)  9.11;  8 

Shared  variable  (of  two  taaka)  B,1 1 
laaa  alao:  taak] 

Sharp  oharaotar  2.1 
(aaa  alao:  baaed  literal] 

replacamant  by  colon  oharaotar  2,10 
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Bhort  eireult  oontrol  form  4.6,  4.8.1;  4,4 
as  a  bailc  oparatlon  3.3.3:  3.5.6 
In  an  axpraislon  4.4 

SHORT-FLOAT  (predtnnad  typa)  3.8.7:  C 

SHORT-INTEQKR  (pradefinad  typal  3.8.4;  C 

Sign  of  a  lixad  point  numbar  3.B.S 

Sign  of  a  floating  point  numbar  3.8.7 

Signifisant  daolmal  digita  3.8,7 

Slmpla  axpraatlon  4,4 

as  a  choica  3.7.3 

as  s  choica  In  an  sggragata  4.3 

at  a  range  bound  3,6 

for  an  entry  Index  In  an  aooept  atatamant  B.6 

In  an  addrais  clause  13.6 

In  a  delay  atatamant  9,6 

In  a  fixed  accuracy  daflnltlon  3.B.B 

In  a  floating  accuracy  daflnltlon  3.6.7 

In  a  racord  rapraaantatlon  clauaa  13.4 

In  a  ralatlon  4,4 

Slmpla  nama  4.1:  2.3,  0 

|aaa  alto:  block  nama,  Idantiflar,  labal,  loop  name,  loop 
aimpla  nama,  nama,  ovarloadlng,  vltlblllty) 
as  a  nhoica  3.7.3 
as  a  formal  paramatar  6.4 
aa  a  labal  6.1 
aa  a  nama  4,1 

bafora  arrow  compound  dallmitar  6,3 

In  an  acoapt  atatamant  9.6 

In  an  addrasa  clauaa  13.6 

In  an  attrlbuta  daalgnator  4.1.4 

In  a  conforming  conatruot  6.3.1 

In  a  dlaorlmlnam  aaaoclatlon  3.7,2 

In  an  enumeration  rapraaantatlon  olauaa  13.3 

In  a  paokaga  body  7.1 

In  a  paokaga  ipaolfloatlon  7.1 

In  a  racord  rapraaantatlon  olauaa  13.4 

In  a  aalactor  4.1.3 

In  a  auppraaa  pragma  11.7 

In  a  task  body  9.1 

In  a  variant  part  3.7.3 

In  a  with  olauaa  10.1.1 

varsua  Identifier  3.1 

Slmpla  atatamant  8.1 
Itte  also:  statamantl 

Single  task  g.1 

SIZE  (Input-output  function) 

In  an  Inatanoa  of  dlraoUo  14.2.4;  14.2.6 

SIZE  Ipradafined  attrlbuta)  13,7,2:  A 
laao  alto:  storage  bits) 

specified  by  a  length  olauaa  13.2 

SKIP-LINE  ltaxt..lo  procedural  14.34:  14.3.10 
raising  an  exception  14.4 

SKIP-PAGE  Itext-lo  proetdura)  14.3.4:  14.3,10 
raising  an  axoaptlon  14,4 

Silos  4.1.2 
Itaa  alto:  array  type) 

at  a  beilc  operation  3,3,3;  3.6.2,  3.8.2 
as  a  nama  4. 1 

at  destination  of  an  aatignmant  6.2.1 
of  a  constant  3.2.1 


of  a  derived  typa  3.4 

of  an  object  aa  an  object  3.2 

of  a  value  of  a  ganarlc  formal  array  type  12.1.2 

of  a  variable  3.2.1 

starting  with  a  prefix  4.1,  4.1.2 

SMALL  Ipradafined  attribute)  3.8.8,  3.8.10;  A 
Itaa  also:  fixed  point  type! 

tpeclflod  by  a  length  clause  1 3.2 

Small  of  a  fixed  point  model  number  3,8.6 

Soma  order  not  defined  by  the  language 
Itaa;  Incorrect  order  depandancaj 

Space  character  2.1 
Itaa  also:  basic  graphic  character) 
as  a  aaparator  2.2 
In  a  comment  2,7 
not  allowad  In  an  Identifier  2.3 
not  allowad  In  a  numeric  lltsral  2,4.1 

Spaoe  eharsotar  literal  2.8;  2,2 

Spoolal  oharaoier  2.1 

jaaa  alto:  basic  graphic  charoctar,  other  special  chtraotar) 
In  a  dallmitar  2.2 

Speolfloatlon 

Itaa;  dtcitratlon,  dlaorlmlitant  tpacifluatlon,  anumaratlon 
literal  apacifloatlon,  generic  apsolficatlon,  loop  parameter 
Bpaolfloatlon,  paokaga  apacifloatlon,  paramatar  apaolfloa- 
tlon,  subprogram  epaclftcatlon,  task  spaolflcatiun) 


STANDARD  (pradefinad  package)  S.9;  C 
Itaa  alto;  library  unit) 

as  a  doclaratlva  region  8.1 
aneloaing  the  library  units  of  a  program  10.1.1; 
10.1,  10.2 

Including  Implicit  daolaratlona  of  fixed  point  orott* 
multiplication  and  oroat-dlvlalon  4.6.6 

STANDARD-INPUT  (laxtJo  function)  14.3.2;  14.3.10 

STANDARD..OUTPUT  (taxUo  function)  14.3JI:  14.3.10 

Star 

laaa:  double  atari 
character  2.1 
dallmitar  2.2 

Statement  6.1;  5.  D 

itaa  also:  abort  atatamant,  accept  atatamant,  tddrtta 
attrlbuta.  assignment  atatamant,  block  atatamant,  oaas 
atatamant.  cods  slatamant,  compound  ststamant,  delay 
atatamant.  entry  call  statamant,  exit  atatamant,  goto  atata¬ 
mant,  If  atatamant,  label,  loop  atatamant,  null  atatamant, 
procedure  call  statement,  rslaa  atatamant,  return  atata¬ 
mant,  select  atatamant,  saquanca  of  atatamantt,  target 
statamantl 

allowad  In  an  exception  handler  11.2 
as  an  overload  resolution  context  8.7 
optimised  10.6 

raising  an  exception  11.4.1;  11.4 
that  cannot  ba  reached  10.6 

Statamant  alternative 
lasa:  rasa  statement  altarnstlvsl 

Static  constraint  4.9 

on  a  subcomponent  tubjact  to  a  component  olauts 
13.4 

on  a  typa  3.5.4,  3.6.7,  3.6.9.  13.2 


Short  circuit  •  Stoth  constraint 
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i  Indnx 

}  Static  dliorata  rings  4.0 

STORAGE-8t7E  (predefined  attribute)  13.7.2;  A 

■  . 

as  a  choice  of  an  aggregate  4.3.2 

(aee  also:  arorags  unite  allouatad] 

aa  a  choice  of  a  caae  ntatament  6.4 

for  an  eccess  type  3.6.2 

as  a  choice  of  a  variant  part  3.7.3 

for  a  task  object  or  task  type  9.9 

.  ' 

apeciflad  by  a  length  olauta  13.2 

•J 

Static  axprasilon  4.9;  8.7 

. . .  .  J 

1  aa  a  bound  In  an  Integer  type  definition  3.6.4 

STORAGE-UNIT  (pradafinsd  named  number) 

aa  a  choice  In  a  case  statement  6.4 

jsee;  aystem.slorsge-unit] 

i  aa  a  choice  of  a  variant  part  3,7.3 

for  a  choice  In  a  record  aggregate  4.3.2 

STORAGE-UNIT  (predefined  pragma)  13,7;  B 

‘  for  a  discriminant  In  a  record  aggregate  4.3.1 

|see  also:  system.storage-unit] 

In  an  attribute  designator  4.1.4 

In  an  enumeration  representation  clauia  13.3 

STRING  (predefined  type)  3.8.3;  C 

In  a  fixed  accuracy  definition  3.6.9 

jaee  also:  predefined  type] 

In  a  floating  acouiucv  definition  3  5.7 

as  the  parameter  of  value  attribute  3,6.6 

•'■•J 

In  a  generic  unit  12.1 

aa  the  result  of  Image  attribute  3.6.6 

‘  In  a  length  clause  13.2 

•  ‘  •! 

In  a  number  declaration  3.2,  3.2.2 

String  bracket  2.B;  2,10 

1  in  a  record  reoreaantatlon  clause  13.4 

In  prlorltu  pragma  9.8 

Swing  literal  2.6,  4.2;  2.2.  3.6,3 

f  whose  type  la  a  universal  type  4.10 

jaee  also:  overloading  of...,  paroant  mark  character,  quota- 

tion  chsraotarl 

Static  others  choice  4.3.2 

as  a  basic  operation  3.3.3,  4.2;  3.6.2 

aa  an  operator  symbol  8,1 

Static  aubtypa  4.0 

aa  a  primary  4,4 

of  a  discriminant  3.7.3 

must  not  be  the  argument  of  a  oonvaralon  4,6 

of  the  expression  In  a  case  statement  6.4 

replaced  by  a  catenation  of  bailo  oharactara  2,10 

STATUS-ERROR  llnput-output  exceotlon)  14.4;  14,2.1, 

Stub 

14.2.2,  14.2.3.  14.2.4,  14.2.6,  14.3.2,  14.3.3,  14.3.4, 

jeae:  body  stub] 

14.3,6,  14.3.10,  14,6 

Subaggragata  4,3.2 

^  Storage  address  of  a  component  13,4 

j  [aee  also;  address  clause] 

Subcomponent  3.3;  D 

1 

Isaa  also:  component,  composite  type,  default  axprasalon. 

‘"•."'■’s' 

\  Storage  bits 

discriminant,  object) 

allocated  to  an  object  or  type  13.2;  13.7.2  [sea  also: 

depending  on  a  dliorlmlnant  3,7.1;  B.2,  6.2 , 8.6 

^  slie] 

of  a  component  for  which  a  component  clauia  la 

R  of  a  record  component  relative  to  a  storage  unit 

given  13.4 

13.4 

renamed  8.6 

sko  of  a  storage  unit  13,7 

that  Is  a  talk  objact  9,2;  9.3 

'.■'•/'ll 

whose  type  la  a  limited  type  7.4.4 

Storage  deallocation 

whose  type  Is  a  private  type  7.4.1 

[see:  unchecked-deallocation] 

Subprogram  6;  0 

^  Storage  minimisation 

(lee  also;  actual  parameter,  completed  subprogram, 

1  [see:  pack  piagmu] 

derived  subprogram,  entry,  formal  parameter,  function, 

library  unit,  overloading  of...,  parameter  and  result  type 

Storage  reclamation  4.8 

profile,  parametor,  pradafinod  lubprogram,  procedure, 

program  unit) 

'.1 

Storage  representation  of  a  record  13.4 

as  a  generic  Instance  12.3;  12 

*  s,  ^ 

k  * 

at  a  main  program  10,1 

■  .  *1^' 

Storage  unit  13.7 

as  an  operation  3.3.3;  7.4.2 

offset  to  the  start  of  a  record  component  13.4 

Including  a  raise  statement  11.3 

-s' 

^  site  of  a  storage  unit  In  bits  13.7 

of  a  derived  type  3.4 

Ra 

overloaded  6,6 

Storage  units  allocated 

renamed  8.6 

; 

[see:  atorage-slze] 

subject  to  an  addreit  olauta  13,5 

;-J  to  a  collection  13.2;  4,8,  11.1,  13.7.2 

lubjoct  to  an  Inline  pragma  6.3,2 

to  a  task  activation  13.2;  3,9,  11.1,  13.7,2 

aubjoet  to  an  Interface  pragma  13.8 

■■■ 

subject  to  a  repraaantatlon  oltuae  13.1 

-■.'■‘s' 

; .  Storaya-ohack 

Bubject  to  a  aupprsti  pragma  11.7 

^  [aee:  program-error  exception,  suppreas] 

with  a  separately  oompiltd  body  10.2 

^  STORAGE-ERROR  (predefined  exception)  11.1 

Subprogram  body  6.3:  6,  0 

..  -  ^ 

,  [see  also:  suppress  pragma] 

jsaa  alto:  body  stub) 

1 raised  by  an  allocator  exceeding  the  allocated 

as  c  generic  body  12.2 

storage  4.8;  11.1 

as  a  library  unit  10.1 

.  ‘  ■  J 

raised  by  an  elaboration  of  a  declarative  Item  11.1 

ss  a  proper  body  3.9 

raised  by  a  task  activation  exceeding  the  allocated 

at  a  secondary  unit  10.1 

'  g  storage  11.1 

as  a  secondary  unit  compiled  after  the  cor- 

■  ■  ■  > 

^  raised  by  the  execution  of  a  subproeram  call  1 1.1 

responding  library  unit  10.3 

•>#( 

.  ._  - y 

h 
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having  dependent  tasks  9.4 

In  a  package  body  7.1 

Including  an  exception  handler  11.2:  11 

Including  an  exit  statement  6.7 

Including  a  goto  atetament  5.9 

Including  an  Implicit  declaration  6.1 

Including  a  return  statemant  6.8 

Including  coda  statements  must  be  a  procedure 

body  13.9 

Inllned  In  place  of  each  call  6.3.2 

must  be  In  the  same  declarative  region  as  the 

declaration  3.9,  7.1 

not  allowed  for  a  subprogram  subject  to  an  Interface 
pragma  13.9 

not  yet  nlaboratsd  at  a  call  3.9 
raising  an  exception  11.4.1,  11,4.2 
recompiled  1C.3 

Subprogram  call  8,4;  6,  6.3,  12.3 
(see  also:  actual  paramatar,  entry  call  statamant,  entry  oal- 
I,  function  call,  prnoadure  call  atatemant,  procedure  oalll 
before  elaboration  of  the  body  3  9.11.1 
statement  replaced  by  an  Inllning  of  the  body  6.3.2 
statement  v/lth  a  default  actual  parameter  6.4.2 
to  a  derived  subprogram  3.4 
to  a  generic  Instance  12 


Subprogram  deolarallon  8.1;  6,  D 

and  body  as  a  declarative  region  8.1 

aa  a  basic  daelaratlon  3.1 

at  a  later  daolarative  Item  3.9 

as  a  library  unit  10.1 

as  an  overloaded  declaration  8.3 

Implied  by  the  body  6.3,  10.1 

In  a  package  spaolflcstlon  7,1 

made  directly  visible  by  a  use  olaiias  8,4 

of  on  operator  6.7 

recompiled  10.3 

Subprogram  speelfloatlon  8.1 

and  forcing  ooourrenoes  13.1 

conforming  to  another  0.3.1 

for  a  function  6.6 

In  a  body  stub  10.2 

In  a  generic  declaration  12,1;  12.1.3 

In  a  renaming  declaration  8.6 

In  a  subprogram  body  6.3 

Including  the  name  of  a  private  type  7.4.1 

of  a  derived  uubprogrem  3.4 

Subtraction  operation  4.8.3 
for  a  real  type  4.6.7 

Subtype  3.3,  3.3.2;  D 

!see  also:  attribute  of,...  base  attribute,  oonxtrcined  sub- 
type.  constraint,  first  named  subtype,  operation  of,..,  result 
subtype,  satisfy,  size  attribute,  static  subtype,  type, 
unconstrained  subtypel 

declared  by  a  numeric  type  declaration  3.6.4,  3.6.7, 
3.6.9 

In  a  membership  test  4.6.2 
name  [aee:  nama  of  a  subtype,  type.mark  of  a  sub¬ 
type) 

not  considered  In  ovedoad  resolution  8.7 

of  an  eocass  type  3.8 

of  an  actual  parameter  6.4.1 

of  an  array  type  [tea:  constrained  array  type.  Index 

constreinti 

of  a  component  of  an  array  3.6 

of  a  component  of  a  record  3.7 

of  a  constant  In  a  static  axprasalon  4.9 

01  a  discriminant  of  a  generic  formal  type  12.3.2 

of  a  formal  larameter  6.4,1 


of  a  formal  parameter  or  result  of  a  renamed  sub¬ 
program  or  entry  8.6 
of  a  guneric  formal  type  12.1.2 
of  an  Index  of  a  generic  formal  array  type  12.3.4 
of  an  pbject  [see:  elaboration  of...] 
of  a  private  type  7,4,  7.4,1 
of  a  real  type  3.3.7,  3.5.9;  3.6.6.  4.6.7 
of  a  record  type  isoe:  constrained  record  type,  dis¬ 
criminant  conutralnt] 
of  a  scalar  type  3.5 
of  a  task  type  9.2 
of  a  variable  5.2 

subjnet  to  a  representation  clause  13.1 

Sub.ypa  conversion  4.6 

Iseti  ai.’-o:  conversion  operation,  explicit  conversion. 
Implicit  conversion,  type  conversion) 

I'l  an  array  assignment  5.2. 1 ;  5.2 
to  a  real  type  4.5.7 

Subtype  declaration  3.3.2;  3.1 

and  forcing  occurrences  13.1 

as  t'i  basic  daelaratlon  3.1 

including  the  name  of  a  private  type  V.4.1 

Subtype  definition 

[see:  comoonant  subb/pa  definitbn,  dependence  on  a  dis¬ 
criminant,  Indax  subtype  definition] 

Subtype  Indication  3.3.2 
jsee  also:  elaboration  of...] 

at  a  component  aubtypa  Indication  3.7 

as  a  dlscrats  range  3.6 

for  a  subtype  of  a  generic  formal  type  12.1.2 

in  an  aoceas  type  definition  3,6 

In  an  allocator  4.8 

In  an  array  type  definition  3.6 

in  a  component  declaration  3.7 

In  a  constrained  array  definition  3.6 

In  a  derived  type  definition  3.4 

In  a  gonerlo  formal  part  1?.1 

in  an  object  declaration  3.2,  3,2.1 

In  an  unconatralnad  array  definition  3.6 

including  u  fixed  point  constraint  3.5.9 

including  a  floating  point  oonitraint  3.6.7 

with  a  range  conitralnt  3.6 

Subunit  10.2;  0 
{see  also'  library  unit! 

os  a  compilation  unit  10.4 
as  a  library  unit  10.4 
BB  a  aecondary  unit  10,1 

compiled  after  the  corresponding  parsnt  unit  10.3 
not  ellowed  for  e  subpr  rgrem  subjsct  to  an  Interface 
pragma  13.9 

of  B  compilation  unit  subject  to  a  context  clause 

10.1  1 

raising  un  exception  11.4.1,  11.4.2 

recompiled  (does  not  affect  other  compilation  units) 

10,3 

SUCC  (predefined  attribute)  3.0.5:  13.3.  A 

Succetior 
laee:  succ  attribute] 

SUPPRESS  Iprsdefinsd  pragma)  11,7:  11.1,  8 

Symbol 

laee:  graphical  symbol,  operator  symbol] 

Synohronizalion  of  tasks 
laee:  talk  aynchroulzstlon] 
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Syntaetle  eattgory  1.5 
Syntax  notation  1.B 
Syntax  rula  1.6;  E 

SYSTEM  (predefined  library  package)  13.7;  C,  F 

Syatam  dependant  F 
attribute  13.4 
constant  1.3.7 

named  number  13.7,  13.7.1 
record  component  13.4 
type  13.7 

SVSTEM.ADDRE88  (predaflnad  typo)  13.7;  13.6 
laae  also:  addreaa  attribute,  addraaa  olauao] 


8Y8TEM.FINE..DELTA  (pradafinad  named  number)  13.7.1 

8V8TEM.MAX_DIQir8  (pradafinad  named  number)  13.7.1 
limit  on  the  significant  digits  of  a  floating  point  type 
3,6.7 

8YSTeM.MAX..INT  (predefined  named  number)  13.  .M; 
3.6.4 

axceaded  by  the  value  of  a  universal  axpraaslon 
4,10' 

8Y8TEM.MAX_MANTI88A  (pradafinad  named  number) 
13,7.1 

SY8TEM.MEMORY_8IZE  (pradafinad  named  number)  13.7 

SY8TEM.MINJNT  (pradafinad  named  number)  13,7.1; 
3.6.4 

greater  than  the  value  of  a  universal  expreielon 
4.10 

8Y8TEM.NAME  (pradafinad  type)  13.7 

SYSTEM.STORAQE-UNIT  (predefined  named  number) 
13,7;  13,4 

8Y8TEM.8Y8TEM-NAME  (predefined  constant)  13.7 
laae  also:  xr'ttem.namal 

8Y8TEM.TICK  (prodeflnad  named  number)  13.7.1;  9.6 

SYSTEM-NAME  (pradafinad  pragma)  13.7;  B 
laae  alto:  ayttam.tyttam_nama  predefined  oonatant) 


Tabulation 

[see;  horltontal  tabulation,  vertical  tabulation) 

Target  atatament  (of  a  goto  statement)  B.9 
Target  type  of  a  oonvertlon  4.6 
Task  8;  D 

(aaa  also:  abnor.'nal  teak,  abort  atatament,  accept  state- 
ment,  communication  between...,  completed  task,  delay 
atatament,  dependent  task,  entry  (of  a  task),  entry  cell 
atatament,  rendeivoue,  select  statement,  aalectlve  wait, 
shared  variable,  single  tnak,  terminated  task] 
calling  the  main  program  10.1 
raising  an  exception  11,6 
scheduling  9.F.< 

•uapanalon  awaiting  a  randaivoua  9.5 
suapanalon  by  a  delay  atatamant  9.6 
tuapenalon  by  a  aaleotivo  wait  9.7.1 
autpenalon  of  an  abnormal  task  9.10 


Teak  activation  0.3 

|aaa  also:  length  clause,  storage  units  allocated, 
atorage-alxa  attribute] 

before  elaboration  of  the  body  3,9 
causing  synchronization  9.10,  9.11 
not  started  for  an  abnormal  task  9.10 
of  B  task  with  no  task  body  1 1.1 

Task  body  0.1;  9,  0 
laae  alto:  body  atub,  elaboration  of... I 
aa  a  proper  body  3.9 
In  a  package  body  7.1 
including  an  exception  handler  11,2;  11 
Including  an  exit  atatamant  5.7 
Including  a  goto  atatament  5.9 
lt«cludlng  an  Implicit  declaration  6.1 
must  be  In  the  same  declarative  region  as  the 
declaration  3.9,  7.1 

not  yet  elaborated  at  an  activation  3.9 
raising  an  axoaptlon  11.4,1,  11.4.2 
tpaclfylng  the  execution  of  a  task  9.2,  9.3 

Task  eommunloatiDn 
(aae:  rsndezvoua) 

Task  eomplatlon 
laaa:  completed  taakj 

Task  declaration  9.1 

and  body  aa  a  daclaratlva  region  8,1 
aa  a  basic  declaration  3,1 
aa  a  later  daclaratlva  Item  3,9 
elaboration  raising  an  exception  1 1,4,2 
In  a  paokaga  specification  7,1 


Task  dapandanca 
laae:  dependant  task) 

Taak  daslgnatad 

by  a  formal  parameter  6,2 

by  a  value  of  a  task  type  9,1;  9,2,  9.4,  9.6 

Task  e  tooutlon  9.3 

Task  oblact  0.2;  9.1,  9.5 
(sea  also:  attribute  of...,  task  activation] 
designated  by  an  acceaa  value  9.2 
determining  task  dependence  8.4 
renamed  8.6 

Task  priority  8.S 

(sea  also;  priority  pragma,  priority  subtype] 
of  a  task  with  an  Interrupt  entry  13.6.1 

Task  apoolflcatlon  0.1;  9,  D 
laee  also:  elaboration  of...] 

Including  an  entry  declaration  9.6 
Including  a  priority  pragma  9.8 
Including  a  representation  clause  13.1 

Teak  synchronization  8.6;  9.1 1 

Task  termination 
laae;  terminated  task] 

Task  type  9.1,  9.2;  D 

laae  also:  attribute  of...,  class  of  type,  derived  type  of  a  task 
type,  llmltab  type] 

completing  an  Inoompiste  type  definition  3.B.1 

formal  parameter  6.2 

object  Initialization  3.2.1 

value  designating  a  teak  ob]act  3.2.1,  9.1,  9,2 
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Taek  unit  B.1;  9 
Im*  •Itoi  program  unit] 

dacliratlon  datarmlr)lng  tha  vlalblllty  of  ar^othar 
daclaratlon  B.3 

Including  a  ralaa  atatamant  1 1 .3 
aubjact  to  an  addraaa  olauaa  1 3.6 
aubjact  to  a  rapraaantatlon  olauaa  f3.1 
aubjaot  to  a  auppraaa  pragma  1 1.7 
with  a  aaparataly  oompllad  body  1 0.2 

TA8KINQ_ERROH  (pradafinad  axoaptlon)  11.1 
laaa  alao;  auppraaa  pragma] 

ralaad  hy  an  entry  call  to  an  abnormal  taak  9.10, 
11.5 

ralaad  by  an  entry  call  to  a  oomplatad  taak  9.S, 
3.7.2,  9.7.3,  11.5 

ralaad  by  an  axoaptlon  In  tha  taak  body  1 1 .4.2 
ralaad  by  failure  of  an  activation  9.3;  1 1.4.2 

Tamplata 
[aaa;  ganorlo  unit) 

Tarm  4,4 

In  a  aimpla  axpraaalon  4.4 

Tarmlnata  altamattva  (of  a  aalaotiva  wait)  0,7.1 
(aaa  alao:  aalaot  atatamant) 

oauaing  a  tranafar  of  control  5. 1 

In  a  aalact  atatamant  oauaing  a  loop  to  ba  axitad  5.5 

aalaotlon  9.4 

aalactlon  In  tha  praaanoa  of  an  accept  altamativa  for 
an  Interrupt  entry  13.5.1 

TiRMINATKD  (pradafinad  artrlbuta)  for  a  taak  object  9.Bi  A 


Tarmlnatad  taak  0.4;  9.3,  9,9 
faoa  alao;  oomplatad  taak) 

not  becoming  abnormal  9.10 

objaot  or  aubo'i,riponant  of  an  objact  daaignatad  by 

an  aooaaa  value  4.8 

termination  of  a  taak  during  Ita  activation  9.3 
Terminator 

(aaa:  file  terminator,  line  terminator,  page  tarmlnator] 
Text  Input-output  14,3;  14,2.1 
Tait  of  a  program  2,2,  10.1 

TEXT-IO  (predefined  Input-output  packaga)  144;  14,  14.1, 
14.3.0.  14.3.10,  C 

exceptions  14.4;  14.5 
specification  14.3.10 

TICK 

Isas:  systom.tlok] 

TIME  (pradafinad  type)  0.9 

lass  also:  clock,  date,  day,  make..tlma,  month,  system. tick, 
yaar) 

TIMI_.ERROR  (predefined  exception)  0.0 
TIME_OF  (predefined  funoiiun)  9.6 

*  *■'  ,  ■■■  >11  0.7.3;  9.7 

id  .  imed  antrlee  8.5 

i|  fui  to  en  address  clause  13.6.1 

■  .  X  'ator 

'  ..itipl/ing  operator] 


Transfer  of  control  5.1 

iBoe  also:  exception,  exit  statement,  goto  stutement,  return 
statement,  terminate  alternative] 

TRUE  boolean  enumeration  literal  3.5.3;  C 

Type  3.3;  D 

(see  alao:  access  type,  appropriate  for  a  type,  array  type, 
attribute  of...,  base  attribute,  base  type,  boolean  typa, 
character  typo,  class  of  type,  composite  type,  constrained 
type,  derived  type,  discrete  typa,  discriminant  of..., 
enumeration  type,  fixed  point  type,  floating  point  typa, 
forcing  occurrence,  generic  actual  type,  ganerlo  formal 
type,  Integer  .'/pe,  limited  private  type,  IlmItsrI  type, 
numeric  type,  operation  of...,  parent  type,  predefined  typa, 
private  typa,  real  typa,  record  typa,  rsprssantatlon  clause, 
scalar  type,  size  attribute,  storage  alloostsd,  subtype, 
unconstrained  subtype,  unconstrained  type,  universal 
type] 

name  3.3,1 

of  sn  actual  paramstsr  6.4,1 
of  sn  aggrsgats  4.3.1,  4.3,2 
of  an  array  component  of  a  gtnsrlc  formal  array 
type  12.3.4 

of  an  array  Index  of  a  gsnsrlc  formal  array  type 
12,3.4 

of  a  case  statement  sxprsaslon  5.4 

of  a  condition  5.3 

of  0  declared  object  3,2,  3.2.1 

of  a  discriminant  of  a  generic  formal  private  typa 

12.3.2 

of  en  expression  4,4 
of  a  file  14.1 

of  a  formal  paramstar  of  a  generic  formal  sub¬ 
program  12.1.3 

of  a  ganorlo  actual  object  12.3.1 

of  a  gonarlc  formal  objaot  12.1.1;  12.3.1 

of  an  Index  4.1,1 

of  a  loop  paramstar  6.5 

of  a  named  number  3,2,  3.2.2 

of  an  objact  designated  by  a  gsnsrlc  formal  acoess 

type  12.3.5 

of  e  primary  In  an  expression  4.4 

of  a  shared  variable  9.1 1 

of  a  slice  4.1.2 

of  a  string  literal  4.2 

of  a  task  object  9.2 

of  a  universal  expression  4.10 

of  a  value  3.3;  3.2 

of  discriminants  of  a  generic  formal  object  and  the 
matching  actual  object  12.3.2 
of  of  the  literal  null  4.2 

of  the  result  of  a  generic  formal  function  12.1.3 
renamed  9.5 

subject  to  a  representation  clausa  13.1;  13,6 
sublsct  to  a  suppress  pragma  11.7 
yielded  by  en  attribute  4.1.4 

Type  conversion  4.6 

lass  also:  conversion  operation,  conversion,  sxpllolt  con¬ 
version,  subtype  conversion,  unohscked-oonvarslon] 
as  an  actual  parameter  6.4,  6.4.1 
as  a  primary  4,4 
In  a  static  expression  4.9 
to  a  real  type  4,5.7 

Type  deelaratlon  3.3,1 

(see  also:  elaboration  of...,  Inoomplets  type  declaration, 
private  type  declaratlonj 

as  a  basic  dsclaratlun  3,1 
as  a  full  daclaratlon  7.4.1 
Implicitly  declaring  operations  3.3.3 
In  a  psekage  specification  7.1 
Including  the  name  of  a  private  type  7.4.1 
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of  B  fixed  point  type  3.B.9 
of  B  floating  point  typa  3.S.7 
of  an  Intagar  typa  3.6.4 
of  a  aubtype  13,1 

Type  definition  3.3.1;  0 

laea  alto:  aocait  type  definition,  array  type  definition, 
derived  type  definition,  elaboration  of,,.,  enumeration  type 
definition,  generic  type  definition.  Integer  type  definition, 
real  type  definition,  record  type  definition] 

Type  marli  {denoting  a  typa  or  tubtypel  3.3.2 
ai  a  generic  actual  parameter  12.3 
In  an  allocator  4.8 
In  a  code  atatemant  13.8 
In  a  oonvartlon  4.6 
In  a  deferred  oonattnt  deolaratlon  7.4 
In  a  discriminant  epeolfleatlon  3.7.1 
In  a  generlo  formal  part  12.1,  12,3 
In  a  generic  parameter  deolaratlon  12,3.1 
In  an  Index  aubtype  definition  3.6 
in  a  parameter  tpaolfloatlon  6.1;  6.2 
In  a  qualified  axpreitlon  4,7 
In  a  relation  4.4 
In  a  renaming  deolaratlon  8.B 
In  a  subprogram  speolflontlon  6.1 
of  a  formal  parameter  of  e  ganarlo  formal  tub- 
program  12.1.3 

of  a  gcnarlo  formal  array  type  12.1.2 

of  a  static  scalar  subtype  4.9 

of  the  result  of  a  generlo  formal  function  12.1,3 

Type  with  dlaerimlnants  3.3;  3.3.1,  3.3.2,  3.7,  3.7.1,  7.4, 

7.4,1 

(see  also;  private  type,  record  typa] 

as  an  actual  to  a  formal  private  typa  12.3.2 
as  the  component  type  of  an  array  that  li  the 
operand  of  a  oonvsralon  4.6 


Unary  adding  operator  4.4.  4.6,  C;  4,6.4 
[sea  also:  arlthmatio  operator,  overloading  of  an  operator, 
predsfinsd  operator] 

as  an  operation  of  a  diacrata  typa  3.6.6 
In  a  simple  exprsaalon  4.4 
overloaded  6.7 

Unary  oparator  4.6;  3.6.6,  3.6.8,  3.6.10, 3.6.2, 4.6.4, 4.6.6, 
C 

Isas  also:  highest  p'eoadenca  oparator,  unary  adding 
operator] 

UNCHECKED_CONVER8jON  Ipradafinad  generic  library 
function)  13.10.2;  13.10,  C 

UNCHECKED_DEALLOCATION  (piadafinsd  generic  library 
procedural  13.10.1;  4.8,  13.10,  C 

Unoonditlonal  termination  of  a  talk 
laaai  abnormal  task,  short  itatemant] 

Unconstrained  array  dahnltlon  3.6 

Unconstrained  array  typa  3.6;  3.2.1 

as  an  actual  to  a  formal  private  type  12.3.2 

formal  parameter  6.2 

sub]act  to  3  length  clause  13.2 

Unconstrained  subtype  3.3,  3.3.2 
leee  also:  constrained  .ubtype,  constraint,  subtype,  typa] 
Indication  In  a  generic  unit  12.3,2 


Unconstraii.sd  type  3,3;  3,2.1,  3.6,  3.6.1,  3.7,  3.7.2 
formal  parameter  6.2 
with  discriminants  6.4.1,  12.3.2 

Unconstrained  variable  3.3,  3.6,  3.7;  12.3.1 

aa  a  subcomponent  [see;  subcomponent] 

Undefined  vaiue 

of  a  scalar  parameter  6.2 
of  a  scalar  variable  3.2.1 

Underline  character  2,1 

In  a  baaed  literal  2.4.2 
In  a  decimal  literal  2.4.1 
In  an  Identifier  2.3 

Unhandled  axcaptlon  11,4.1 

Unit 

Isae:  compilation  unit,  ganarlo  unit,  library  unit,  program 
unit,  storage  unit,  task  unit] 

Univartal  expreaalon  4.10 
assigned  6.2 

In  an  attribute  designator  4.1.4 

of  a  real  type  Implicitly  convened  4.6.7 

that  Is  static  4.10 

Univsraal  type  4.10 

(sea  also;  conversion,  implicit  conversion) 

expression  (see:  expression,  numeric  literal) 
of  a  named  number  3.2.2;  3.2 
result  of  an  attribute  [sea:  attribute) 

UNIVERiAL-PIXED  (predefined  type)  3.6.6 

result  of  fixed  point  multiplying  operators  4.6.6 

UNIVIRIAL.INTEQin  (predefined  type)  3.6.4,  4.10;  C 
leee  also:  Integer  lltersl] 

argument  of  a  conversion  3.3.3,  4.6 
attribute  3.6.6,  13.7.1,  13.7.2,  13.7.3;  9.9 
bounds  of  a  disorsts  range  3.6,1 
bounds  of  a  loop  parameter  6.8 
codes  repreeeiitlng  enumeration  type  values  13.3 
ronvsrted  to  an  Integer  type  3.5.6 
of  Integer  literals  2.4,  4.2 
result  of  an  operation  4,10;  4.6 

UNIVER6AL-REAL  (predsfinsd  type)  3.0.6,  4.10 
Isee  also:  real  literal] 

argument  of  a  conversion  3.3.3,  4.6 
attribute  13.7.1 

converted  to  a  fixed  point  type  3.6.10 
converted  to  a  floating  point  type  3.6.8 
of  real  literals  2.4,  4.2 
result  of  art  operation  4.10;  4.6 

Updating  the  value  of  an  ob|oot  6.2 

Upper  bound 

jase;  bound,  last  attribute] 

Upper  ease  letter  2.1 
lass  also:  basic  graphln  character] 

A  to  F  In  a  based  lltersl  2.4.2 
E  In  a  decimal  literal  2.4,1 
In  an  Identifier  2.3 

Urgency  of  a  task 
less  I  task  priority] 

Use  clause  (to  achieve  direct  visibility)  6.4;  6.3,  0 
Isee  also:  context  clausa] 


I'- 


ft,,*, 
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•I  a  biaio  daclarttlva  Item  3.9 

■I  a  latar  daclarativa  Itam  3.9 

In  a  coda  prooadura  body  13.8 

In  a  contaxt  olauae  of  a  compilation  unit  10.1.1 

In  a  contaxt  clauaa  of  a  aubunit  10.2 

Inaartad  by  tha  environment  10.4 

U8E_EltROR  (Input-output  exoaptlon)  144;  14.2.1,  14.2.3, 
14.2.6,  14.3.3,  14.3.10,  14.6 


VAL  (pradeflnnd  attribute)  3.8.8;  A 

Value 

laae;  aaaignment,  evaluation,  expreealon.  Initial  value, 
returned  value,  lubtype,  teak  dealgnetod...,  type] 

In  a  oonatant  3.2.1;  3.2 

In  a  taak  objeot  9.2 

In  a  variable  3.2.1,  8.2;  3.2 

of  an  aooeaa  type  laee:  object  deelgnated,  teak 

object  deiignatedi 

of  an  array  type  3.8;  3.8.1  [eae  elao:  array,  alloe) 

of  a  baaed  literal  2.4.2 

of  a  boolean  type  3.6.3 

of  a  oharaoter  literal  2.8 

of  a  character  type  3.6,2:  2.8,  2.8 

of  a  decimal  literal  2.4.1 

of  a  fixed  point  type  3.8.9,  4.8,7 

of  a  floating  point  type  3.17,  4.8.7 

of  a  record  type  3,7 

of  a  record  typa  with  dlecrlmlnante  3.7.1 
of  a  atring  literal  2.8;  2.10 
of  a  teak  type  (aae;  teak  dealgnetadj 
returned  by  a  function  cell  (eae:  returned  valual 

VALUl  (predefined  attribute)  3.B<8;  A 

Variable  3,2.1;  0 
(sea  alio:  object,  ahi^red  variable) 
at  en  actual  paiumetar  8.2 
deolarad  In  a  package  body  7.3 
formal  parameter  8,2 
In  an  aialgnmerit  itatament  6.2 
0*  an  array  type  ae  daitluntlon  of  an  aaaignment 
8.2.1 

of  a  private  type  7.4.1 

lanamed  8.6 

that  li  a  illoa  4.1.2 

Variable  declaration  3.2.1 

Variant  3.7.3;  4.1,3 

liee  alio:  component  olauae,  record  type] 

In  I  variant  part  3.7.3 

Variant  pert  3.7.3;  D 
liaa  alao:  dapendanoe  on  a  dleorlmlnant) 

In  a  component  Hat  3.7 
In  a  record  aggragata  4.3.1 

Vertical  bar  character  2.1 

rapliocmant  by  axolomatlon  character  2.10 

Vertical  bar  dallmitar  2.2 

Vertical  tabulation  format  effector  2.1 

Violation  of  a  conitraint 
licc:  conitrilnt_arror  exception] 


Vlallilllty  8.3;  8.2,  D 

(ace  alao:  diract  vltiblllty,  hiding.  Identifier,  nama,  opera¬ 
tion,  overloading) 

and  renaming  8.8 

datarmlning  multiple  maaninga  of  an  Idantlfler  8.4, 
8.7:  8.6 

determining  order  of  compilation  10.3 
due  to  a  uaa  clauaa  8.4 
of  a  baaic  operation  8.3 
of  a  character  literal  8.3 

of  a  default  for  a  generic  formal  aubprogram  12.3.8 

of  a  generic  formal  parameter  12.3 

of  a  library  u.ilt  duo  to  a  with  clauae  8.8.  10.1.1 

of  a  nama  of  an  exception  1 1 .2 

of  an  operation  declared  In  a  package  7.4.2 

of  an  operator  aymbol  8.3 

of  a  renaming  declaration  8.8 

of  a  aubprogram  declared  In  a  package  8.3 

of  deolaratlona  In  a  package  tx^y  7,3 

of  deolaratlona  In  a  package  epeclflcatlon  7.2 

of  deolaratlona  In  the  package  ayatem  13.7 

within  a  aubunit  10.2 

Vialblllty  by  aelectlon  8.3 

laae  alao;  baaic  operation,  charactar  literal,  operation, 
operator  aymbol,  aelaeted  component) 

Vlalbie  part  (of  e  package)  7,2;  3.2.1,  7,4,  7.4.1,  7,4.3,  D 
laae  alao;  deferred  conatant  declaration,  private  type 
deolaretlonj 

expanded  name  denoting  a  declaration  In  a  vlilble 
part  8.2 

acope  of  a  declaration  In  a  vlalbla  part  4.1.3 
uaa  clauaa  naming  tha  package  8.4 
vialblllty  of  a  declaration  In  a  vlalbie  part  8.3 


WeH 

laae:  aalaotiva  wait,  taak  auapenalon) 

While  loop 

(aae:  loop  atatemant) 

WIDTH  (predefined  attribute)  3.8.8;  A 

With  eleuae  10.1.1;  D 
laae  alao:  context  clauaa) 

determining  order  of  compilation  10.3 
determining  the  Implicit  order  of  library  unite  8.8 
In  a  context  olauae  of  a  compilation  unit  10.1.1 
in  a  context  clauae  of  a  aubunit  1 0.2 
Inaartad  by  the  environment  10.4 
leading  to  direct  vialblllty  8.3 

WHITE  (Input-output  procedure) 

In  an  Inatanoe  of  dlraoulo  14.2.4;  14,1, 14.2, 14,2,8 
In  an  Inatanca  of  aequantlaIJo  14.2.2;  14.1,  14.2, 
14,2,3 


Writing  to  an  output  NIe  14.1,  14.2.2,  14.2.4 


Xer  operator 
laae:  logical  operator) 


YEAR  (predefined  function)  9.8 


Uae^Brror 


•  Ytar 
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(Ttilt  poiticript  Ir  net  ptrt  of  thi  ittndord  dtfinitlon  of  tht  Adt  proprimmlng  langunBO'l 


Postscript  :  Submission  of  Comments 


For  submission  of  comments  on  this  stsndsrd  Ads  rsfsrsnce  msnual,  we  would  appreciate  them  being  sent 
by  Arpanet  to  the  address 

Ada-Comment  at  ECLB 

If  you  do  not  have  Arpanet  soossa,  pisass  asnd  the  comments  by  mall 
Ads  Joint  Program  Offlos 

Office  of  the  Under  Ssorstary  of  Oafanss  Rsssaroh  and  Engineering 
Washington,  DC  20301 
United  States  of  America. 

For  mall  comments,  It  will  aealat  us  If  you  are  able  to  send  them  on  8-lnoh  single-alded  single-density  IBM 
format  diskatte  -  but  even  If  you  can  manage  thia,  pleeae  also  send  us  a  paper  copy,  In  case  of  problems 
with  reading  the  diskette. 

All  comments  are  sorted  end  prooeeaed  meohanloelly  In  order  to  simplify  their  analysla  end  tc  faolllvata  giv¬ 
ing  them  proper  consideration.  To  eld  this  prooesa  you  era  kindly  roqueated  to  precede  each  comment  with 
a  three  line  hsedor 

Iseotlon  ... 

Ivrrslon  1983 
Itopio  ... 

The  aeotlon  line  Ineludes  the  aeotlon  number,  the  paragraph  number  enclosed  In  perenthesea,  your  name  or 
affiliation  (or  both),  and  the  date  In  ISO  standard  form  (yesr-month-day).  The  paragraph  number  Is  the  one 
given  In  the  margin  of  the  paper  form  of  thIa  document  (It  Is  not  contained  In  the  ECLB  f Ileal;  paragraph 
numbera  are  optional,  but  very  helpful.  As  an  example,  here  la  the  section  line  of  comment  #1 194  on  a 
previous  version; 


Iseotlon  03.02.01(12)  0  .  Taffs  82-04-28 

The  version  line,  for  comments  on  the  current  standard,  should  only  contain  "  Iverslon  1 983".  Its  purpose  Is 
to  distinguish  comments  that  refer  to  different  versions. 

The  topic  line  should  contain  a  one  line  summary  of  the  comment.  This  line  Is  essential,  and  you  ere  kindly 
asked  to  avoid  topics  such  as  "Typo*  or  "Editorial  comment*  which  will  not  convey  any  Information  when 
printed  In  a  table  of  contents.  As  an  exampls  of  an  Informativs  topic  line  consider; 

Itopio  Subcomponents  of  constants  are  constants 

Note  also  that  nothing  prevents  the  topic  line  from  Including  ell  the  Information  of  a  comment,  os  In  the  fol¬ 
lowing  topic  line: 

Itopio  Inaert;  "...  are  (Implicitly)  defined  by  a  aubtype  dsolsratlon" 

As  a  final  example  here  Is  a  complete  comment  received  on  s  prior  version  of  this  manual; 

Iseotlon  03.02.01  (1 2)  0 .  Taffs  82-04-28 
Iverslon  10 

Itopio  Suboomponenta  of  constants  ere  constants 

Change  "component"  to  "subcomponent*  In  the  last  sentence. 

Othenwise  the  statement  la  inconsistent  with  the  defined  use  of  subcomponent  In  3.3, 
which  aaya  that  subcomponents  are  excluded  when  the  term  component  Is  used  Instead 
of  auboomponant, 


